Code verkürzen
15.07.2019 13:32:17
KJ
gibt es einen Weg den folgenden Code zu verkürzen? Vielen Dank schonmal im Voraus.
Private Sub global_pst_Click()
If global_pst.Value = True Then
pos_pst.Value = False
mobile_pst.Value = False
web_pst.Value = False
scale_pst.Value = False
lpp_pst.Value = False
End If
End Sub
Private Sub pos_pst_Click()
If pos_pst.Value = True Then
global_pst.Value = False
End If
End Sub
Private Sub mobile_pst_Click()
If mobile_pst.Value = True Then
global_pst.Value = False
End If
End Sub
Private Sub web_pst_Click()
If web_pst.Value = True Then
global_pst.Value = False
End If
End Sub
Private Sub scale_pst_Click()
If scale_pst.Value = True Then
global_pst.Value = False
End If
End Sub
Private Sub lpp_pst_Click()
If lpp_pst.Value = True Then
global_pst.Value = False
End If
End Sub