Objektvariable oder With-Blockvariable nicht festg
13.01.2006 17:48:45
Edwin
zur Überprüfung meines u.g. VBA habe ich MsgBoxen eingefügt.
Bei Case is > 3 kommt dann die Fehlermeldung. Warum?
Dim Check1 As MSForms.CheckBox, Check2 As MSForms.CheckBox, Check3 As MSForms.CheckBox
Select Case SortAnzahl
Case Is = 1
Set Check1 = CheckBox
Check1.Caption = SortAnzahl & "."
MsgBox Check1.Name
Case Is = 2
Set Check2 = CheckBox
Check2.Caption = SortAnzahl & "."
MsgBox Check2.Name
Case Is = 3
Set Check3 = CheckBox
Check3.Caption = SortAnzahl & "."
MsgBox Check3.Name
Case Is > 3
Set Check1 = Check2
Set Check2 = Check3
Set Check3 = CheckBox
MsgBox Check1.Name & " " & Check2.Name '& " " & Check3.Name
End Select
Gruß
Edwin