Private
Sub
cmd_Dat_Auswahl_Click()
If
cmd_Dat_Auswahl.Tag = 0
Then
datum1 = UserForm3.cb_datum_vom.Text
datum2 = UserForm3.cb_datum_bis.Text
ActiveSheet.Range(
"$15:$50000"
).AutoFilter _
Field:=1, _
Criteria1:=
"<="
& datum1, Operator:=xlAnd, Criteria2:=
">="
& datum2
cmd_Dat_Auswahl.Caption =
"Auswahl Rückgängig ..."
cmd_Dat_Auswahl.Tag = 1
Else
ActiveSheet.Range(
"$15:$50000"
).AutoFilter Field:=1
cmd_Dat_Auswahl.Caption =
"Auswahl Treffen ..."
cmd_Dat_Auswahl.Tag = 0
End
If
End
Sub