Office: (Office 2013) Zeilen Ein-/Ausblenden über Dropdown mit Hilfe VBA

Hallo Leute,

ich versuche gerade über eine Dropdown Zelle bei der Auswahl von "Ja"
mehrere gefüllte Zeilen mit Inhalt unterhalb erscheinen zu lassen. Dies würde
ich gerne über VBA realisieren. Habt ihr irgendwelche Ideen, wie sich dies realisieren lässt?

Beste Grüße

 

Hallo,

wenn sich das DD zB. in Tabelle1!A1 befindet, in das Codemodul von Arbeitsblatt "Tabelle1" folgendes Makro eingeben, das auf das Change-Event in diesem Arbeitsblatt reagiert:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$A$1" Then
      On Error Goto Exit_Err
      Application.EnableEvents = False
      If Target.Value = "ja" Then
        Me.Range("A5") = "Es wurde im DD von A1 ein 'ja' ausgewählt."
      Else
        Me.Range("A5") = ""
      End If
Exit_Err:
      Application.EnableEvents = True
  End If
End Sub

Wird im DD ein "ja" ausgewählt, erscheint in Zelle Tabelle1!A5 der Text "Es wurde im DD von A1 ein 'ja' ausgewählt."
Wird ein anderer Wert ausgewählt, verschwindet er wieder.

Dieses Codemodul erreichst du am schnellsten, wenn du auf den Tabulator des Arbeitsblattes "Tabelle1" einen Rechtsklick ausführst und anschließend den Befehl "Code anzeigen" auswählst.