Spalten ausblenden mit 2 Checkboxen
Kai
ich habe folgendes Problem:
Ich möchte mit Hilfe von 2 Checkboxen Spalten ausblenden, was eigentlich kein Problem darstellt. Problematisch wird es deshalb, weil der Bereich der durch die Zweite Checkbox ausgeblendet werden soll, Teil des Bereichs ist, der durch Checkbox 1 aus und eingeblendet wird.
1)
Checkbox1: nicht Aktiv
Checkbox2: nicht Aktiv
Spalten C:H ausgeblendet
2)
Checkbox1: nicht Aktiv
Checkbox2: Aktiv
Spalten C:H ausgeblendet
3)
Checkbox1: Aktiv
Checkbox2: nicht Aktiv
Spalten C:H eingeblendet
4)
Checkbox1: Aktiv
Checkbox2: Aktiv
Spalten C:H eingeblendet
Spalten D:G ausgeblendet
Das Problem ist das es soweit funktioniert, allerdings wenn die Fälle in bestimmteR Rheinfolge angeklickt werden, ist auf einmal Teil D:G nur eingeblendet, wenn die Checkboxen unabhängig voneinander arbeiten.
Private Sub CheckBox1_Click()
ActiveCell.Activate
With CheckBox1
If .Value = False Then
ThisWorkbook.Sheets("Jan.").Columns("C:H").EntireColumn.Hidden = True
Else
ThisWorkbook.Sheets("Jan.").Columns("C:H").EntireColumn.Hidden = False
End If
End With
End Sub
Private Sub CheckBox2_Click()
ActiveCell.Activate
With CheckBox2
If .Value = True Then
ThisWorkbook.Sheets("Jan.").Columns("D:G").EntireColumn.Hidden = True
Else
ThisWorkbook.Sheets("Jan.").Columns("D:G").EntireColumn.Hidden = False
End If
End With
End Sub
Gibt es evtl. eine praktikablere Lösung?
Viele Grüße
Kai
Anzeige