der Quelltext wird genau so lange immer wieder ausgeführt, solang man mit der Mouse über dem Frame1 ist
Option Explicit
Dim bolNichtmehr As Boolean
Private Sub Frame1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, _
ByVal Y As Single)
If bolNichtmehr Then Exit Sub
bolNichtmehr = True
Me.Caption = X & " " & Y
End Sub
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As _
Single, ByVal Y As Single)
If bolNichtmehr Then bolNichtmehr = False
End Sub
| VBA-Code: |
| Private Sub CommandButton1_Click() Dim cnt As Control 'Alle OptionButtons des UserForms anzeigen : For Each cnt In Me.Controls If TypeName(cnt) = "OptionButton" Then 'Hier Dein Code für die OptionButtons MsgBox cnt.Name End If Next End Sub Private Sub CommandButton2_Click() Dim cnt As Control 'Alle OptionButtons für "Frame1" anzeigen : For Each cnt In Frame1.Controls If TypeName(cnt) = "OptionButton" Then 'Hier Dein Code für die OptionButtons MsgBox cnt.Name End If Next End Sub Gruß, NoNet
AW: For Each OptionButton in Userform (oderFrame) mgl?
Kawensmann
Hallo, so geht's: Kawensmann |
Dim cnt As Control
For Each cnt In UserForm1.Controls
'For Each cnt In UserForm1.Frame1.Controls 'Für einen Frame...
If TypeName(cnt) = "OptionButton" Then
' dein Code
End If
Next