Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen

Variabler Inhalt einer Combobox



Excel-Version: 10.0 (Office XP)

Betrifft: Variabler Inhalt einer Combobox
von: TL
Geschrieben am: 11.06.2002 - 21:00:54

Hallo Wissende,

ich habe folgenden Code im Archiv gefunden.
Der Code kommt meinem Wunsch schon sehr nahe, allerdings habe ich beim Anpassen noch Probleme. Ich bin für jede Hilfe sehr dankbar.

Der Code erfaßt die Inhalte der Spalte A (ersten dreißig Zeilen!) und gibt sie anschließend in der Spalte B aus. Doppelte Inhalte werden nur einmal angezeigt!

Ich möchte die Inhalte allerdings nicht in der Spalte B ausgeben, sondern in einer Combobox in einer Userform!
Wie kriegt man das hin???

Sub test()
Dim m%, erstezeile%, letztezeile%, n%, z%
erstezeile = 5 'Erste Zeile mit einem Wert
letztezeile = 30 'Letzte Zeile mit einem Wert

ReDim v(0)
m = 0
For z = erstezeile To letztezeile
For n = 0 To m
If v(n) = Cells(z, 1) Then GoTo nächste
Next
m = m + 1
ReDim Preserve v(m)
v(m - 1) = Cells(z, 1)
nächste:
Next
'in die zweite Spalte ab Zeile 1 einlesen
For i = 0 To m
Cells(i + 1, 2) = v(i)
Next
End Sub


Vielen Dank ;)

Gruß,
Thomas

  

Re: Variabler Inhalt einer Combobox
von: Nike
Geschrieben am: 11.06.2002 - 22:18:12

Hi,
einfach so?
ComboBox1.List = v

Bye

Nike

Private Sub UserForm_Initialize()
Dim m%, erstezeile%, letztezeile%, n%, z%
erstezeile = 5 'Erste Zeile mit einem Wert
letztezeile = 30 'Letzte Zeile mit einem Wert

ReDim v(0)
m = 0
For z = erstezeile To letztezeile
For n = 0 To m
If v(n) = Cells(z, 1) Then GoTo nächste
Next
m = m + 1
ReDim Preserve v(m)
v(m - 1) = Cells(z, 1)
nächste:
Next

ComboBox1.List = v

End Sub


  

Re: Variabler Inhalt einer Combobox
von: TL
Geschrieben am: 11.06.2002 - 22:44:06

Danke Nike!

War das nicht dein Code?!

Noch eine Frage: Wie kann man die Daten aufsteigend sortieren?

thx,
Thomas

  

Re: Variabler Inhalt einer Combobox
von: Nike
Geschrieben am: 12.06.2002 - 18:16:17

Hi,

na, ob das mein Code war, kann ich dir gar nicht mehr sagen ;-)

Für die aufsteigende Sortierung schau bitte mal ins Archiv
nen Bubblesort sollte man da ohne Probleme finden ;-)
Einfach mal mit Stichwort Sortieren suchen ;-)

Bye

Nike


 

Beiträge aus den Excel-Beispielen zum Thema "Variabler Inhalt einer Combobox"