aufgrund deiner Beschreibung, folgender Vorschlag.
Sub test()
Dim ws As Worksheet
Dim i&, j&, cnt&
Set ws = Worksheets("Übersicht")
On Error Resume Next
j = Intersect(ws.UsedRange, ws.Columns("C")).SpecialCells(xlCellTypeLastCell).Row
If Err.Number > 0 Then MsgBox "Abbruch - Fehler bei Bereichsermittlung": Exit Sub
For i = 6 To j
On Error Resume Next
With Worksheets(ws.Cells(i, "C").Text)
If Err.Number > 0 Then
MsgBox "Blatt '" & ws.Cells(i, "C").Text & "' existiert nicht - "
On Error GoTo 0
Else
For cnt = .Cells(Rows.Count, "A").End(xlUp).Row To 6 Step -1
If .Cells(cnt, 1).Value = "" Then
.Rows(cnt).Hidden = True
End If
Next
End If
End With
Next
End Sub
|