ich grübel jetzt schon sehr lange an folgendem code:
Sub Gesamt()
Dim wks As Worksheet
For Each wks In ActiveWorkbook.Sheets
If Left(ActiveSheet.Name, 9) = "Baugruppe" Then
Range("L65000").End(xlUp).Copy
Sheets("Zwischenablage").Select
Range("A65000").End(xlUp).Offset(1, 0).PasteSpecial
End If
Next wks
End Sub
Der code soll die endbeträge aus allen tabellen, die mit dem namen baugruppe beginnen, úntereinander in die tabelle zwischenablage kopieren.
Allerdings wird nur der wert aus der aktiven tabelle kopiert (wenn sie mit namen baugruppe beginnt).
Wäre schön wenn mir dabei jemand helfen könnte
Gruß
Andreas