Wie muss ich Code verändern?
11.03.2004 12:00:17
Tackerharry
Mit diesem CommandButton kann ich die Spalten "E", "G", "I",.... ausblenden, wenn der Wert der Zelle 1 = 0 ist.
Nun möchte ich aber den CommandButton nur auf das erste Tabellenblatt setzen und es sollen nur die Spalten der Blätter 2 bis 21 (bzw. "Blatt_2", "Blatt_3", ...."Blatt_21")ausgeblendet werden. Kann mir da Jemand helfen, wie ich den Code umschreiben muss?
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 n = LBound(spaArray()) To UBound(spaArray())
If Not IsEmpty(Range(CStr(spaArray(n)) & "1")) And Range(CStr(spaArray(n)) & "1") = 0 Then
Columns(spaArray(n) & ":" & spaArray(n)).Hidden = True
End If
Next n
End Sub
Vielen Dank schon mal!
mfg
Tackerharry
Anzeige