eine Frage zu meinem Makro!
Lisa
Sub CommandButton1_Click()
Workbooks.Open ("C:\Prüfung.xls")
Set Zieldatei = Workbooks("Prüfung.xls")
Set Quelldatei = ThisWorkbook.Worksheets("Tabelle2")
ThisWorkbook.Worksheets("Tabelle2").Range("A2:S" & Cells(Rows.Count, 1).End(xlUp).Row).Copy
Workbooks("Prüfung.xls").Sheets("Tabelle1").Range("A65536").End(xlUp).Offset(1, 0).Activate
ActiveSheet.Paste
End Sub
Ich setze die Quelldatei über
Set Quelldatei = ThisWorkbook.Worksheets("Tabelle2")
muss zusätzlich aber noch den zu kopierenden Bereich
ThisWorkbook.Worksheets, benennen!
Lasse ich This Workbook weg also
Worksheets("Tabelle2").Range("A2:S" & Cells(Rows.Count, 1).End(xlUp).Row).Copy
wird der zu kopierende Bereich falsch gesetzt!
Habe ich hier etwas falsch gemacht oder etwas vergessen oder ist es einfach so?
Ich dachte
Set Quelldatei = ThisWorkbook.Worksheets("Tabelle2")
würde reichen.
LG Lisa