Tipp 2.2 - Ersten Eintrag in der Combobox

Wie kann ich automatisch den ersten Eintrag in einer Combobox markieren?

Mit dieser Funktion können Sie automatisch den ersten Eintrag in einer Combobox markieren. Kopieren Sie einfach nachfolgenden Quellcode in die Zwischenablage und fügen Sie anschließend den Inhalt der Zwischenablage in ein neues Modul ein. Die Aufrufparameter finden Sie im Quellcode beschrieben.

Beispiel:

Option Explicit
 
Public Sub A2XCboGetFirst(pctlCbo As Control)
  '// =====================================================
  '// Methode   | Markiert automatisch den ersten Eintrag
  '//           | in einer Combobox
  '// -----------------------------------------------------
  '// Parameter | pctlCbo - Combobox
  '// -----------------------------------------------------
  '// Erstellt  | Manuela Kulpa
  '//           | EDV Innovation & Consulting - Dormagen
  '// =====================================================
 
  ' Ersten Eintrag makieren
  On Error GoTo HandleErr
  pctlCbo.Value = pctlCbo.ItemData(0)
 
HandleExit:
  Exit Sub
 
HandleErr:
  Select Case Err.Number
    Case Else
      MsgBox "Fehler " & Err.Number & ": " & _
             Err.Description, vbCritical, _
             "basFrm.ComboGetFirst"
  End Select
  Resume HandleExit
End Sub


Zurück Tipp 2.1 - Combobox öffnen | Inhalt | Tipp 2.3 - Markierung aufheben Weiter