PDA

Vollständige Version anzeigen : Combobox mit Auto-Auswahl


flix
04.07.2006, 23:59
Hallo

Ich bin VBA Anfänger und hab ein Problem mit dem Erstellen einer Userform mit VBA. Ich will eine Auswahlliste, in der man einen Titel auswählen muss, der dann für das weitere Programm gespeichert wird.
Die Auswahl soll alle x-"Titel" der Spalten enthalten (Zellen A1-XX1). Mit dem Range Befehl sollten eigentlich alle beschriebenen Zellen der Zeile 1 erfasst werden. Die Auswahl wird jedoch nicht angezeigt.

Private Sub ComboBox1_Change()
ComboBox1.AddItem (Range("a1", Cells(1, Columns.Count).End(xlToLeft)))
titel=ComboBox1
End Sub

Könnt ihr mir da ein paar Tips geben? Das Problem sollt mittels VBA gelöst werden.

Danke
flix

jinx
05.07.2006, 04:36
<font size="2" face="Century Gothic">Moin, flix,

falsches Ereignis (bei Dir: nach einem Wechsel in der CB) - entweder das Aktivieren der UserForm oder das Betreten der CB wählen:

Private Sub UserForm_Activate()
Dim lngCounter As Long
For lngCounter = 1 To Cells(1, Columns.Count).End(xlToLeft).Column
ComboBox1.AddItem Cells(1, lngCounter).Value
Next lngCounter
End SubPrivate Sub ComboBox1_Enter()
Dim lngCounter As Long
For lngCounter = 1 To Cells(1, Columns.Count).End(xlToLeft).Column
ComboBox1.AddItem Cells(1, lngCounter).Value
Next lngCounter
End Sub</font>

flix
05.07.2006, 08:52
wie immer tip top Antwort.

vielen Dank