Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: mit Kontrollkästchen und VBA Zeilen ausblenden

mit Kontrollkästchen und VBA Zeilen ausblenden
25.07.2024 19:04:26
Gehrig Pius
Ich suche eine Lösung um mit einem Klick in ein Kontrollkästchen eine oder mehrere Zeilen im gleichen Sheet aus- oder wieder einzublenden.
ich habe schon verschiedenste Varianten ausprobiert, aber es klappt einfach nicht.
in der Zeile 13 habe ich ein Kontrollkästchen für eine Variantenauswahl gesetzt, in der Zelle V13 wir WAHR oder Falsch ausgegeben, bei wahr soll die Zeile 14 eingeblendet sein, bei FALSCH so Zeile 14 ausgeblendet werden.
Meine Lösung:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("V13")) Is Nothing Then
If Range("V13").Value = True Then
Rows("14:14").EntireRow.Hidden = True
Else
Rows("14:14").EntireRow.Hidden = False
End If
End If
End Sub

Value=True habe ich schon durch, Wahr, Falsch, false ersetzt, das Makro will einfach nicht laufen.
hat jemand eine bessere Idee
Anzeige

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

Betreff
Datum
Anwender
Anzeige
Probiere es mal...
25.07.2024 19:51:14
Case
Moin, :-)

so: ;-)
https://www.herber.de/bbs/user/171254.xlsb

Kein "Worksheet_Change" sondern ein Makro in Modul1 - das kannst du dem Kontrollkästchen zuweisen "Rechte Maustaste".

Servus
Case
Anzeige
Hier noch etwas...
25.07.2024 21:35:22
Case
Moin, :-)

... robuster: ;-)
https://www.herber.de/bbs/user/171256.xlsb

Die Zellverknüpfung habe ich rausgenommen. Einfach wieder rein, wenn du sie brauchst. ;-)

Servus
Case
AW: mit Kontrollkästchen und VBA Zeilen ausblenden
26.07.2024 15:37:17
Yal
Salvé Pius,

Private Sub Worksheet_Change(ByVal Target As Range)

If traget.Cells.Count > 1 Then Exit Sub 'es wurden mehr als eine Zelle gleichzeitig geändert -> do nothing
Select Case Target.Address(0, 0)
Case "C13", "C16" 'basierend auf dem Beipsiel von Case
Rows(Target.Row + 1).Hidden = CBool(Target.Value)
End Select
End Sub


VG
Yal
Anzeige
AW: mit Kontrollkästchen und VBA Zeilen ausblenden
26.07.2024 16:52:47
daniel
Hi
das, was du willst, kannst du auch über die Gliederung machen, da geht es dann ohne Makro.

- markiere Zeile 14, bzw alle Zeilen, die gemeinsam ein- und ausgeblendet werden sollen (allerdings müssen diese zu einem Block gehören)
- klicke DATEN - GLIEDRUNG - GRUPPIEREN und mache das für alle Zeilen, die ein- und ausgeblendet werden sollen.
- klicke dann nochmal DATEN - GLIEDERUNG - OPTIONEN (Ecke unten rechts) und nimm den Haken bei "Hauptzeile unter Detaildaten" raus
jetzt solle am linken Bildschirmrand über der Zeile bzw Zeilenblock, für den du das gemacht hast, ein kleines Icon erscheinen. über dieses Icon kannst du Zeilen ein- und ausblenden.
zusätzlich hast du noch in oberen linken Ecke Icons (1, 2) mit welchen du alle Zeilen gemeinsam ein- oder ausblenden kannst.
Gruß Daniel

Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige