Ja/Nein Abfrage ausblenden lassen

Forumthread: Ja/Nein Abfrage ausblenden lassen
4 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Ja/Nein Abfrage ausblenden lassen

09.04.2024 13:37:58

Lisa Heim

Ich möchte bei einer "ja" Kennzeichnung immer den Fragenkatalog einblenden und ansonsten ausblenden. Ich habe es jetzt so geregelt, dass ich eine WennFunktion auf A13 gebildet, die besagt, wenn bei einem der Dropdown leisten ein "ja" dabei ist "SHOW" dastehen soll. Dann hab ich bei VB folgendes eingegeben:

Private Sub Workbook_Open()
If Range("A13").Value = "SHOW" Then
Rows("14:34").EntireRow.Hidden = False
Else:
Rows("14:34").EntireRow.Hidden = True
End If
End Sub

Nur wenn ich auf Ausführen klicken funktioniert es.

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Ja/Nein Abfrage ausblenden lassen

09.04.2024 13:41:58

{Boris}
AW: Ja/Nein Abfrage ausblenden lassen

09.04.2024 14:30:40

Yal
AW: Ja/Nein Abfrage ausblenden lassen

09.04.2024 15:57:49

Onur
AW: Ja/Nein Abfrage ausblenden lassen

09.04.2024 17:59:49

Lisa Heim

AW: Ja/Nein Abfrage ausblenden lassen

09.04.2024 13:41:58

{Boris}

Hi,

funktioniert nicht ist nicht wirklich hilfreich. Das kann mehrere Gründe haben. Z. B. referenzieren Deine Ranges nicht auf ein bestimmtes Tabellenblatt.
Deine Beispieldatei wär hilfreich.

VG Boris

AW: Ja/Nein Abfrage ausblenden lassen

09.04.2024 14:30:40

Yal

Hallo Lisa,

die Ereignis-Prozedure "Workbook_Open" ist nicht an einem Blatt gebunden, sondern an der gesamte Mappe. Daher kann Range("A13") nicht ermittelt werden, weil nicht klar, auf welchem Blatt diese A13 gelesen werden sollte.

Wenn per Dropdown eindeutig "ja" zurückgeben wird, kann man dann direkt darauf "reagieren lassen". Ein solche Zustandsänderung-Beobachtung wird mit Worksheet_Change getrackt. Aus dem Namen kannst Du entnehmen, dass es an einem Blatt gebunden ist. Dementsprechend ist solche Ereignis-Procedure in dem Codepane des Blattes, die reagieren zu paltzieren. In Excel, rechtsklicke auf dem Reiter des gewünschten Blattes und wähle "Code anzeigen". Dann bist Du in der Codepane dieses Blattes.

Private Sub Worksheet_Change(ByVal Target As Range)

    Rows("14:34").Hidden = (LCase(Range("A12").Value) > "ja") 'Prüfungergebnis ist boolean (true oder false)

End Sub

Wenn nicht passend, dann nur mit Beispieldatei.

VG
Yal

AW: Ja/Nein Abfrage ausblenden lassen

09.04.2024 15:57:49

Onur

Private Sub Workbook_Open() wird, wie der Name es schon wage andeutet, nur beim ÖFFNEN der Datei ausgeführt.
Was du eher brauchst, ist das Change-Event des Blattes.

AW: Ja/Nein Abfrage ausblenden lassen

09.04.2024 17:59:49

Lisa Heim

Wie würde ich das eingeben?