Datumsformat
22.12.2008 10:21:35
uwe
ich übertrage / Suche Daten mit folgendem Makro:
Dim rng As Range
Dim intRow As Integer
intRow = 1
Do Until IsEmpty(Cells(intRow, 1))
Set rng = Worksheets("Daten").Columns(1).Find(Cells(intRow, 1), _
lookat:=xlWhole, LookIn:=xlValues)
Range(rng.Offset(0, 1), rng.Offset(0, 3)).Value = Range(Cells(intRow, 2), Cells(intRow, 4)).Value
intRow = intRow + 1
Loop
Wenn jetzt aber in Spalte A Datumswerte stehen, kommt die Meldung
"Objektvariable oder with-Blockvariable nicht festgelegt."
Das muss mit dem Datumsformat zusammenhängen.
https://www.herber.de/bbs/user/57809.xls
Gruss Uwe