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

Zeilen Ausblenden, wenn Bedingung erfüllt ist

Forumthread: Zeilen Ausblenden, wenn Bedingung erfüllt ist

Zeilen Ausblenden, wenn Bedingung erfüllt ist
25.04.2025 12:37:38
Tobias
Moin,

ich hoffe Ihr könnt mir mit meinem Problem helfen.
Ich würde gerne folgendes mit VBA programmieren:

Wenn Zelle G9 in Tabellenblatt1 gleich NEIN ist dann sollen in Tabellenblatt 2 die Zeilen 3 bis 6 ausgeblendet werden. Wenn G9 gleich JA dann bleibt sie eingeblendet (passiert nichts)

Danke!!!

Gruß
Tobi
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen Ausblenden, wenn Bedingung erfüllt ist
25.04.2025 12:49:21
{Boris}
Hi,

wie kommen JA bzw. NEIN in die Zelle? Per Hand oder per Formel?

VG, Boris
AW: Zeilen Ausblenden, wenn Bedingung erfüllt ist
25.04.2025 12:49:37
UweD
Hallo


- Rechtsclick auf den Tabellenblattreiter von Tabelle1
- Code anzeigen
- Diesen Code rechts reinkopieren

Private Sub Worksheet_Change(ByVal Target As Range)


If Not Intersect(Target, Range("G9")) Is Nothing Then
Sheets("Tabelle2").Rows("3:6").EntireRow.Hidden = (Target = "Nein")
End If

End Sub


Hier wird nur auf Nein oder alles Andere verglichen.
Wenn explizit auch Ja geprüft werden soll, dann musst du noch angeben, was geschehen soll, wenn weder Ja noch Nein
...

LG UweD
Anzeige
AW: Zeilen Ausblenden, wenn Bedingung erfüllt ist
25.04.2025 12:51:50
Yal
Hallo Tobi,

das wird mit einer Ereignisprozeudre erreicht:
- Klick auf dem Reiter des Blattes "Tabelle1"
- "Code anzeigen" wählen
- in dem gerade geöffneten Codepane von Tabelle1 folgenden Code copy-pasten
Private Sub Worksheet_Change(ByVal Target As Range)


If Target.Address = "$G$9" Then
Application.EnableEvents = False
Worksheets("Tabelle2").Range("A3:A6").EntireRow.Hidden = (UCase(Target.Value) = "NEIN")
Application.EnableEvents = True
End If
End Sub
Fertig.
(Code im Detail anschauen und versuchen, zu verstehen, ist sehr hilfreich, um das VBA-Verständnis zu erhöhen)

Datei als xlsm speichern.

VG
Yal
Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige