Dank Nepumuk gibt es mittlerweile einen funktionierenden Code der meine Arbeitsmappe durchsucht und nur Blätter durchsucht die im Blatt "Übersicht" auch genannt werden. Was ich jedoch nicht erwartet habe ist, dass auch "ausgeblendete" Zeilen (über Filter) gefunden werden. Ich hätte aber nur die aktuell sichtbaren Zeilen benötigt.
Gibt es hierzu einen Befehl den man in dieser Sub evtl. einbauen kann?
vielen Dank
M
Public Sub Zusammenfassen()
Dim objCell As Range
Dim Abk As Variant, Verant As Variant, FNom As Variant
With Worksheets("Übersicht")
For Each objCell In .Range(.Cells(4, 1), .Cells(.Rows.Count, 1).End(xlUp))
If WorksheetExist(objCell.Text) Then
With Worksheets(objCell.Text)
Abk = .Range("C3").Value
Verant = .Range("A8").Value
FNom = .Range("I6").Value
End With
With Worksheets("FP")
.Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0).Resize(1, 3).Value = _
Array(Abk, Verant, FNom)
End With
End If
Next
End With
End Sub