Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1420to1424
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zeilen per VBA ausblenden

Zeilen per VBA ausblenden
09.04.2015 20:03:21
Paul

Hallo,
ich weiß das Thema gibt es häufig, trotzdem schaffe ich es irgendwie nicht. Ich mochte bestimmte Zeilen ausblenden sobald eine Zelle den Wert 1 hat. Wenn sie den Wert 0 hat sollen diese Zeilen wieder eingeblendet werden. Es gibt nur diese zwei Werte da ich die Zelle mit einen Button oder Kontrollkästchen verknüpfen will. Ich habe null Ahnung von VBA, deswegen habe ich es auch nicht geschafft diverse aus dem Internet gezogenen Skripte dementsprechend anzupassen oder irgendwelche Makros selbst aufzunehmen.
Ich lade meine Tabelle mit hoch, aber sie ist noch lange nicht fertig. Es wird eine Dienstplantabelle. Die Zeilen die ein- und ausgeblendet werden sind zum bearbeiten der Dienstzeiten, um sie auszudrucken oder zu versenden sollen die Eingabewerte ausgeblendet werden.
Momentan handelt es sich um die Zeilen 36, 37, 38 welche ausgeblendet werden sollen wenn Zelle A2=1 ist und eingeblendet werden sollen wenn sie =0 ist. Ich werde aber noch mehrere Mitarbeiter und weitere 3 Wochen einfügen um einen Monatsdienstplan erstellen zu können. Es sollen also dann weitere Zeilen in weiteren Arbeitsblättern aus- bzw. eingeblendet werden.
Vielen Dank für eure Hilfe!
Paul.
https://www.herber.de/bbs/user/96986.xlsm

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen per VBA ausblenden
09.04.2015 21:22:27
Werner
Hallo Paul,
rechtsklick auf den Reiter des Tabellenblattes in dem sich das abspielen soll, Code anzeigen auswählen und den folgenden Code ins Codefenster kopieren.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A2]) Is Nothing Then
Rows("24:26").Hidden = False
Select Case [A2].Value
Case 1: Rows("36:38").Hidden = True
Case 0: Rows("36:38").Hidden = False
End Select
End If
End Sub
Gruß Werner

AW: Zeilen per VBA ausblenden
09.04.2015 22:00:26
Gerd L
Hallo Paul!
Ins Codefenster der Tabelle "Woche 1" kopieren:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2")) Is Nothing Then
Rows("36:38").Hidden = Range("A2") = 0
End If
End Sub

Gruß Gerd

Anzeige
AW: Zeilen per VBA ausblenden
09.04.2015 23:06:17
Paul
Vielen Dank ihr beiden, so klappt es!

AW: Danke für die Rückmeldung owT
09.04.2015 23:18:57
Werner

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige