Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Tabellenzeilen Einblenden wenn ein Inhalt in den Zeilen steht
#1
Brick 
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
Antworten Top
#2
Hi,

probier mal so:

...
...
...
Rows("81:" & Tabellentiefe).Hidden = False
...
...
...
Überlegen macht überlegen
Gruss aus dem schönen Hunsrück
_______ Klaus-Martin _______
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste