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
Lightbulb VBA Zeile in eine Arbeitsmappe kopieren wenn in der Zeile eine 1 steht Olossos 8 119 11.11.2016, 17:08
Letzter Beitrag: Kuwer
  Zeilen auf Inhalt überprüfen und duplizieren Office365-CH 1 77 22.10.2016, 21:52
Letzter Beitrag: WillWissen
  Makro zum kopieren von Zeile wenn Wort drin steht l2amzZ 2 155 14.09.2016, 22:57
Letzter Beitrag: IchBinIch
  Funktion -> Nur in Spalte X zählen wenn Y in Spalte Z steht MacTop 18 527 07.09.2016, 13:59
Letzter Beitrag: MacTop
  Neue Zeile einfügen falls nach gesuchten Wert schon was in der Spalte steht. mig2881 3 168 04.09.2016, 13:48
Letzter Beitrag: Kuwer
  In welcher Zeile steht der Wert "X"? nixdaacher 2 173 03.08.2016, 11:37
Letzter Beitrag: nixdaacher
  Excel Hilfe --> Zellen sperren, wenn Inhalt in Zelle XY MacTop 11 741 06.07.2016, 15:28
Letzter Beitrag: schauan
  VBA - Zellschutz aktivieren, wenn in einer anderen Zelle ein bestimmter Wert steht Naddus0207 12 890 08.06.2016, 13:09
Letzter Beitrag: Rabe
  Zellen verbinden wenn Inhalt manuel-bike 1 312 06.06.2016, 13:35
Letzter Beitrag: BoskoBiati
  Wenn etwas in einer Zelle steht dann mehrere Dinge kopieren sediality 8 647 31.05.2016, 20:25
Letzter Beitrag: steve1da

Gehe zu:


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