TypeName(Control) überprüfen
22.06.2010 15:20:12
NoNet
Hallo Helmut,
neben dem frei wählbaren NAMEN kannst Du auch den TYP eines Controls überprüfen : TypeName(Control).
Hier ein Beispiel : Über den CommandButton2 werden alle Controls von den im ARRAY angegebenen Typen angezeigt :
Private Sub CommandButton2_Click()
Dim cnt As Control, lngT As Long, strMsg As String
Dim arrControls
arrControls = Array("CheckBox", "OptionButton", "ListBox")
For lngT = LBound(arrControls) To UBound(arrControls)
strMsg = strMsg & arrControls(lngT) & " :" & vbLf
For Each cnt In Controls
If UCase(TypeName(cnt)) = UCase(arrControls(lngT)) Then
strMsg = strMsg & cnt.Name & vbLf
End If
Next
strMsg = strMsg & vbLf
Next
MsgBox strMsg
End Sub
Gruß, NoNet