Collection variabel/umbenennen
15.05.2008 13:02:49
Specke
ich habe eine Userform, auf der eine variable Anzahl von Checkboxen angelegt werden. Wenn "ok" geklickt wird, werden alle ausgewählte Checkboxen zu einer Collection hinzugefügt:
Sub cmd_ok_click()
Set System = Nothing
For i = 1 To Me.Controls.Count - 1
If TypeName(Me.Controls(i)) = "CheckBox" Then
If Me.Controls(i).Value = True Then
System.Add Item:=Me.Controls(i).Caption
End If
End If
Next i
End Sub
Soweit funktioniert das auch.
Nun wird die Userform von verschiedenen Buttons aus aufgerufen und entsprechend unterschiedlich befüllt und benannt. Wenn jetzt "ok" geklickt wird, soll nicht immer die Collection "System" gefüllt werden. Die Collection soll den Namen der Userform (Me.Caption) bekommen.
Ist sowas möglich? Wie muss ich das anpassen?
Danke und Gruß
Specke