Das Clever-Excel-Forum.de - Treffen
findet vom 15. - 17. September 2017 in 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
  Ausgeblendete Spalten einblenden ricface 21 291 24.02.2017, 17:50
Letzter Beitrag: snb
  VBA Zeilen verschieben wenn Bedingungen erfüllt DanOnline 1 138 25.01.2017, 15:36
Letzter Beitrag: atilla
  Zeilen mit Checkboxen ausblenden/einblenden Hawkeye 1 89 19.12.2016, 23:50
Letzter Beitrag: Kuwer
  Wenn in Zeile X steht dann in Zeile Y folgendes technoente 11 312 14.12.2016, 16:15
Letzter Beitrag: BoskoBiati
  Zeilen kopieren wenn Checkbox true tobi85 5 173 14.12.2016, 16:12
Letzter Beitrag: tobi85
Lightbulb VBA Zeile in eine Arbeitsmappe kopieren wenn in der Zeile eine 1 steht Olossos 8 313 11.11.2016, 17:08
Letzter Beitrag: Kuwer
  Zeilen auf Inhalt überprüfen und duplizieren Office365-CH 1 128 22.10.2016, 21:52
Letzter Beitrag: WillWissen
  Makro zum kopieren von Zeile wenn Wort drin steht l2amzZ 2 246 14.09.2016, 22:57
Letzter Beitrag: IchBinIch
  Funktion -> Nur in Spalte X zählen wenn Y in Spalte Z steht MacTop 18 872 07.09.2016, 13:59
Letzter Beitrag: MacTop
  Neue Zeile einfügen falls nach gesuchten Wert schon was in der Spalte steht. mig2881 3 262 04.09.2016, 13:48
Letzter Beitrag: Kuwer

Gehe zu:


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