Excel VBA
23.01.2020 14:45:21
Sonja
ich muss mich, wie meine Vorgänger, auch als Laie outen. Ich möchte eine Anwesenheitsliste _ erstellen. In den Zeilen sind die Mitarbeiter, in den Spalten das laufende Jahr (365 Tage). Über dieses Forum habe ich ein Makro übernommen, welches Spalten ausblendet. Dieses Makro habe ich umgedreht, sodass es mir nur den gewünschten Monat einblendet. (wie folgt)
Private Sub Check1_Click()
'Januar
Dim i%, Ab%, Bis%, Was$
Ab = 6: Bis = 371 'F bis NG
Was = "1"
Application.ScreenUpdating = True
With ActiveSheet
.Range(Columns(Ab), Columns(Bis)).EntireColumn.Hidden = True 'zurücksetzen
For i = Ab To Bis
If .Cells(3, i) = Was Then
.Columns(i).EntireColumn.Hidden = False
End If
Next i
End With
End Sub
Jetzt habe ich folgendes Problem:
Ich habe eine CheckBox erstellt, welche für jeden Monat ein Kästchen zum Häkchen setzen hat. Wenn ich jetzt z.B. Januar, Februar und März einblenden haben möchte, klappt das nicht. Es zeigt mir immer nur einen der 3 Monate an. Was muss ich machen, dass ich über die Auswahl der Checkbox die Monate angezeigt bekomme, bei denen ich einen Haken gesetzt habe?
Anzeige