Hallo Kollegen
Diesen Code möchte ich vereinfachen und dachte dabei an eine Select Case Anweisung.
hat vielleicht jemand einen Tipp wie ich das vereinfachen kann?
Es funktioniert zwar so, aber es sind sehr viele solche Abfragen und dies macht den gesamten Code ein wenig unübersichtlich.
If CB6.Value = 6 Then
GTI1 = True
GBI1 = True
GTI2 = True
GBI2 = True
Else
GTI1 = False
GBI1 = False
GTI2 = False
GBI2 = False
End If
Ich bedanke mich bereits jetzt herzlich für eure Hilfe.
Gruss Alderan