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
Wie kann ich dieses Problem lösen?
Vielen Dank für Eure Hilfe.
Gruß
Hannes
Anzeige