aktuelles Datum in 2 Tabellenblättern suchen, Help
10.08.2005 11:49:47
Carlo
im Voraus vielen Dank für Eure Hilfe!!
Ich habe eine Arbeitsmappe(Excel) mit zwei Tabellenblättern (Sommer, Winter). In Zeile 5 steht pro Zelle ein Datum. z.B. 25.2 usw. ((Ein Kalender quasi))
Ich brauche einen Code der beim öffnen automatisch in die Zelle mit dem heutigem Datum springt. Auch wenn das Tabellenblatt grade nicht aktiviert ist. Meine jetziger Code funktioniert nur, wenn ich vorher in dem Tabellenblatt war in dem das jetzige Datum steht.
Ich check das nicht, weil ich ein totaler vba Anfänger bin.
& here comes the code:
Private Sub Workbook_Open()
Set c = Worksheets(1).Range("5:5").Find(What:=Date, LookIn:=xlFormulas)
If Not c Is Nothing Then
c.Offset(0, 0).Select
Else
Set d = Worksheets(2).Range("5:5").Find(What:=Date, LookIn:=xlFormulas)
d.Offset(0, 0).Select
Range("5").Select
'MsgBox "Datum " & Date & " fehlt!"
'Range("A1").Select
End If
End Sub
So ich hoffe jemand findet ein klein wenig Zeit für mich!
Danke.
Gruß
Carlo Tambony