Hallo zusammen,
ich habe bereits ein Makro dass in Tabelle1 20 mal die Zeile kopiert und einfügt wenn in der 20. Spalte ein neuer Name kommt.
Public Sub Zeilen_einfügen()
Dim i As Long, loLetzte As Long
With Worksheets("Tabelle1") 'Battname anpassen
loLetzte = .Cells(.Rows.Count, 20).End(xlUp).Row 'Zahl bezieht sich auf das eindeutige Merkmal, hier die Hilfsspalte
For i = loLetzte To 6 Step -1 'Ab welcher Spalte soll die Logik des Makros greifen. Anpassen kann man die erste Zahl. bei der Zahl minus 1 beginnt das Makro
If .Cells(i, 20) <> "" And .Cells(i - 1, 20) <> "" Then 'Hintere Zahl in Klammer gibt die Spalte des Bezugs an
If .Cells(i, 20).Value <> .Cells(i - 1, 20).Value Then 'Hintere Zahl in Klammer gibt die Spalte des Bezugs an
.Rows(i - 1).Copy
.Rows(i).Resize(20).Insert 'Zahl in Klammer gibt die Anzahl der einzufügenden Zeilen an
Application.CutCopyMode = False
End If
End If
Next i
End With
End Sub
Jetzt würde ich gerne (nachdem das erste Makro durchgelaufen ist und die 20 Zeilen kopiert hat) die Information aus dem Reiter(Tabelle2)A1:S21 kopieren und in Tabelle1 ab U5 einfügen. Der Bereich aus Tabelle2 soll so lange in Tabelle 1 eingefügt werden bis in Spalte 20 keine Eintragung mehr vorhanden ist.
Kann das jemand nachvollziehen ^^
Beste Grüße
Leo |