ich habe eine Autofilterspalte, die wechselnde Datums-Einträge beinhaltet.
Ich bräuchte jetzt ein Makro, welches im Autofilter immer nur die beiden neusten Einträge markiert...
Wie könnte ich das in VBA umsetzen?
Danke für eure Hilfe.
Grüße
Marv
Sub Top2()
Dim SP, KG1 As Date, KG2 As Date
SP = 3 'Spalte C
KG1 = WorksheetFunction.Large(Columns(SP), 1)
KG2 = WorksheetFunction.Large(Columns(SP), 2)
With Sheets("Tabelle1")
If .AutoFilterMode Then .AutoFilterMode = False ' Autofilter ausschalten
.Columns(SP).AutoFilter Field:=1, Operator:=xlFilterValues, _
Criteria2:=Array(2, KG1, 2, KG2)
End With
End Sub
Beispiel für Daten in Spalte C