Hallo Zusammen!

Könnt ihr mir bitte helfen? Ich habe ein Tabellenblatt „Übersicht“, in der in Spalte C ganz viele Namen steht (Tabelle ändert sich hin und wieder). Per VBA lasse ich für jeden Namen ein Tabellenblatt erstellen und dieses auch genauso benennen.

In den neu erstellten Tabellenblättern stehen (aufgrund von automatisch erstellten Formeln) jeweils in den Zellen A6 bis A100 Werte – mal gehen diese Werte bis Zeile 10 und mal bis Zeile 100.

Jetzt möchte ich gerne in jedem dieser automatisch erstellten Tabellenblätter (Namen stehen ja in Spalte C in „Übersicht“) die Zeilen ausblenden, wo in den Zellen A6 bis A100 nichts steht (bzw. aufgrund der Formel nichts angezeigt wird durch "").

Könnt ihr mir vielleicht helfen oder einen Tipp geben, wie man das am besten umsetzt? Gefunden hatte ich dazu diesen Code, aber der bezieht sich ja nur auf ein bestimmtes Tabellenblatt…

Vielen Dank schonmal im Voraus.

Liebe Grüße

Kati

Sub Ausblenden ()

Dim j As Long

Dim i As Long

j = Range("D800").End(xlUp).Row

For i = 6 To j

If Cells(i, 1) = "" Then

Range(Cells(i, 1), Cells(i, 1)).EntireRow.Hidden = True

End If

Next i

End Sub