3 aufeinander aufbauende Abfragen
01.03.2023 08:44:28
Toni
ich habe in einem Arbeitsblatt mehrere Abfragen (ja/nein/leer) hintereinander.
3 dieser Fragen bauen aufeinander auf. Gebe ich in Frage 1 "ja" ein, blendet sich Frage 2 ein usw.
Das stellt erstmal kein Problem dar.
Ich möchte aber, den Inhalt der Frage 2 und 3 löschen, wenn Frage 1 mit "nein" oder "" beantwortet wird.
Wenn nur Frage 2 "nein" enthält, dann logischerweise nur Frage 3 leeren.
Anbei mein derzeitiger Code.
Die Löschfunktion habe ich zwar eingeben, führt jedesmal zum Fehler und/oder Absturz.
Ich habe alle im VBA eingebundenen Zellen mit einem neuen Namen versehen (z.B. drop16.2). Das erleichtert so einiges.
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("drop16.2").Value = "ja" Then
Rows("9:14").Hidden = False
Rows("18:19").Hidden = False
If Range("drop16.3").Value = "ja" Then
Rows("15:17").Hidden = True
Rows("20:24").Hidden = False
If Range("drop16.4").Value = "ja" Then
Rows("25:27").Hidden = False
Else
Rows("25:27").Hidden = True
End If
ElseIf Range("drop16.3").Value = "nein" Then
Rows("15:17").Hidden = False
Rows("20:27").Hidden = True
'Sheets("16").Range("drop16.4").ClearContents oder 'Sheets("16").Range("drop16.4").Value = ""
ElseIf Range("drop16.3").Value = "" Then
Rows("15:17").Hidden = True
Rows("20:27").Hidden = True
'Sheets("16").Range("drop16.4").ClearContents oder 'Sheets("16").Range("drop16.4").Value = ""
End If
ElseIf Range("drop16.2").Value = "nein" Or Range("drop16.2").Value = "" Then
Rows("9:27").Hidden = True
'Sheets("16").Range("drop16.3").ClearContents oder 'Sheets("16").Range("drop16.3").Value = ""
End If
End Sub