VBA Werte aus Spalte A in Combobox einlesen

25/03/2009 - 14:15 von Beck, Alwin | Report spam
Excel 2003

Hallo,

ich habe eine Tabelle und ein Formular. Auf dem Formular
befinden sich Comboboxen welche werte aus z.B. Spalte A
einlesen sollen ! Beim DropDown sollen diese dann angezeigt werden.

Wie mache ich das, dass
a) dass die Überschrift der z.B. Spalte A nicht mit eingelesen wird
b) keine doppelten werten aufgelistet werden

Für a und b habe ich keine Lösung. Mein Ansatz war wie folgt :


Private Sub ComboBox1_DropButtonClick()
Dim Bereich

Bereich = Columns("A:A").Select

ComboBox1.ListRows = Bereich

End Sub

Danke
Gruß
Albe
 

Lesen sie die antworten

#1 Susanne Senger
26/03/2009 - 10:28 | Warnen spam
Hallo, Alwin,

ich habe neulich einen Excel-VBA-Kurs gegeben, wo genau dieses Problem zur
Sprache kam. Ich habe allerdings die Combo beim Laden des Formulars gefüllt
und nicht erst beim Dropdown.

Mit Deinem Bereich kommst Du nicht weit. Ich hab das so gemacht:

zuerst habe ich den Bereich ohne Überschrift auf ein neu eingefügtes
Tabellenblatt kopiert und mit Spezialfilter die Dubletten und die
Überschrift rausgeworfen.
Das Füllen ging dann so:
Sub DatenInForm()
Dim LetzteZeile, X As Integer
Range("a1").Select
LetzteZeile = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row - 1
ReDim strListenWert(LetzteZeile) As String
For X = 0 To LetzteZeile
Cells(X + 1, 1).Select
strListenWert(X) = Cells(X + 1, 1).Value
frmTest.cboListe.AddItem strListenWert(X)
Next
Sheets("Hilfstabelle").Delete 'brauchen wir nicht mehr
frmTest.Show
End Sub

Gruß
Susanne


"Beck, Alwin" schrieb im Newsbeitrag
news:%
Excel 2003

Hallo,

ich habe eine Tabelle und ein Formular. Auf dem Formular
befinden sich Comboboxen welche werte aus z.B. Spalte A
einlesen sollen ! Beim DropDown sollen diese dann angezeigt werden.

Wie mache ich das, dass
a) dass die Überschrift der z.B. Spalte A nicht mit eingelesen wird
b) keine doppelten werten aufgelistet werden

Für a und b habe ich keine Lösung. Mein Ansatz war wie folgt :


Private Sub ComboBox1_DropButtonClick()
Dim Bereich

Bereich = Columns("A:A").Select

ComboBox1.ListRows = Bereich

End Sub

Danke
Gruß
Albe

Ähnliche fragen