Kombinieren ähnlicher If statements
28.10.2015 19:12:09
Martin
ich bin VBA-Neuling und habe folgenden Code in einer Userform, der verschiedenen Checkboxen ein Event zuweist.
Der Code funktioniert soweit, sieht aber für mich sehr stark nach Wiederholung aus (da ich insgesamt 5 Checkboxen habe).
Da der Code für jede Checkbox identisch ist (einziger Unterschied: Name / fortlaufende Nummer der Checkbox = Name des auszublendenden Bereichs), dachte ich, man könnte dies vielleicht auch kombinieren und verkürzen (z.B. durch einen Loop).
Kann mir jemand damit helfen und mir vielleicht auch eine kurze Erklärung geben ?
Mein Code (restliche 2 Checkboxen analog):
Private Sub CheckBox1_Change()
Worksheets(2).Unprotect Password:=strPw
If CheckBox1.Value = True Then
Worksheets(2).Range("Option1").EntireRow.Hidden = False
Else
Worksheets(2).Range("Option1").EntireRow.Hidden = True
End If
Worksheets(2).Protect Password:=strPw, UserInterfaceOnly:=True
End Sub
Private Sub CheckBox2_Change()
Worksheets(2).Unprotect Password:=strPw
If CheckBox2.Value = True Then
Worksheets(2).Range("Option2").EntireRow.Hidden = False
Else
Worksheets(2).Range("Option2").EntireRow.Hidden = True
End If
Worksheets(2).Protect Password:=strPw, UserInterfaceOnly:=True
End Sub
Private Sub CheckBox3_Change()
Worksheets(2).Unprotect Password:=strPw
If CheckBox3.Value = True Then
Worksheets(2).Range("Option3").EntireRow.Hidden = False
Else
Worksheets(2).Range("Option3").EntireRow.Hidden = True
End If
Worksheets(2).Protect Password:=strPw, UserInterfaceOnly:=True
End Sub
Michael Och