AW: Checkbox nicht bedienbar wenn Zuweisung aktiv
11.11.2018 10:36:27
M
Hallo Franz,
danke für deine schnelle Antwort.
Die Datei ist leider schon mit Inhalten meines Arbeitgebers versehen die ich so einfach nicht rausbekomme.
Mein Vorhaben ist folgendes
-Checkbox 1 blendet Spalte T:CD ein/aus. Die ControlSource liegt in "T1"
' Ausblenden "SPW"
Private Sub hideSPW_Click()
Application.EnableEvents = False
If ActiveControl.Name = hideSPW.Name Then
If hideSPW.Value = True Then
' ActiveSheet.Columns("T:CD").Hidden = False 'Anmerkung1
Range("T2").Value = True
Range("X2").Value = True
Else
' ActiveSheet.Columns("T:CD").Hidden = True
Range("T2").Value = False
Range("X2").Value = False
End If
Else: Exit Sub
End If
Application.EnableEvents = True
End Sub
-Checkbox 2 blendet Spalten im !Bereich! T:CD ein/aus -> T:W. Die ControlSource liegen auf "T2"
-Checkbox 3 blendet Spalten im !Bereich! T:CD ein/aus -> X:CD. Die ControlSource liegen auf "X2"
-Code für Checkbox 2 und 3 sind bis auf die Spaltenbereiche gleich. Hier der Code für Checkbox 2:
' Ausblenden "IOI"
Private Sub hideIOI_Change()
' If ActiveControl.Name = hideIOI.Name Then 'Anmerkung1
If hideIOI.Value = True Then
ActiveSheet.Columns("T:W").Hidden = False
Else
ActiveSheet.Columns("T:W").Hidden = True
' End If
' Else: Exit Sub
End If
End Sub
'Anmerkung1: Sollte eigntlich verhindern das die Aktion ausgeführt wird wenn der Wechsel in der Control Source nicht durch drücken sondern die Übergeordnete Checkbox erfolgt.
Ich habe auch mal versucht in der Übergeordneten Checkbox nur die beiden ControlSources der untergeordneten Checkboxen zu "bedienen" und deren Code die Spalte ein/ausblenden zu lassen (durch Deaktivierung von 'Anmerkung1-Code), geht aber auch nicht. :-/