Laufzeitfehler 1004 bei Selection.Offset
10.07.2008 11:26:00
Alexandra
mit dem folgenden Makro möchte ich einen kopierten Wert in Spalte C des Arbeitsblattes einfügen, und zwar in der Zeile des aktuellen Datums (Startdatum: 28.06.2008 in Zelle B5):
Windows("WGSTest.xls").Activate
Sheets("WG_Daten").Select
Range("at5").Select
Selection.Copy
Windows("EC_infosys.xls").Activate
Sheets("SLB_OLS").Select
Startdatum = Worksheets("Tagesdaten").Cells(48, 16)
DatumVar = Worksheets("SLB_OLS").Cells(5, 2)
NeuerZeilenzugriff = DateValue(DatumVar) - DateValue(Startdatum)
Sheets("SLB_OLS").Select
Range("c5").Select
Selection.Offset(NeuerZeilenzugriff, 0).Range("a1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = True
Bei "Selection.Offset" wird jeweils ein "Laufzeitfehler 1004, anwendungs- oder objektdefinierter Fehler" angezeigt.
Ich finde den Fehler einfach nicht. Das Makro funktioniert so in einer fast identischen Form in einer anderen Arbeitsmappe - kann mir jemand helfen?
Danke!
Alexandra