Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1468to1472
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

ComboBox.Change

ComboBox.Change
15.01.2016 22:35:34
olga
Hallo,
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Klassenprogrammierung
16.01.2016 09:49:48
ransi
Hallo Olga,
Eigenlich macht man sowas in einer eigenen Klasse.
http://www.online-excel.de/excel/singsel_vba.php?f=57
Das heißt aber nicht das es nicht auch anders geht...
' **********************************************************************
' Modul: UserForm1 Typ: Userform
' **********************************************************************

Option Explicit


Private Sub ComboBox1_Change()
    Call machs
End Sub


Private Sub ComboBox2_Change()
    Call machs
End Sub


Private Sub ComboBox3_Change()
    Call machs
End Sub


Private Sub ComboBox4_Change()
    Call machs
End Sub


Private Sub ComboBox5_Change()
    Call machs
End Sub


Private Sub ComboBox6_Change()
    Call machs
End Sub


Sub machs()
    Dim myCtr As Control
    For Each myCtr In MultiPage1.Pages(0).Controls
        If TypeOf myCtr Is Msforms.ComboBox Then
            If myCtr.InSelection Then
                MsgBox myCtr.Name
                TextBox1.SetFocus
                Exit Sub
            End If
        End If
    Next
End Sub


ransi

Anzeige
AW: Danke! hilft mir sehr (o.T.)
16.01.2016 11:25:48
olga
.

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige