ich habe einen Kalender in Exel und will beim öffnen der Datei
gleich zum aktuellen Datum springen. Wer kann mir helfen?
Aufbau:
Tag | Datum | Daten |
Private Sub Workbook_Activate()
Cells.Find(What:=date(), After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
End Sub
Private Sub Workbook_Activate() Worksheets(1).Cells.Find(What:=date(), After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False).Activate End Sub
Private Sub Worksheet_Activate()
Cells.Find(What:=Date, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
End Sub
Private Sub Workbook_Open()
Worksheets(1).Cells.Find(What:=Date, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
End Sub
Selection.Font.Bold = True