Zum Aktuellen Datum springen
24.11.2005 09:31:02
kalle
brauche eine Formel für folgendes.
Ich brauch eine Formel die beim öffnen der Excel Datei zu einer bestimmten folie springt und dort bis zum aktuellen datum geht. Es soll dann egal sein wo man speichert(egal auf welcher folie) jedesmal wenn die datei neu geöffnet wird sol er zur bestimmten folie springen und zum aktuellen Datum.
Habe auch schon folgendes gefunden.
Private Sub Workbook_Open()
Dim Suchbegriff As Range
Set Suchbegriff = Range("'5'!$A$1:$A$370").Find(What:=Date, LookAt:=xlWhole)
If Suchbegriff Is Nothing = False Then _
Range(Suchbegriff.Address).Activate
End Sub
Bloß wenn ich auf einer anderen Folie abspeicher, dann ließt er das aktuelle Datum von der Folie mit dem Datum aus und springt auf der aktuellen nur in diese Zeile.
Keine ahnung wie ich des oben modifizieren soll ?
Außerdem hätte ich noch eine Frage.(Für ein anderes Worksheet)
Kann man einen Speichern - Button erstellen bei dem immer zuerst ins heuptmenü gegangen wird und dann dort abspeichert..
Kann mir bitte jemand helfen.
Gruß
Kalle