hier ein weiteres Problem:
ich habe eine UF erstellt, in der man den Namen des Mitarbeiters eintragen kann, der in der Tabelle dann gesucht und markiert wird. Das klappt auch wunderbar.
Nun wollte ich das selbe für ein Datum machen, welches in den Zellen A1:XX1 steht.
Diese Zellen ind als Datum formatiert.
Leider gibt er mir jedesmal die Meldung "Datum nicht gefunden"
Was habe ich falsch gemacht?
Hier ein mal der Quellcode
Dim zelles As Range
Dim bereichs As Range
Dim datum As String
datum = TextBox1.Text
Set bereichs = Sheets("Urlaubstage").Range("A1:E1")
bereichs.Select
Set zelles = bereichs.Find(datum, lookat:=xlWhole, LookIn:=xlValues)
If zelles Is Nothing Then
MsgBox "Datum nicht gefunden"
Else
MsgBox "Datum befindt sich in Zelle" & zelles.Address
End If
Vielen lieben Dank für Eure Hilfe
Anna