habe im Archiv den folgenden Code gefunden, leider bekomme ich den nicht zum laufen wegen Fehlermeldung "Laufzeitfehler 91" Objektvariable- oder With-Blockcvariable nicht festgelegt.
Private Sub Worksheet_Activate()
Dim Ws As Worksheet
Me.Rows("2:" & Rows.Count).Clear
For Each Ws In ThisWorkbook.Worksheets
If Ws.Name "Zusammenfassung" Then
Ws.Rows("2:" & Ws.Cells.Find("*", searchdirection:=xlPrevious).Row).Copy Me.Range("A" & _
Me.Cells.Find("*", searchdirection:=xlPrevious).Row + 1)
End If
Next Ws
End Sub