ich ärgere mich nun sehr, daß ich das Kopieren immer noch nicht 100ig drauf habe. :-((
Ich habe untersiedliche Workbooks mit unterschiedlich vielen Sheets. Aus diesen
möchte ich manuell per Tastenkombinat Daten kopieren in eine fest vorgegebene
Workbook.
Hier mein Code:
Sub kopieren_Liste()
Dim wksQ As Worksheet, wksZ As Worksheet
Dim lLetzteQ As Long, lLetzteZ As Long
Set wksQ = ActiveWorkbook.ActiveSheet
Set wksZ = Windows("Zusammenfassung 06.xls").Worksheets("Tabelle1")
lLetzteQ = IIf(wksQ.Range("G65536") <> "", 65536, wksQ.Range("G65536").End(xlUp).Row)
lLetzteZ = IIf(wksZ.Range("G65536") <> "", 65536, wksZ.Range("G65536").End(xlUp).Row)
wksQ.Range("A2:G" & lLetzteQ).Copy
wksZ.Range("A" & lLetzteZ + 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Der Debugger mahnt diese Stellen "Set wksZ = Windows("Adressen M-V 06.xls").Worksheets("Tabelle1")"
er unterstützt diese Eigenschaft-Methode nicht.
Kann mir bitte jemand helfen?
Gruß Korl