Herbers Excel/VBA-Archiv
Text für ComboBox hinterlegen
- Text für ComboBox hinterlegen von Andreas Hanisch vom 29.05.2008 20:17:43
- AW: Text für ComboBox hinterlegen - von Horst am 29.05.2008 20:32:03
- AW: Text für ComboBox hinterlegen - von Peter Feustel am 29.05.2008 21:01:57
 |
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
| |