VBA: Abhängige Dropdown Listen - Inhalte löschen

[okaan]

Hallo liebe Forumsmitglieder,

ich bin leider überhaupt nicht VBA-versiert, allerdings stellt sich mir folgende Problematik, die ich ohne VBA wohl scheinbar nicht lösen kann. Die Datei auf die ich mich beziehe habe ich hier als File zugefügt. 

Wenn man in den vorderen Dropdown-Listen (zB in C8) etwas abändert, bleiben die vorher gewählten Werte in den folgenden Listen (D8 und E8) weiter bestehen, wobei D8 von der Auswahl in C8 abhängig ist, und E8 von der Auswahl in D8. 
z.B. ausgewählt ist C8 = "Kommunikation" - D8 = "Weltweit" - E8 = "Gerd"
daraufhin ändert man C8 zu "Technik" : D8 und E8 bleiben aber als "Weltweit" und "Gerd" bleiben weiter bestehen

Gibt es in VBA eine Möglichkeit, die Datei so zu programmieren, dass die Felder, die von dem Feld abhängig sind, das man gerade abändert, keinen Inhalt mehr anzeigen, sondern leer sind? (am besten an meinem Beispiel erklärt, wenn möglich)

Bin für jede Hilfe sehr dankbar!

[okaan]

Hallo liebe Forumsmitglieder,

ich bin leider überhaupt nicht VBA-versiert, allerdings stellt sich mir folgende Problematik, die ich ohne VBA wohl scheinbar nicht lösen kann. Die Datei auf die ich mich beziehe habe ich hier als File zugefügt.

Wenn man in den vorderen Dropdown-Listen (zB in C8) etwas abändert, bleiben die vorher gewählten Werte in den folgenden Listen (D8 und E8) weiter bestehen, wobei D8 von der Auswahl in C8 abhängig ist, und E8 von der Auswahl in D8. 
z.B. ausgewählt ist C8 = "Kommunikation" - D8 = "Weltweit" - E8 = "Gerd"
daraufhin ändert man C8 zu "Technik" : D8 und E8 bleiben aber als "Weltweit" und "Gerd" bleiben weiter bestehen

Gibt es in VBA eine Möglichkeit, die Datei so zu programmieren, dass die Felder, die von dem Feld abhängig sind, das man gerade abändert, keinen Inhalt mehr anzeigen, sondern leer sind? (am besten an meinem Beispiel erklärt, wenn möglich)

Bin für jede Hilfe sehr dankbar!

[okaan]

Habe die Lösung:


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$8" Then
    Cells(8, 4).Value = ""
    Cells(8, 5).Value = ""
End If
If Target.Address = "$D$8" Then
    Cells(8, 5).Value = ""
End If
End Sub