kann mir jemand sagen wie ein Code aussehen muss der folgendes bewirken soll:
addiere jede letzte zelle aus Spalte "L" aus allen tabellen die mit "baugruppe" beginnen.
meine code sieht so aus scheint aber total falsch zu sein:
Sub Gesamt()
For Each Worksheet In ActiveWorkbook.Sheets
If Left(ActiveSheet.Name, 9) <> "Baugruppe" Then Next
Else
Range("L65000").End(xlUp).Copy
Sheets("Zwischenablage").Select
Range("A65000").End(xlUp).Offset(1, 0).PasteSpecial
Do
End Sub
bin für jede hilfe dankbar.
Gruß
Andi