ich suche jetzt schon über den Onkel Google eine ganze Weile, jedoch habe ich noch keine Antwort für mein Problem gefunden.
Ich möchte in einer Datei mit dem .find() Befehl eine Spaltennummer ermitteln, welches sich im Datumsformat befindet, um welches Datum es sier hier genau handelt ist irrelevant, da sich immer andere Daten in der Spalte befinden. Die Spalte, in der sich ein Datumsformat befindet, soll dann mittels MsgBox ausgegeben werden, nicht das Datum an sich!
Hier mal mein Code:
Code:
Set Spalte = Workbooks(dateiname).Sheets(1).Range("A:H").Find(Date)
MsgBox Spalte.Column
Ich habe es auch schon mit .Find(DateValue) und anderem probiert. das LookIn:=... hat auch nicht geholfen.
Oder würde es mit "application.findformat.numberformat" gehen?
Info:
Dim Spalte As Range
Fehlermeldung:
"Laufzeitfehler 91: Objektvariable oder With-Blockvariable nicht festgelegt"
Auch habe ich schon probiert:
Spalte = Workbooks(dateiname).Sheets(1).Range("A:H").Find(what:=CDate(Format("dd.mm.yyyy")), LookIn:=xlFormulas)
Spalte = Workbooks(dateiname).Sheets(1).Cells.Find(what:=CDate(Format(Date, "Short Date")), LookIn:=xlFormulas)
Spalte = Workbooks(dateiname).Sheets(1).Range("A:H").Find(what:=CDate(Format(Date, "Short Date")), LookIn:=xlValues).Column
Workbooks(dateiname).Sheets(1).Application.FindFormat.NumberFormat = "dd/mm/yyyy"
Set Spalte = Workbooks(dateiname).Sheets(1).Cells.Find("dd.mm.yyyy", , xlValues, , , , True)
Danke für die Antworten