Probleme bei nicht vorhandenen Objekten
17.06.2015 07:15:43
Hannes
ich habe dynamisch eine Userform mit etlichen Checkboxes und Label erstellt, in welcher der User auswählen kann welche Felder er miteinander vergleichen will. Nachdem die Auswahl getätigt wurde betätigt der User einen Button und es sollen die entsprechenden Felder miteinander verglichen werden. Zuerst muss ich jedoch feststellen, welche Checkboxes vorhanden sind. Dafür hätte ich den Code
If Not Controls(benennung_felder(z) & "_" & benennung_felder(m)) Is
Nothing Then
vorgesehen
Der Name der der Ceckboxes wird bei der Erstellung der Userform mittels "benennung_felder(z) & "_" & benennung_felder(m)" festgelegt.
For z = 2 To anz_felder
For m = 1 To anz_felder
If Not Controls(benennung_felder(z) & "_" & benennung_felder(m)) Is
Nothing Then
If Controls(benennung_felder(z) & "_" &
benennung_felder(m)).Value = True Then
arr_vergleich(z, m) = benennung_felder(z)
arr_vergleich(z, m + 1) = benennung_felder(m)
End If
End If
Next m
Next z
Kommt ich nun in meiner Schleife auf eine Checkbox welche nicht existiert erhalte ich die Fehlermeldung, dass das angegebene Objekt nicht gefunden werden konnte.Wie kann ich dieses Problem lösen?
Vielen Dank für Eure Hilfe.
Gruß
Hannes