Datumssuche mit Fehlermeldung (Datum nicht vorhand
19.01.2004 10:56:05
Jens
Zwei kleine Problemchen, die eigentlich eins sind.
Zum Ersten:
In einem Jahreskalender lass ich über Eingabe eines Datums in eine UserForm, in der Spalte D:D das Datum suchen und anzeigen. Dieses mach ich überfolgenden Code:
Private Sub cmdOK_Click()
If IsDate([Datum]) Then
Dim Suchbegriff As Range
Sheets("Jahreskalender").Select
Set Suchbegriff = Range("D:D").Find(CDate([Datum]), , xlValues, xlWhole)
If Suchbegriff Is Nothing = False Then _
Range(Suchbegriff.Address).Activate
Else
MsgBox "Geben Sie ein gültiges Datum ein ! Achten Sie auf die Schreibweise !" & _
" Format ist 01.01.2000 !!!", vbCritical, "Achtung !!!"
End If
EndAnweisung:
Unload Me
End Sub
Funzt auch.
Jetzt möchte ich mir aber zusätzlich noch eine Fehlermeldung anzeigen lassen, dass das eingegebene Datum in diesem Kalender gar nicht vorhanden ist, wenn es denn auch wirklich so ist.
Überwelchen Code Zusatz kann ich das erreichen?
Das gleiche Problem habe ich noch mal in einem anderen Code. Hier lasse ich über Schaltfläche wieder auf das aktuelle Datum springen. Der Code lautet wie folgt:
Sub Zum_aktuellen_Datum_gehen()
Dim Suchbegriff As Range
Set Suchbegriff = Range("D:D").Find(What:=Date, LookAt:=xlWhole)
If Suchbegriff Is Nothing = False Then _
Range(Suchbegriff.Address).Activate
End Sub
Auch hier hätte ich gern eine Fehlermeldung, dass das aktuelle Datum in diesem Kalender nicht vorhanden ist, wenn es denn so sein sollte.
Ich freue mich über jede Hilfe.
Gruß Jens