Checkbox mit Fehlermeldung?
18.03.2005 09:52:06
Korl
ich bräuchte mal wieder einen VBA-Spezialisten.
In der Recherche habe ich einen Code für eine Checkbox gefunden den ich mir gerne zu Nutze machen möchte.
Diesen Code habe ich 1zu 1 übernommen und erhalte an der Stelle "Columns" die Fehlermeldung "unzulässige Verwendung einer Eigenschaft"
Private Sub Checkbox1_Click()
Dim wks As Worksheet
For Each wks In Worksheets
If wks.Index <> 1 Then
Wks.Columns("H"):Hidden = Not Checkbox1.Value
End If
Next wks
End Sub
Des Weiteren möchte ich den Code gerne auf meine Bedürfnisse anpassen.
Der o.g. Vorgang soll nicht in der ganzen Workbook durchlaufen sondern nur in den Tabellenblätter 1 bis12. Die Namen der Tabellenblätter sind die Zahlen.
Was ist mein eigentliches Ziel? Es geht um einen Schichtplan, in den ich Personen, die noch nicht vorhanden sind, die dazu gehörigen Spalten ausblenden möchte.
Also Häkchen in der Checkbox rein, Spalten aus bzw. einblenden.
Würde mich freuen, wenn sich einer meiner annimmt!
Gruß Korl
Anzeige