Hallo zusammen,

ich habe eine Tabelle in der Inhalte nach Datum sortiert stehen (01.01.2015, 01.02.2015, usw...). Ich möchte jeweils 01.01.2015, 01.02.2015, usw. in ein eigenes Blatt kopieren. Funktioniert auch gut mit dem Code unten. Allerdings sollten jeweils darüber fix ein paar Zeilen stehen, von wegen Monat Januar und eine kurze Beschreibung. Wie kann ich dem VBA sagen, dass er die Zeilen in die Zieltabelle kopieren soll, aber die ersten Zeilen frei lässt, bzw. nicht überschreibt? Bin keine VBA-Leuchte :)...

Sub VIst()
 

Dim Zeile As Long
Dim ZeileMax As Long
Dim i As Long

With Tabelle1
ZeileMax = .UsedRange.Rows.Count
n = 1

For Zeile = 2 To ZeileMax
If .Cells(Zeile, 3).Value = "01.01.2015" Then
.Rows(Zeile).Copy Destination:=Tabelle2.Rows(n)
n = n + 1
 

End If
Next Zeile
End With

End Sub

Danke euch!!