Kalenderfunktion- MsgBox: Nicht gefunden
09.07.2004 14:35:11
Rolf
Das Makro unten Funktioniert gut.
Es gibt nur noch 1 Problem:
Wenn keine Zelle mit dem angefragten Datum existiert, soll mir das mitgeteilt werden, in einer MsgBox. Wo aber kommt dieser Befehl im Code hin?
Private Sub Calendar1_Click()
Dim i
' Transfer date selected on calendar to active cell
' and close UserForm.
On Error GoTo Fehler
Sheets("Sheet1").Select 'Name des Sheets, bei der die Suche beginnen Soll
Do
If i = 2 Then GoTo Fertig ' 2=Anzahl der hintereiander zu durchsuchenden Tabellenblätter
If Not Cells.Find(What:=Calendar1.Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) Is Nothing Then
Cells.Find(What:=Calendar1.Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Activate
Else:
ActiveSheet.Next.Select
End If
i = i + 1
Loop
Unload Me
Fehler:
Call Fehler
Fertig:
Unload Me
End Sub
Danke für alle Antworten
Rolf
Anzeige