|
Hallo zusammen, ich hoffe hier Hilfe zu finden.
Ich möchte mit einem CommandButton, welcher sich auf Tabellenblatt1 befindet (ActivSheet), mit Click einen Range ("A2:I16") von Tabellenblatt2 in Tabellenblatt1 kopieren.
Vor dem Kopiervorgang soll der Bereich ("C5:S38") auf Tabellenblatt1 jedoch geleert werden, d. h. Zellinhalte vorsorglich löschen.
Die kopierte Tabelle von Tabellenblatt2 soll in D8 auf Tabellenblatt1 eingefügt werden, d. h. Inhalt von A2 soll in D8, A3 in D9 usw.
Private Sub CommandButton1_Click()
Worksheets("Tabelle2").Select
Range("A2:I16").Select.Copy Destination:=Worksheets("Tabelle1").Range("D8")
End Sub
Leider klappt es nicht.
Wo ist denn mein Fehler?
|