Hallo zusammen,
ich habe folgendes Makro:
Datum1 = Application.WorksheetFunction.Min(Tabelle1.Range("K1:K1048576"))
EndRow = Tabelle1.Range("A1048576").End(xlUp).Row
'Letzte Zeile in Rohdaten
'Fzg von Tag 1 in Hilfstabelle Sortierung mit Puffer kopieren
For z = 2 To EndRow
If Tabelle1.Range("K" & z) = Datum1 Then
Tabelle1.Range("A" & z).EntireRow.Copy
EndRow2 = Tabelle18.Range("A1048576").End(xlUp).Row
Tabelle18.Range("A" & EndRow2 + 1).PasteSpecial
End If
Next z
Dadurch erreiche ich, dass mir dsa Makro die Werte von Tag 1 filtert, kopiert und ins entsprechende neue Tabellenblatt einfügt.
In einem 2ten Schritt möchte ich, dass mir das Makro zusätzlich zu Tag 1 auch noch 20% der nächsten Werte (also 20% von Tag 2), als Puffer kopiert und hinter tag 1 kopiert.
Leider weiß ich nicht, wie ich das ausdrücken soll...