und zwar will ich aus einem Tabellenblatt immer Monatlich bzw. Jährlich meine Daten filtern.
dafür hab ich 2 ComboBoxen wo man in der einen das Monat einstellen kann nach dem man filtern will und in der 2ten das dazugehörige Jahr.
kann evtl. mir weiterhelfen und mir sagen wo mein Fehler liegt? bzw. wenn man etwas verbessern kann dies bitte auch zu erwähnen :)
ich vermute mal das ich in der letzten Zeile beim Autofilter was falsch machen bei den Datentypen
vielen dank im Voraus schon!!
Sub Datum_filtern()
Dim Bereich As Range
Dim datum1 As Date
Dim datum2 As Date
Dim Tag1 As Byte
Dim Tag2 As Byte
Dim Monat1 As Byte
Dim Monat2 As Byte
Dim Jahr As Integer
Tag1 = 1
Tag2 = 31
If Tabelle3.ComboBox_Monat2.Value = "Jänner" Then
Monat1 = 1
End If
If Tabelle3.ComboBox_Monat2.Value = "Februar" Then
Monat1 = 2
Tag2 = 28
End If
If Tabelle3.ComboBox_Monat2.Value = "März" Then
Monat1 = 3
End If
If Tabelle3.ComboBox_Monat2.Value = "April" Then
Monat1 = 4
Tag2 = 30
End If
If Tabelle3.ComboBox_Monat2.Value = "Mai" Then
Monat1 = 5
End If
If Tabelle3.ComboBox_Monat2.Value = "Juni" Then
Monat1 = 6
Tag2 = 30
End If
If Tabelle3.ComboBox_Monat2.Value = "Juli" Then
Monat1 = 7
End If
If Tabelle3.ComboBox_Monat2.Value = "August" Then
Monat1 = 8
End If
If Tabelle3.ComboBox_Monat2.Value = "September" Then
Monat1 = 9
Tag2 = 30
End If
If Tabelle3.ComboBox_Monat2.Value = "Oktober" Then
Monat1 = 10
End If
If Tabelle3.ComboBox_Monat2.Value = "November" Then
Monat1 = 11
Tag2 = 30
End If
If Tabelle3.ComboBox_Monat2.Value = "Dezember" Then
Monat1 = 12
End If
If Tabelle3.ComboBox_Monat2.Value = "Alle" Then
Monat1 = 1
Monat2 = 12
Else
Monat2 = Monat1
End If
If Tabelle3.ComboBox_Jahr2.Value = "2018" Then
Jahr = 2018
End If
If Tabelle3.ComboBox_Jahr2.Value = "2019" Then
Jahr = 2019
End If
datum1 = DateSerial(Jahr, Monat1, Tag1)
datum2 = DateSerial(Jahr, Monat2, Tag2)
Set Bereich = Tabelle1.UsedRange
Bereich.AutoFilter Field:=6, Criteria1:=">=" & CDbl(datum1), Operator:=xlAnd, Criteria2:="