Tabellenzeilen Einblenden wenn ein Inhalt in den Zeilen steht

[Deggit]

Hallo und frohe Ostern,

ich bin gerade noch ein wenig am Programmieren und bin auch ein kleines Problem gestoßen, vielleicht könnt ihr mir ja schnell weiterhelfen.

Und zwar blende ich in meiner Mappe mehrere Zeilen ein und aus.

Das mache ich über diese Zeilen

Einblenden:
Rows("71:72").Hidden = False

Ausblenden
Rows("73:80").Hidden = True

Jetzt möchte ich aber die Zeilen nur einblenden, wenn ihn diesen auch etwas steht. Dies habe ich so versucht umzusetzen:

Code:

Sub B1_Down3()

   Set WS4 = Worksheets("3. Schritt - Bedrohungen")
   Dim Tabellentiefe As Long
   
   Tabellentiefe = WS4.Range("C82").End(xlDown).Row
   
   Rows("81:Tabellentiefe").Hidden = False
   Rows("Tabellentiefe+1:182").Hidden = True
       
End Sub

Leider klappt dies nicht so ganz. Wisst ihr wo der Fehler liegt?

Vielen vielen Dank
Deggit

[Kl@us-M.]

Hi,

probier mal so:

...
...
...
Rows("81:" & Tabellentiefe).Hidden = False
...
...
...