Noch ein Problem: CommandButton in ToggleButton
14.03.2004 17:01:17
Sascha
Über einen CommandButton kann ich ab dem 2. Blatt die Spalten E, G, I,.... ausblenden, wenn in Zelle1 der Spalte der Wert 0 ist. Wie muß ich den Code erweitern, wenn ich stattdessen einen ToggleButton (Umschalter) verwenden will, der mir diese Spalten bei Bedarf auch wieder einblendet (unabhägig vom Wert der Zelle1).
Private Sub CommandButton1_Click()
Dim spaArray(), n%
spaArray = Array("E", "G", "I", "K", "M", "O", "Q", "S", "U", _
"W", "Y", "AA", "AC", "AE", "AG", "AI")
For i = 2 To Application.Sheets.Count
For n = LBound(spaArray()) To UBound(spaArray())
If Not IsEmpty(Worksheets(i).Range(CStr(spaArray(n)) & "1")) And Worksheets(i).Range(CStr(spaArray(n)) & "1") = 0 Then
Worksheets(i).Columns(spaArray(n) & ":" & spaArray(n)).Hidden = True
End If
Next n
Next i
End Sub
Wie immer, vielen Dank!
mfg
Sascha
Anzeige