Datums suche mittels VBA
13.04.2015 15:46:58
Ralf
ich habe schon einiges gesucht, finde aber leider nichts, vll. bin ich auch blind :)
Folgendes:
ich will mittels eines Macros ein Datum aus einer Zelle in einer anderen Arbeitsmappe finden.
Ich hab den Code hier mal kurz zusammengefasst:
Sub Find()
Dim Row1 As String
Dim Column1 As String
On Error Resume Next
Workbooks.Open (Home_Folder & "\01-Statistik\Rohdaten.xlsx") 'Home_Folder ist eine Funktion
On Error GoTo 0
Column1 = ConvertToLetter(Workbooks("Rohdaten.xlsx").Sheets("Zeiten").Range("D1:M1") _
.Find(ThisWorkbook.Sheets("Daten").Range("L2")).Column)
Row1 = Workbooks("Rohdaten.xlsx").Sheets("Zeiten").Range("B4:B1988") _
.Find(CDate(ThisWorkbook.Sheets("Daten").Range("E2")), LookIn:=xlValues).Row
MsgBox "Zelle " & Column1 & Row1
End Sub
Das Paradoxe ist, bis zum 09.10.2015 funktioniert das Macro soweit auch ohne weiteres, ab dem _
Datum 10.10.15 bekomme ich jedoch den Fehler:
Laufzeitfehler '91':
Objektvariable oder With-Blockvariable nicht festgelegt
Jetzt habe ich soweit gefunden dass dies wohl daran liegt dass er bei der Find Methode das Datum nicht finden kann. Dieses ist aber vorhanden.
Ich lassen die Daten ab dem 1.1.2015 zwar mittels "=Zelle B4+1" runterkopieren, aber auch als ich das Datum mal händisch kopiert habe hat er das Ergebnis nicht gefunden.
Ich bin Ratlos und Hoffe hier Hilfe zu finden, da ich schon häufig hier Rat finden konnte ;)