habe mir in mühsehliger Arbeit folgenden Code zusammengebastelt.
With Tabelle1
For lngAnzahl = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
If .Cells(lngAnzahl, 6) Tabelle3.Cells(3, 6) Then
.Cells(lngAnzahl, 1).EntireRow.Copy _
Tabelle2.Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
Tabelle2.Range("AC" & Rows.Count).End(xlUp).Offset(1, 0).Value = Tabelle3.Cells(3, 11)
End If
Next lngAnzahl
End With
Der Code funktioniert so weit. Aber die Daten aus Tabelle1 werden in Tabelle2 immer ab der 2. Zeile eingefügt. Ich will aber erreichen, dass sie erst ab der 4. Zeile eingefügt werden sollen wegen Überschrift und so.