UF SetFocus
09.06.2019 21:49:43
Ludmila
Über ein Makro möchte ich zum nächsten Steuerelement springen.
Leider fünktioniert das nicht.
Wie kann ich das Active Steuerelement herausfinden?
Sub Fokus_aktivieren()
Dim obj As Object
With UserForm1
For Each obj In .Controls
Select Case obj.Name
Case Is = "ComboBox1"
.TextBox1.SetFocus
Case Is = "ComboBox2"
.ComboBox3.SetFocus
Case Is = obj.Name = "ComboBox3"
.TextBox2.SetFocus
Case Is = obj.Name = "ComboBox4"
.TextBox4.SetFocus
End Select
Next
End With
End Sub
https://www.herber.de/bbs/user/130304.xlsm
Danke!
Gruß
Ludmila
Anzeige