Textbox Datum +/-
11.05.2020 11:18:32
Sandro
In meinem Excel habe ich ein UserForm erstellt, in welches man ein Datum eintragen kann, um nach diesem in einer Liste zu filtern. Ich wollte nun einen "+" und einen "-" Button einfügen, um im Datum vor und zurück zu gehen. Leider klappt dies nicht wie gewünscht.
Hier der Code der UserForm / TextBox:
Private Sub UserForm_Activate()
Datum_1 = Format(Now, "DD.MM.YYYY")
End Sub
Button zum filtern nach dem eingetragenen Datum:
Sub Ok_Click()
Dim datum1 As Date
datum1 = CLng(CDate(Datum_1.Value))
ActiveSheet.AutoFilterMode = False
ActiveSheet.ListObjects("Zuschnittsplanung").Range.AutoFilter Field:=Range("Datum").Column, _
_
Criteria1:=("=" & datum1)
Range("K2").Value = Datum_1.Text
'End
End Sub
Button Datum +1:
Sub CB_Datum_Plus_Click()
Me.Datum_1.Text = Me.Datum_1.Text + 1
End Sub
Button Datum -1:
Sub CB_Datum_Minus_Click()
Me.Datum_1.Text = Me.Datum_1.Text - 1
End Sub
Die Fehlermeldung lautet "Typen unverträglich" ich habe daher .value versucht, ohne Erfolg.
Vielleicht kann mir ja jemand aus dem Forum helfen.
Danke & Grüsse
Sandro
Anzeige