Kopieren, Werte einfügen
09.01.2008 12:11:00
Korl
ich habe ein Problem mit nachfolgendem Code.
Ich möchte aus den aktiven Workbook, aus allen Tabellen einen bestimmten Bereiche kopieren und deren Werte in meiner Zieltabelle wiederum einfügen.
Das funktioniert eigentlich auch.
Leider kommt es hin und wieder vor das mich der Code anmeckert, Form und Größe seien nicht gleich.
Sub KBZ_zusammenstellen()
Dim wksQ As Worksheet, wksZ As Worksheet
Dim lLetzteZ As Long
Set wksQ = ActiveWorkbook.ActiveSheet
Set wksZ = Workbooks("Einteilung 07.xls").Worksheets("Tabelle1")
Application.ScreenUpdating = False
For Each wksQ In ActiveWorkbook.Worksheets
If wksQ.Range("A2") <> "" Then
wksQ.Range(wksQ.Cells(2, 1), wksQ.Cells(1, 5).End(xlDown)).Copy
lLetzteZ = IIf(wksZ.Range("A65536") <> "", 65536, wksZ.Range("A65536").End(xlUp).Row)
wksZ.Range("A" & lLetzteZ + 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End If
Next wksQ
Application.ScreenUpdating = True
End Sub
Wenn ich manuell arbeite funktioniert alles, warum mein Code aber nicht.
Könnte mir jemand auf die Beine helfen? ;-)
Gruß Korl
Anzeige