Makro DatenKopieren - fehlende Variable
31.12.2012 10:32:11
FCK
Bei dem nachfolgend angeführten Makro bekomme ich folgende Fehlermeldung:
Objektvariable oder With-Blockvariable nicht festgelegt!
Kann mir hier jemand Unterstützung leisten, der im VBA-Umfeld sehr vertraut ist bzw. sich sehr gut auskennt, welche Variable noch deklariert werden muss und wo diese unterzubringen ist.
Das Makro ist dafür gedacht, Daten aus einer Masterdatei (Anfangsadresse ist bekannt, z.B. beginnt immer mit Adresse C5, Zeilen- und Spaltenanzahl können sich ändern dynamisch) in die Zieldatei zu kopieren, nur Werte). Das Makro soll in der Zieldatei hinterlegt werden.
Für jeden Tipp und besseren Lösungsvorschlag bin ich dankbar.
Viele Grüße
FCK Fan
Sub DatenKopieren()
Dim lZeile As Long, lSpalte As Long
Dim adr1 as Range
Workbooks("Masterdatei.xlsx").Activate
lZeile = Cells(Rows.Count, 3).End(xlUp).Row
lSpalte = Cells(5, Columns.Count).End(xlToLeft).Column
With Worksheets("Tabelle1")
adr1 = .Range(.Cells(5, 3), .Cells(lZeile, lSpalte))
End With
adr1.Copy
Workbooks("Zieldatei.xlsm").Worksheets("Tabelle1").Range("C5").PasteSpecial Paste:= _
xlPasteValues
End Sub