Arbeitsblätter kopieren
28.02.2019 13:07:44
Rupert
Stehe vor folgendem Problem!
Habe eine Arbeitsmappe mit mehreren Tabellenblättern:
Tabelle1
Tabelle2
Tabelle3
Tabelle4
Tabelle5
aus einer zweiten Arbeitsmappe möchte ich jeweils monatlich (per Makro-Aufruf)die Tabellen 2, 3 und 5 kopieren (selber Name wie in Hauptdokument) und mit diesen die Arbeitsblätter im Hauptdokument überschreiben (bzw. den Inhalt).
Folgendes VBA-Script verwende ich derzeit; dabei wird aber jeweils der Inhalt der ersten Tabelle auf alle ausgewählten Tabellen überschrieben...
Private Sub CommandButton1_Click()
Workbooks.Open Filename:="\Pfad\" & UserForm1.TextBox1.Value & ".xlsm"
ActiveWorkbook.Sheets(Array("Tabelle2", "Tabelle3", "Tabelle5")).Select
Cells.Select
Selection.Copy Destination:=ThisWorkbook.Sheets(2).Cells(1, 1)
Selection.Copy Destination:=ThisWorkbook.Sheets(3).Cells(1, 1)
Selection.Copy Destination:=ThisWorkbook.Sheets(5).Cells(1, 1)
Unload Me
End Sub
Anzeige