Zeilen Ein-/Ausblenden bei Bedingung

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Geklickte() Dim Nummer As Variant, X As Integer Nummer = Array(11, 12, 14, 107, 110) 'die relevanten Kästchen-Endnummern With Worksheets("Blanko") For X = UBound(Nummer) To LBound(Nummer) Step -1 If .Shapes("Kontrollkästchen " & Nummer(X)).ControlFormat.Value = False Then Exit For Next If X = -1 Then For X = LBound(Nummer) To UBound(Nummer) .Shapes("Kontrollkästchen " & Nummer(X)).ControlFormat.Value = False Next .Shapes("Kontrollkästchen 10").ControlFormat.Value = False 'Haken im Kästchen aus F37 entfernen .Rows("38:56").Hidden = True End If End With End Sub

Hallo,
das Problem ist nicht ganz einfach zu lösen. Die Zeilen von 38 bis 56 sollen ja erst dann ausgeblendet werden, wenn sämtliche Kontrollkästchen nach Zeile 37 aktiviert sind. Und dies natürlich automatisch. Die Problemlösung sieht wie folgt aus:
Die Zellverknüpfung der Kontrollkästchen ist in der Beispieltabelle jeweils die für dieses benutzte Zelle. Für die Kontrollkästchen in den Zeilen 38 bis 48 habe ich die Verknüpfungsbezüge umgestellt, beginnend mit der Zelle AZ1; und fortlaufend in der Spalte AZ weiter bis AZ30. In der Spalte BB wird WAHR in 1 und FALSCH in 0 eingestellt. Erst wenn die Summe in Zelle BB34 bzw. BF34 "30" erreicht hat, sind alle Kontrollkästchen in dem Bereich aktiviert und die Zeilen sind auszublenden. Die entsprechenden Kontrollkästchen sind alle mit dem Makro 2 (Modul 4) verknüpft. Wird nun irgendeins der relevanten Kontrollkästchen aktiviert, sorgt der Makro 2 für eine Kopie der Summe nach BF34. Erscheint hier die Summe "30", werden die Zeilen ausgeblendet. Zum Schluss wird der Inhalt von BF34 radiert. Das Kontrollkästchen in Zeile 37 wird deaktiviert. Solange die "30" nicht erreicht wird, passiert nichts. Es erfolgt damit gewissermaßen eine Prüfung bei jedem anklicken eines Kontrollkästchens.
Das (1.) Kontrollkästchen in der Zeile 37 habe ich auf die Zelle BF1 bezogen. Erscheint dort WAHR, steht in Zelle BH1 eine 1, sonst eine 0. Beim Aktivieren des Kästchens wird hier zunächst eine kleine Pause gemacht, damit das WAHR in der Zelle BF1 erscheint, erst dann erfolgt die Zeileneinblendung.
In Deiner Beispieldatei wird "bedingte Formatierung" verwendet. Diese geht auf die Bezüge der Kontrollkästchen zurück. Da ich diese in den Zeilen 38 bis 48 geändert habe, muss die bedingte Formatierung - falls in diesem Bereich gewünscht - entsprechend auf die Zellen in der Spalte AZ geändert werden.
Hier miene Lösung: https://www.herber.de/bbs/user/153361.xlsm
Bitte mal ausprobieren, Rückmeldung wäre schön.
Mit freundlichem Gruß
Peter Kloßek

Beliebteste Forumthreads (12 Monate)

Zeilen Ein-/Ausblenden bei Bedingung

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread