Kopieren von Inhalt in einem Tabellenblatt
15.10.2019 11:29:52
Inhalt
ich habe einen Code der auch super funktioniert. Dieser ermöglicht ein kopieren aller Tabs und _
gibt diese Werte unteinander an in einer Master Sheet. Jetzt möchte ich gerne, dass ich nicht _
einen bestimmte Anzahl an Tabs angebe, die er kopiert. Das Programm soll solange kopieren bis _
kein Tab mehr vorhanden ist. Gibt es hierfür einen Weg?
Sub AlleArtikel()
Dim intSh As Integer
Dim lngLast As Long
For intSh = 2 To 23 ' Nachfolgende Anweisungen mit Sheet 2 bis 23 von links. Sheet für Sheet
With Sheets(intSh)
lngLast = Worksheets("Master").Cells(Rows.Count, 1).End(xlUp).Row + 1
.Range("A4:C" & .Cells(Rows.Count, 1).End(xlUp).Row).Copy _
Destination:=Worksheets("Master").Cells(lngLast, 1)
End With
Next
End Sub
Anzeige