Additem

Bild

Betrifft: Additem
von: Morthen
Geschrieben am: 16.02.2005 10:03:47
Hallo Leute, ich habe folgendes Problem:
Ich habe im ersten Tabellenblatt("Übersicht") in der Zelle A5:A10 verschiedene Namen drin("Muster","Hans",...)
Im zweiten Tabellenblatt habe ich ein Kombinationsfeld erstellt, wo ich die Namen vom ersten Tabellenblatt aufgelistet will.


Private Sub ComboBox1_Change()
Dim i As Integer
Sheets("Kandidat").ComboBox1.Clear
i = 5
  Do While Sheets("Übersicht").Cells(i, 1).Value <> ""
    Sheets("Kandidat").ComboBox1.AddItem i
    i = i + 1
  Loop
End Sub

So sieht mein Code aus, aber im kombinationfeld sehe ich die Werte 5 und 6 (die Zellen, die mit einem Wert gefüllt sind logischer Weise)
Aber wie mache ich anstatt die Zellnummer, den Inhalt (Wert) der Zelle sichtbar?
Danke vielmal für die Hilfe...
Es sollte also nicht, ( 5 , 6 )
sondern.. ( Muster , Hans) in der Liste heissen!
Bild

Betrifft: .AddItem Cells(i, 1)
von: Boris
Geschrieben am: 16.02.2005 10:05:46
Grüße Boris
Bild

Betrifft: AW: Additem
von: Morthen
Geschrieben am: 16.02.2005 10:22:14
hallo Boris
Die Liste ist trotzdem leer, die Namen werden nicht angezeigt!
Bild

Betrifft: AW: Additem
von: Ulf
Geschrieben am: 16.02.2005 13:49:43
Do While Sheets("Übersicht").Cells(i, 1).Value <> ""
Sheets("Kandidat").ComboBox1.AddItem Sheets("Übersicht").Cells(i, 1)
i = i + 1
Loop
Ulf
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Seite aus Internet einfügen"