Zeilen ausblenden mit Kombinationsfeld
14.01.2016 08:05:17
Toni
ich bin neu in diesem Forum (auf diesem Wege ein herzliches Hallo) und stehe vor einem Problem, dass mir jetzt schon schlaflose Nächte bereitet! Dazu muss ich sagen, dass sich meine VBA-Kenntnisse leider in Grenzen halten. Aber vielleicht weiß hier jemand, wie ich das hinbekomme.
Folgendes Ziel:
- Mit einem Kombinationsfeld (ActiveX-Steuerelement) kann zwischen Ja und Nein gewählt werden. Dieses Kombinationsfeld gibt das Ja und Nein an eine Zielzelle aus.
- Ist Nein gewählt, sollen die Zeilen 14-24 ausgeblendet sein bei Ja werden sie wieder eingeblendet.
- Sind die Zeilen eingeblendet, erscheint ein weiteres Kombinationsfeld mit drei Auswahlmöglichkeiten (0, 1 und 2). Bei 0 sind die Zeilen 17-32 ausgeblendet, bei 1 nur die Zeilen 25-32 und bei 2 nur die Zeilen 17-24.
Dazu habe ich folgenden VBA-Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("J13") = "Nein" Then Rows("14:24").Hidden = True
If Range("J13") = "Ja" Then Rows("14:24").Hidden = False
If Range("I13") = "0" Then Rows("17:32").Hidden = True
If Range("I13") = "1" Then Rows("17:24").Hidden = False
If Range("I13") = "1" Then Rows("25:32").Hidden = True
If Range("I13") = "2" Then Rows("17:24").Hidden = True
If Range("I13") = "2" Then Rows("25:32").Hidden = False
End Sub
Wo liegt da mein Problem? Warum wird die Änderung nicht sofort registriert?
Hoffentlich konnte ich mein Problem klar schildern ist nicht so einfach! ;-)
Freue mich über jede Hilfe!
lg
Toni
Anzeige