Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Text für ComboBox hinterlegen

Text für ComboBox hinterlegen
29.05.2008 20:17:00
Andreas
Hallo Herber Fans,
ich habe hier im Forum gestöbert, um einen ersten Eindruck vom UserForm Element der Combobox zu gewinnen. Ich habe jedoch nur ComboBoxen gefunden, die ihren Text aus einem Range bezogen haben, der auf einem normalen ExcelSheet hinterlegt war.
Ist es auch möglich die Listeneinträge.
z.B.
Test1
Test2
Test3
die in der ComboBox erscheinen sollen, direkt im VBA Code festzulegen, ohne daß ich über einen Range auf einem Arbeitsblatt gehen muß?
Vielen Dank für Eure Antworten.
Grüße, Andreas Hanisch

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Text für ComboBox hinterlegen
29.05.2008 20:32:00
Horst
Hi,
das geht mit der AddItem-Methode.
mfg Horst

AW: Text für ComboBox hinterlegen
29.05.2008 21:01:57
Peter
Hallo Andreas,
das geht z. B. so:
Option Explicit

Private Sub UserForm_Initialize()
With ComboBox1
.AddItem "Januar"
.AddItem "Februar"
.AddItem "März"
.AddItem "April"
.AddItem "Mai"
.AddItem "Juni"
.AddItem "Juli"
.AddItem "August"
.AddItem "September"
.AddItem "Oktoberr"
.AddItem "November"
.AddItem "Dezember"
End With
If ComboBox1.ListCount > 0 Then ComboBox1.ListIndex = 0
End Sub


Gruß Peter

Anzeige
;
Anzeige
Anzeige

Infobox / Tutorial

Text für ComboBox hinterlegen in Excel


Schritt-für-Schritt-Anleitung

Um den Text einer ComboBox in Excel mittels VBA festzulegen, kannst Du die AddItem-Methode verwenden. Hier ist eine einfache Anleitung:

  1. Öffne das Excel-Dokument, in dem Du die ComboBox verwenden möchtest.
  2. Gehe zu Entwicklertools > Visual Basic, um den VBA-Editor zu öffnen.
  3. Füge ein neues UserForm hinzu, indem Du mit der rechten Maustaste auf VBAProject klickst und Einfügen > UserForm auswählst.
  4. Ziehe eine ComboBox (z.B. ComboBox1) auf das UserForm.
  5. Doppelklicke auf das UserForm, um den Code-Editor zu öffnen.
  6. Füge folgenden Code ein:
Private Sub UserForm_Initialize()
    With ComboBox1
        .AddItem "Januar"
        .AddItem "Februar"
        .AddItem "März"
        .AddItem "April"
        .AddItem "Mai"
        .AddItem "Juni"
        .AddItem "Juli"
        .AddItem "August"
        .AddItem "September"
        .AddItem "Oktober"
        .AddItem "November"
        .AddItem "Dezember"
    End With
    If ComboBox1.ListCount > 0 Then ComboBox1.ListIndex = 0
End Sub
  1. Schließe den VBA-Editor und teste das UserForm.

Häufige Fehler und Lösungen

  • Fehler: ComboBox zeigt keine Einträge an.

    • Lösung: Stelle sicher, dass der Code im UserForm_Initialize-Ereignis platziert ist. Dieses Ereignis wird beim Laden des UserForms automatisch aufgerufen.
  • Fehler: Falsche Schreibweise der Monate.

    • Lösung: Achte darauf, dass die Monatsnamen korrekt geschrieben sind, z.B. "Oktober" statt "Oktoberr".

Alternative Methoden

Eine andere Möglichkeit, Kombinationen von Texten in einer ComboBox zu hinterlegen, ist die Verwendung eines Arrays. Hier ist ein Beispiel:

Private Sub UserForm_Initialize()
    Dim Monate As Variant
    Monate = Array("Januar", "Februar", "März", "April", "Mai", "Juni", "Juli", "August", "September", "Oktober", "November", "Dezember")

    Dim Monat As Variant
    For Each Monat In Monate
        ComboBox1.AddItem Monat
    Next Monat

    If ComboBox1.ListCount > 0 Then ComboBox1.ListIndex = 0
End Sub

Praktische Beispiele

Ein häufiges Szenario ist die Verwendung der ComboBox zur Auswahl von Monaten. Die oben genannten Beispiele zeigen, wie Du die Monate direkt im VBA-Code hinterlegen kannst. Du kannst diese Methode auch für andere Listen verwenden, etwa für Produktnamen oder Kategorien.


Tipps für Profis

  • Nutze die ComboBox.Text-Eigenschaft, um den aktuell ausgewählten Text zu erhalten oder festzulegen. Beispiel:
Dim aktMonat As String
aktMonat = ComboBox1.Text
  • Überlege, ob Du die ComboBox mit Daten aus einer Datenquelle wie einer Excel-Tabelle verknüpfen möchtest. Das gibt Dir mehr Flexibilität bei der Verwaltung der Einträge.

FAQ: Häufige Fragen

1. Wie kann ich die ComboBox mit einem Excel-Bereich verknüpfen?
Du kannst die RowSource-Eigenschaft der ComboBox verwenden, um eine Liste von Zellen als Datenquelle festzulegen. Beispiel: ComboBox1.RowSource = "A1:A12".

2. Kann ich eine ComboBox in einem Arbeitsblatt verwenden?
Ja, Du kannst eine ComboBox auch direkt in einem Arbeitsblatt einfügen, indem Du die Steuerelemente im Entwicklertools-Menü verwendest. Der VBA-Code bleibt jedoch ähnlich.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige