Vereinfachung von:

Bild

Betrifft: Vereinfachung von:
von: muehli
Geschrieben am: 27.10.2015 10:11:27

Hallo zusammen,
ich habe gerade einen simplen Code geschrieben, der mir aber unnötig lang vorkommt.
Deswegen wollte ich fragen, wie man diesen Code vereinfachen kann.

If AnzahlIIB <= 2 Then
CBox_Gr_EncIIB_2.Visible = False
End If
If AnzahlIIB <= 3 Then
CBox_Gr_EncIIB_3.Visible = False
End If
If AnzahlIIB <= 4 Then
CBox_Gr_EncIIB_4.Visible = False
End If
If AnzahlIIB <= 5 Then
CBox_Gr_EncIIB_5.Visible = False
End If
If AnzahlIIB <= 6 Then
CBox_Gr_EncIIB_6.Visible = False
End If
If AnzahlIIB <= 7 Then
CBox_Gr_EncIIB_7.Visible = False
End If
If AnzahlIIB <= 8 Then
CBox_Gr_EncIIB_8.Visible = False
End If
If AnzahlIIB <= 9 Then
CBox_Gr_EncIIB_9.Visible = False
End If
If AnzahlIIB <= 10 Then
CBox_Gr_EncIIB_10.Visible = False
End If
If AnzahlIIB <= 11 Then
CBox_Gr_EncIIB_11.Visible = False
End If
If AnzahlIIB <= 12 Then
CBox_Gr_EncIIB_12.Visible = False
End If
If AnzahlIIB <= 13 Then
CBox_Gr_EncIIB_13.Visible = False
End If
If AnzahlIIB <= 14 Then
CBox_Gr_EncIIB_14.Visible = False
End If
If AnzahlIIB <= 15 Then
CBox_Gr_EncIIB_15.Visible = False
End If
If AnzahlIIB <= 16 Then
CBox_Gr_EncIIB_16.Visible = False
End If
Freundliche Grüße
muehli

Bild

Betrifft: AW: Vereinfachung von:
von: Rudi Maintaire
Geschrieben am: 27.10.2015 10:20:35
Hallo,
sollte mit

for i= anzahlIIB to 16
me.controls("cbox_gr_encIIb_" &i).visible=false
next

funktionieren.
Gruß
Rudi

Bild

Betrifft: AW: Vereinfachung von:
von: muehli
Geschrieben am: 27.10.2015 11:23:39
Hallo Rudi,
danke für die schnelle Antwort,
ich werde es mal versuchen.
Gruß
muehli

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Prüfen ob mehrere Tabellen vorhanden"