Hallo gutefrage Team,

ich müsste einen VBA-Code abwandeln der so noch nicht passt/funktioniert.

Ich muss aus 12 Tabellen Texte in die 13 Tabelle einfügen ohne Leerzeilen.

Tabelle 1 Texte von A45:47

Tabelle 2 Texte von A35:37; 68:80; 105:117; 141:155; 178:196

Tabelle 3 - 7 Texte von A40:45; 85:90; 130:135; 175:180

Tabelle 8 A42:44

Tabelle 9 A44:48

Tabelle 10 A37:40

Tabelle 11 A27:48

Tabelle 12 A27:31

Die Zusammenfassung sollte untereinander in Tabelle 13 ab A95 eingefügt werden und die Zeilen in denen kein Text ist sollten nicht kopiert werden.

Sub Tabellentext_zusammenfassen()

Dim i As Integer

Dim Zusammenfassen As Worksheet

Set Zusammenfassen = Worksheets("Zusammenfassung")

For i = 1 To Workshheet.Count

Set BereichZielTab = Worksheets(i).UsedRange

Set LetzteZeileZusammenfassung = Worksheets(1).Cells(Rows.Count, "A45:47").End(xlUp)

BereichZielTab.Copy Destination:=LetzteZeileZusammenfassung

Next i

End Sub

Danke Vorab

Hallo Freunde,

ist es möglich Texte aus verschiedenen Tabellenblättern in ein Tabellenblatt zusammenzuführen (Automatisch).

Tabellenblatt 1: Bemerkungen A40:45 und Tabellenblatt 2 : Bemerkungen A35:47 und A56:65 in Tabellenblatt 5: B95:.... .

Sind keine Bemerkungen im Tabellenblatt 1 sollen die Bemerkungen von dem Tabellenblatt 2 in Tabellenblatt 5 in B95 Kopiert werden (keine Leerzeile).

Danke im Voraus

Ich bin mir auch nicht sicher ob ich Richtig in VBA einfüge, der Sub Kopieren funktioniert nicht.

Mein Code:

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("E8")) Is Nothing Then

 Cells.EntireRow.Hidden = False

 If Range("E8").Value = "Rogo AC" Then

   Columns("U:AH").Hidden = True

   Columns("U").Hidden = False

ElseIf Range("E8").Value = "Shunt 100A" Then

   Columns("U:AH").Hidden = True

   Columns("V").Hidden = False

 End If

End If

End Sub

-------------------------------------------------------------------------------------------------------------------------------

Sub Kopieren_speichern()

For i = 27 To 37

If Range("AK" & i).Value > 1 Then

Range("M" & i).Value = Range("AK" & i).Value

End If

Next i

End Sub

Danke im Voraus

Hallo liebe Freunde,

brauche eine Formel die mir in Tabelle 4 die Zahl in AK27:AK37 kopiert wenn dort eine Zahl >1 geschrieben wird und diese Zahl in der Tabelle 4 M27:M27 einfügt (AK27 in M27, AK28 in M28....).

In AK27:AK27 habe ich eine andere Formel für eine Funktion. =SUMMEWENNS(V27:X27;V25:X25;">0")

In M27 soll keine Formel sein da ich manchmal etwas von Hand eintragen muss.

Danke mfg. Dr.