Kontrollkätchen mit ausblenden
Markus
ich habe folgenden Code:
Sub auswahl_druck_anpassen_ein()
'Spalten für Auswertungsliste anpassen
Dim sspalte As Long
For sspalte = 1 To 40
If Cells(3, sspalte).Value = WAHR Then
Columns(sspalte).EntireColumn.Hidden = False
Else
Columns(sspalte).EntireColumn.Hidden = True
End If
Next sspalte
End Sub
Damit blende ich Spalte je nach Wert aus.
Diesen Wert lege ich anhand von normalen Kontrollkästchen fest.
Mein Problem ist jetzt, dass zwar die Spalten verschwinden, aber die Kontrollkästchen bleiben stehen.
Was kann ich da tun?
Es soll bei einer ausgeblendeten Spalte auch das Kästchen verschwinden.
Danke schonmal
Markus