Hallo Forum Mitglieder, ich bitte euch mir zu helfen.
Folgendes Problem:
Ich möchte mit einer Schleife die Checkboxen durchgehen und wenn der Wert auf true steht, möchte ich das zugehörige worksheet aufrufen.
Die Labels stehen neben den checkboxen und haben die gleiche Nummerierung.
Hier mein Code:
For monat = 1 To 12
If Controls("CheckBox" & monat).Value = True Then
i2 = Controls("Label" & monat).Caption
Worksheets(i2).Visible = True
End If
If Controls("checkbox" & monat).Value = False Then
i2 = Controls("Label" & monat).Caption
Worksheets(i2).Visible = False
End If
Next monat
Danke für eure Hilfe
lG tine