Das Clever-Excel-Forum.de - Treffen
findet vom 15. - 17. September 2017 in Friedrichroda /
Thüringen / Region Großer Inselsberg statt. Hotelbuchung ab sofort möglich.

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
to top
#2
Hi,

probier mal so:

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


Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
  Zeilen kopieren wenn Spalte A nicht leer ist Safety-Tussi 2 30 22.03.2017, 11:31
Letzter Beitrag: Safety-Tussi
Question Wenn(A1="";A1;"da steht etwas") -> Ergebnis: 0 o0Julia0o 19 297 20.03.2017, 13:18
Letzter Beitrag: BoskoBiati
Question Zeilen markieren, wenn FeldX ausgewählt ist o0Julia0o 20 276 20.03.2017, 12:59
Letzter Beitrag: o0Julia0o
  Blätter jedes Mal wieder einblenden maine-coon 2 75 17.03.2017, 09:48
Letzter Beitrag: maine-coon
  Ausgeblendete Spalten einblenden ricface 21 365 24.02.2017, 17:50
Letzter Beitrag: snb
  VBA Zeilen verschieben wenn Bedingungen erfüllt DanOnline 1 203 25.01.2017, 15:36
Letzter Beitrag: atilla
  Zeilen mit Checkboxen ausblenden/einblenden Hawkeye 1 128 19.12.2016, 23:50
Letzter Beitrag: Kuwer
  Wenn in Zeile X steht dann in Zeile Y folgendes technoente 11 453 14.12.2016, 16:15
Letzter Beitrag: BoskoBiati
  Zeilen kopieren wenn Checkbox true tobi85 5 234 14.12.2016, 16:12
Letzter Beitrag: tobi85
Lightbulb VBA Zeile in eine Arbeitsmappe kopieren wenn in der Zeile eine 1 steht Olossos 8 420 11.11.2016, 17:08
Letzter Beitrag: Kuwer

Gehe zu:


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