Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 08:56:18
Textbox in Tabellenblatt ohne Bestätigung in Zelle eintragen
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1272to1276
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1272to1276
1272to1276
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

ComboBox mit Daten aus Spalte befüllen

ComboBox mit Daten aus Spalte befüllen
Ivek
Hallo Leute,
hab wieder mal ein Problem.
Ich habe mir eine ComboBox in Excel 2003 mit Hilfe der Steuerelemente-Toolbox erstellt. Wie kriege ich nun diese per VBA befüllt? Ich will sie mit den Daten aus der Spalte 2 befüllen. Das Ende der Spalte soll allerdings variabel bleiben. Die Spalte starte bei ab der 4. Zeile.
Wie kriege ich es nun in VBA hin das ich die ComboBox über eine Schleife befülle und dabei die richtigen Daten ausgewählt werden?
Danke schon mal und viele Grüße.
AW: ComboBox mit Daten aus Spalte befüllen
16.08.2012 09:44:44
hary
Hallo
Wo hast du die CBO, in dem Blatt auf einem Userform. Ist es ein Formularsteuerelement oder ActiveX.
Im Grundsatz so. 

Dim letzte As Long
Dim i As Long
letzte = Cells(Rows.Count, "B").End(xlUp).Row 'evtl mit dem Blattnamen arbeiten
For i = 4 To letzte
If Cells(i, "B")  "" Then
ActiveSheet.ComboBox1.AddItem Cells(i, "B")
End If
Next

gruss hary
AW: ComboBox mit Daten aus Spalte befüllen
16.08.2012 10:45:34
Ivek
Hallo Hary!
Meine combobox ist in auf dem Tabellenblatt!
Also hab jetzt deinen Code angepasst aber es passiert irgendwie nichts. Fehlermeldung erscheint nicht und die ComboBox ist auch nicht befüllt.
Gruß
Anzeige
AW: ComboBox mit Daten aus Spalte befüllen
16.08.2012 10:55:03
Beverly
Hi Ivek,
Private Sub ComboBox1_GotFocus()
Dim lngZeile As Long
ComboBox1.Clear
For lngZeile = 4 To IIf(IsEmpty(Cells(Rows.Count, 2)), _
Cells(Rows.Count, 2).End(xlUp).Row, Rows.Count)
If Cells(lngZeile, 2)  "" Then ComboBox1.AddItem Cells(lngZeile, 2).Value
Next lngZeile
End Sub


AW: ComboBox mit Daten aus Spalte befüllen
16.08.2012 12:42:31
Ivek
Hey Beverly, schon mal danke!
Irgendwie bringt er mir Fehler beim Kompilieren: Variable ComboBox1 nicht definiert.
Ist wahrscheinlich was ganz kleines aber ich bin komplett unerfahren was vba angeht!
Grüße
Anzeige
AW: ComboBox mit Daten aus Spalte befüllen
16.08.2012 13:20:45
Beverly
Hi Ivec,
heißt deine ComboBox vielleicht anders?

AW: ComboBox mit Daten aus Spalte befüllen
20.08.2012 10:25:53
Ivek
Hi Beverly,
danke nochmal! Funktioniert nicht... ich versuch des jetzt mal selber und dann meld ich mich nochmal falls sich was tut. Danke trotzdem
Ciao
Grüße
AW: ComboBox mit Daten aus Spalte befüllen
20.08.2012 20:10:14
Beverly
Hi Ivec,
lade doch mal deine Arbeitsmappe hoch, denn eine Ferndiagnose ist immer sehr schwierig, wenn nicht sogar unmöglich.

Links zu Excel-Dialogen

ComboBox UserForm

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige