ich habe in einer Tabelle in Spalte D das Datum sthen (für ein ganzes Jahr). Jetzt will ich aber beim öffnen der Arbeitsmappe direkt zum aktuellen Datum springen. Habt ihr ne Idee?
Gruß
Christoph
Sub CommandButton1_Click
endup = Range("D65536").End(xlUp).Row
For i = 1 to endup
If Range("C" & i ).Value = Date Then
Range("C" & i ).Activate
End If
Next
End Sub
Private Sub Workbook_Open()
'Aktuelles Datum auswählen bei Start
With Worksheets(1).Range("D:D")
Set c = .Find(Date, LookIn:=xlValues)
If Not c Is Nothing Then
Zelle = c.Address
Range(Zelle).Select
Else
MsgBox "Datum " & Date & " fehlt!"
Range("D1").Select
End If
End With
End Sub