Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

ComboBox-Einträge mit Tastatur auswählen

    Betrifft: ComboBox-Einträge mit Tastatur auswählen von: Peter
    Geschrieben am: 29.08.2003 09:16:06

    Hallo liebe Teilnehmer, [09:13 29.08.2003]

    weiß jemand mehr? Ich möchte die Einträge einer ComboBox gerne mit der Tastatur auswählen könnnen (also Pfeil up & down + Enter) - bisher geht es nur mit Maus + Click, das "dropdownen" mit der "nach-unten-Taste" löst die Einträge sofort aus (ohne Enterbestätigung).

    So sieht mein bisheriger Code für die CombiBox aus:

    '

    Private Sub UserForm_Initialize()
    ' ComboBox1.AddItem "Eintrag 1"
    ' ComboBox1.AddItem "Eintrag 2"
    ' ComboBox1.AddItem "Eintrag 3"
    'End Sub
    


    '
    Private Sub ComboBox1_Click()
    '    Select Case ComboBox1.Value
    '    Case "Eintrag 1"
    '    MsgBox ("Eintrag 1 wurde gewählt")
    '    Case "Eintrag 2"
    '    MsgBox ("Eintrag 2 wurde gewählt")
    '    Case "Eintrag 3"
    '    MsgBox ("Eintrag 3 wurde gewählt")
    'End Select
    'End Sub
    


    Vielen Dank schon einmal im jetzt für eine Idee

    Gruß Peter
      


    Betrifft: AW: ComboBox-Einträge mit Tastatur auswählen von: GraFri
    Geschrieben am: 29.08.2003 09:39:58

    Hallo



    Option Explicit

    Private Sub UserForm_Initialize()
        ComboBox1.AddItem "Eintrag 1"
        ComboBox1.AddItem "Eintrag 2"
        ComboBox1.AddItem "Eintrag 3"
    End Sub

    Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
        Select Case ComboBox1.Value
            Case "Eintrag 1"
                MsgBox ("Eintrag 1 wurde gewählt")
            Case "Eintrag 2"
                MsgBox ("Eintrag 2 wurde gewählt")
            Case "Eintrag 3"
                MsgBox ("Eintrag 3 wurde gewählt")
        End Select
    End Sub


         Code eingefügt mit Syntaxhighlighter 2.4


    mfg, GraFri


      


    Betrifft: AW: ComboBox-Einträge mit Tastatur auswählen von: Peter
    Geschrieben am: 02.09.2003 14:23:24

    Einfach Klasse - und das mit nur einer einzigen Zeile :o) Vielen Dank, GraFri!


      


    Betrifft: AW: ComboBox-Einträge mit Tastatur auswählen von: Michael Scheffler
    Geschrieben am: 29.08.2003 09:40:17

    Hallo Peter,

    Click ist auch nicht das richtige Ereignis - Change musst Du nehmen. Leider hat Miniweich überall das Click-Ereignis als Standerd gesetzt.

    Gruß

    Micha


      


    Betrifft: AW: ComboBox-Einträge mit Tastatur auswählen von: Peter
    Geschrieben am: 02.09.2003 14:32:27

    Hallo Micha, danke für Deine Antwort.
    Ich habe jetzt aus

    "Private Sub ComboBox1_Click()"

    "Private Sub ComboBox1_Change()"

    gemacht. Hmm irgendwie fehlt wohl noch etwas - es ist immernoch so wie vorher.
    Kann man denn eigentlich für eine ComboBox auch ein "Accelerator" also ein Alt-Hotkey definieren? In den Dialogboxen von Windows öffnen sich solche Auswahlboxen ja immer so schön mit ihrem ganzen Inhalt und man braucht nur noch mit den Cursor-Tasten auf den gewünschten Eintrag fahren und per Return auslösen. So würde ich es gerne bei der sperrigen CombiBox hinbekommen ... Realität, oder Fiction? Gruß Peter


      


    Betrifft: AW: ComboBox-Einträge mit Tastatur auswählen von: Nayus
    Geschrieben am: 29.08.2003 09:58:16

    Hallo,
    Du musst den Code nur an das richtige Ereignis hängen

    Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
      If KeyCode = 13 Then
        'Enter gedrückt
        Select Case ComboBox1.Value
        Case "Eintrag 1"
         MsgBox ("Eintrag 1 wurde gewählt")
        Case "Eintrag 2"
         MsgBox ("Eintrag 2 wurde gewählt")
        Case "Eintrag 3"
         MsgBox ("Eintrag 3 wurde gewählt")
        End Select
      End If
      
    End Sub
    


    Private Sub UserForm_Initialize()
     ComboBox1.AddItem "Eintrag 1"
     ComboBox1.AddItem "Eintrag 2"
     ComboBox1.AddItem "Eintrag 3"
    End Sub
    


    Viel Erfolg,
    Nayus


     

    Beiträge aus den Excel-Beispielen zum Thema " ComboBox-Einträge mit Tastatur auswählen"