Habe eine Liste in der auf Tabelle1 in der ersten Spalte für Jeden Tag ein Datum steht.
Wenn die Datei geöffnet wird, soll das aktuelle Datum ausgewählt werden, damit ich sofort mit ausfüllen beginnen kann.
Habe ein Makro gefunden, was aber nicht klappt.
Private Sub Workbook_Open()
'Aktuelles Datum auswählen bei Start
With Worksheets(1).Columns(1)
.Selection.Find(What:=Date, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
If Not C Is Nothing Then
Zelle = C.Address
Range(Zelle).Select
Else
MsgBox "Datum " & Date & " fehlt!"
Range("A1").Select
End If
End With
End Sub
Hab dann aufgezeichnet:
Sub Makro1()
Selection.Find(What:="15.07.2005", After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
End Sub
Datum wird gefunden, starte ich das aufgezeichnete Makro, kommt ein Fehlermeldung: Laufzeitfehler 91...
Was mach ich falsch?
https://www.herber.de/bbs/user/24731.xls
Gruß P