Datum suchen; DTPicker
07.02.2009 19:30:36
monistaudt
bin ein "Frischling" und suche schon seit einigen Tagen hier in den Foren nach einer Lösung, komme aber nicht weiter und wäre für Hilfe sehr dankbar.
Ich habe in einer UserForm einen DTPicker eingebettet. Das jeweils ausgewählte Datum wird in eine Textbox übernommen.
Nun möchte ich das in die Textbox übernommene Datum in Spalte C suchen lassen.
In Spalte C steht ein Verweis auf Spalte A (also C8= A8) und in Spalte A steht dann in diesem Fall A8=A7+1
Das Start-Datum (01.01.2009) in A7 wird aus A5 übernommen und A5 übernimmt den Wert aus einem anderen Tabellenblatt A5=DATWERT("01.01."&'StaDa Jenny'!D2).
'StaDa Jenny'!D2 hat den Wert 2009.
Mein Code mit dem ich das Datum suche lautet
Private Sub cmdUrlaub_Click()
Dim zelles As Range
Dim bereichs As Range
Dim datum As Date
datum = txtbDatum.Text
Set bereichs = Sheets("MitarbeiterIn").Range("c7:c524")
Set zelles = bereichs.Find(what:=datum, lookat:=xlWhole, LookIn:=xlValues)
If zelles Is Nothing Then
MsgBox "Datum nicht gefunden"
Else
Zelle.Select
End If
Next Zelle
ActiveCell.Offset(0, 19).Value = ("U")
End If
End Sub
Ich komme immer nur bis "Datum nicht gefunden". Ich vermute es hat etwas mit der "komplizierten Datumsvergabe über mehrere Zellen und Blätter zu tun, allerdings sollte dies wenn immer möglich auch so bleiben.
Möglicherweise liegt das Problem aber auch darin,
- dass das Datum in der Textbox ist wie folgt formatiert ist TT.MM.JJJJ hh:mm:ss
- und das Datum in Spalte C das Format TT.MM.JJJJ hat.
aber selbst wenn ich der Spalte C das Format TT.MM.JJJJ hh:mm:ss zuweise funktioniert es nicht, da hh: mm:ss in C (weil vorgegeben) immer gleich 00:00:00 ist. Ich würde ja gerne das Datumsformat des DTPickers oder der Textbox ändern, weiß aber nicht wie.
Hat jemand vielleicht eine Idee wie das Problem zu lösen ist
mfg monistaudt