Hallo Carsten,
das folgende Makro gehört in ein Standardmodul deiner betreffenden Arbeitsmappe:
Sub Zusammenfassung()
Dim lngLetzte As Long
Dim lngZeile As Long
Dim lngZaehler As Long
Dim i As Long
'Bildschirmaktualisierung ausschalten:
Application.ScreenUpdating = False
'Inhalte aus dem Arbeitsblatt Aufgearbeitet löschen
With Worksheets("Aufgearbeitet")
.UsedRange.ClearContents
End With
'Nun jedes Arbeitsblatt in der Mappe durchlaufen
For i = 1 To ThisWorkbook.Worksheets.Count
'nur Daten aus den Arbeitsblättern auslesen, die nicht gleich Zielarbeitsblatt sind
If Worksheets(i).Name <> "Aufgearbeitet" Then
With Worksheets(i)
'letzte beschriebene Zeile in Spalte A des betreffenden Arbeitsblattes ermitteln
lngLetzte = .Cells(Rows.Count, 1).End(xlUp).Row
'nun alle Zeilen durchlaufen und Daten kopieren
For lngZeile = 1 To lngLetzte
'nur Werte in Übersicht schreiben
If .Cells(lngZeile, 1).Value <> "" Then
'Zähler für Einfügezeile erhöhen
lngZaehler = lngZaehler + 1
Worksheets("Aufgearbeitet").Cells(lngZaehler, 1) = .Cells(lngZeile, 1) 'Wert aus Spalte A
Worksheets("Aufgearbeitet").Cells(lngZaehler, 2) = .Name 'Name des Quellarbeitsblattes
End If
Next lngZeile
End With
End If
Next i
Worksheets("Aufgearbeitet").Activate
'Bildschirmaktualisierung einschalten:
Application.ScreenUpdating = True
End Sub
Ggf. vorhandene Inhalte im Arbeitsblatt "Aufgearbeitet" werden ohne Nachfrage beim Start des Makros gelöscht.
Gruß
M.O.
