1.ich habe folgende Formel in einem Popup Calender. Der mir durch klick auf einen Tag das Datum sucht und hineinspringt. Nur Leider funktioniert dies nur auf einem Arbeitsblatt. Ich möchte gerne das er das Datum auf allen Blätteren Sucht und dahin springt. Jedes Datum ist auch nur einmal vorhanden.
2. Ich möchte gerne das er nicht in dem Blatt Sucht wo dieses Makro ausgeführt also wo die suche gestartet wird durchsucht. Falls das möglich ist?
Private Sub cmdClose_Click()
' Close the UserForm
Unload Me
End Sub
Private Sub UserForm_Initialize()
' Check if active cell contains a date. If 'yes' show
' same date on calendar. If 'no' show today's date.
If IsDate(ActiveCell.Value) Then
Calendar1.Value = DateValue(ActiveCell.Value)
Else
Calendar1.Value = Date
End If
End Sub
Private Sub Calendar1_Click()
' Transfer date selected on calendar to active cell
' and close UserForm.
On Error GoTo Fehler
Cells.Find(What:=Calendar1.Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
Unload Me
Fehler:
Call Fehler
End Sub
Private Sub Fehler()
MsgBox "Datum nicht vorhanden! Aktion abgebrochen!"
Exit Sub
End Sub
Hoffe ihr habt eine Lösung für dieses Problem und könnt mir ein weiteres mal helfen
Gruß Alex