bitte um Eure Hilfe.
Hat jemand ein Bsp-Code für Fitern einer Tabelle zuerst nach Jahr und dann nach Z.B. Autosorte?
Ich möchte z.B. efahren wieviel VW's im Jahr 2016 verkauft wurden.
Für Eure Hilfe bedanke ich mich im voraus.
LG, Peter
Sub Filtern()
Dim Datum1 As Date
Dim Datum2 As Date
' Prüfen, ob Filter gesetzt wurde
With Sheets("XYZ")
If .AutoFilterMode = True Then
Else
.Range("B6:N6").AutoFilter
End If
End With
'Tabelle Filtern nach Datum
DatumX = InputBox("Bitte geben Sie ein Jahr ein: ")
Datum1 = Format(DateValue("01.01." & Val(DatumX)), "0")
Datum2 = Format(DateValue("31.12." & Val(DatumX)), "0")
Rows("6:6").AutoFilter Field:=4, Criteria1:=">=" & CDbl(Datum1), Operator:=xlAnd, Criteria2:="
Schönes Wochenende,