kopieren und einfügen
06.12.2016 15:32:20
Lisa
ich möchte die Inhalte mehrerer Tabellen in einer Sammeln.
Dazu habe ich mir gedacht Daten Tabelle für Tabelle zu kopieren und in die Sammler Tabelle einzufügen.
Das ist mein Macro dazu.
Private Sub CommandButton1_Click()
With Sheets("S Artikel").Activate
Range("A1:N" & Cells(Rows.Count, 1).End(xlUp).Row).SpecialCells(xlCellTypeVisible).Copy _
Destination:= _
ThisWorkbook.Sheets("Sammler").Cells(65536, 1).End(xlUp).Offset(1, 0)
End With
With Sheets("B Artikel").Activate
Range("A1:N" & Cells(Rows.Count, 1).End(xlUp).Row).SpecialCells(xlCellTypeVisible).Copy _
Destination:= _
ThisWorkbook.Sheets("Sammler").Cells(65536, 1).End(xlUp).Offset(1, 0)
End With
End Sub
Mein Problem ist nun aber, dass nur die Tabelleninhalte aus der ("S Artikel") kopiert werden, alle anderen aber nicht.
Was mache ich falsch?
Mein CommandButton liegt in der Tabelle ("S Artikel"), von hier aus soll das Macro kopieren.
Wer kann mir bitte helfen?
Liebe Grüße Lisa