Microsoft Excel

Herbers Excel/VBA-Archiv

Text für ComboBox hinterlegen

Betrifft: Text für ComboBox hinterlegen von: Andreas Hanisch
Geschrieben am: 29.05.2008 20:17:43

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

  

Betrifft: AW: Text für ComboBox hinterlegen von: Horst
Geschrieben am: 29.05.2008 20:32:03

Hi,

das geht mit der AddItem-Methode.

mfg Horst


  

Betrifft: AW: Text für ComboBox hinterlegen von: Peter Feustel
Geschrieben am: 29.05.2008 21:01:57

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


 

Beiträge aus den Excel-Beispielen zum Thema "Text für ComboBox hinterlegen"