ComboBox.Change
15.01.2016 22:35:34
olga
ich habe in einer Multipage 28 ComboBoxen und diese möchte ich gerne nach dem Change-Ereignis zur txtRuhe verweisen.
Das heißt immer wenn ich eine ComboBox auswähle wird die txtRuhe.SetFocus gesetzt,
damit ich die Markierung weg habe.
Prinzipiell mache ich es so:
Private Sub cboJahr1_Change()
txtruhe.setFocus
End Sub
Nun möchte ich dies vereinfachen, aber das funkt nicht.
Danke,
Gruß
Olga
Private Sub MultiPage1_Change()
Select Case MultiPage1.Value
Case 0: 'Stammdaten
Case 1: 'Verwaltung
Application.Run "NK_cbo_Ruhe"
Case 2: 'Skonto
Case 3: 'leer
End Select
End Sub
Private Sub NK_cbo_Ruhe()
Set UF = UFNK
With UF
For Each Obj In UF.MultiPage1.Pages(1).Controls
Select Case TypeName(Obj)
Case "ComboBox"
If .Controls(Obj).Change Then .txtRuhe.SetFocus
End Select
Next Obj
End With
End Sub