ich habe ein eventuell für mich passendes Makro gefunden. Allerdings bekomme ich für eine Zeile den Laufzeitfehler "450". Es ist die Zeile:
arrSheets = Sheets(Array("TB1", "TB2", "TB4", "TB7", "TB10"))
Sub Übertrag()
' Übertrag Makro
Dim wks As Worksheet, arrSheets
arrSheets = Sheets(Array("TB1", "TB2", "TB4", "TB7", "TB10"))
For Each wks In arrSheets
With wks
If .Cells(2, 1) "" Then
.Range(.Cells(2, 1), .Cells(Rows.Count, 1).End(xlUp)).Copy
Sheets("Gesamt").Cells(Rows.Count, 1).End(xlUp).Offset(1).PasteSpecial _
Paste:=xlPasteValues
.Range(.Cells(2, 1), .Cells(Rows.Count, 1).End(xlUp)).ClearContents
End If
End With
Next
End Sub
Hilfe/Fehlerverbesserung wäre nett.Grüße Burghard