Zeilen ein/ausblenden mit Makro
Rico
ich habe viele Varianten gelesen, aber entweder sind es solche die ich nicht möchte oder sie funktionieren bei mir dann doch nicht ganz.
Ich möchte per Kontrollkästchen (welches ist geeigneter, Formularsteuerelement oder ActivX-Steuerelement?) einen Zeilenbereich ein und ausblenden.
In meinem Versuchsbeispiel liegt das Kontrollkästchen selbst in Zelle "O28". Es ist grundsätzlich auf "nicht aktiv" eingestellt und somit sollen anfangs die Zeilen (35:39) nicht angezeigt werden
(1.Problem: selbst das gelinkt mir nicht, es ist immer so eingestellt wie es beim letzten Speichern war, später dazu mehr. In "P28" wird jeweils WAHR und FALSCH ausgegeben falls das nötig ist. Geht aber auch ohne wie ich merke, mit Bezug auf O28.
Bei Auswahl (Häckchen setzen bei "O28" - oder in "P28" WAHR) sollen die Zeilen (35:39) eingeblendet werden. Bei umgekehrter Auswahl (Häckchen entfernen bei "O28" - oder in "P28" FALSCH) sollen die Zeilen (35:39) wieder ausgeblendet werden.
Habe beim googeln mal gelesen, das ich dann 2 Makros brauche oder eine Umschaltfläche nutzen soll, aber Umschaltfläche ist wenig selbsterklärend, da kommen nur Rückfragen von Endusern. Geht aber zur Not auch.
Später sollen es bis zu 63 Kontrollkästchen sein = Anordnung von 63 aufzurufender Gebäude in ein und dem selben Tabellenblatt mit jeweiligem Zeilenbereich(xx:xx).
2. Problem: Wenn es nicht geht, dass alle Kontrollkästchen bei Start inaktiv sind, dann bräuchte ich wohl eine Schaltfläche zum Deaktivieren aller Kästchen. Mir wäre lieb es geht ohne weitere Schaltfläche.
3. Problem: Da ich absoluter Leihe bin und mir das hier für meine Diplomarneit alles per learning by doing beibringe, weiss ich auch nicht wie ich hintereinander weg den Befehl für das folgende Kontrollkästchen angebe. Also in "O29" das nächste Kästchen und Zeilen (40:44) ein/ausblenden. Bitte zeigen wie das geht :)
******
Damit ihr seht wie weit ich bisher war, hier der Versuch mit ausblenden der Zeile 35, _ einblenden hat dann auch bei etlichen Varianten leider nicht mehr geklappt.
Public Sub Worksheet_Change(ByVal Target As Range)
If Worksheets("Tabelle1").Range("P28").Value = Falsch Then
Worksheets("Tabelle1").Rows(35).Hidden = True
Else
Worksheets("Tabelle1").Rows(35).Hidden = False
End If
End Sub
******
Vielen Dank schonmal fürs grübeln
Rico