Anzeige
Archiv - Navigation
1528to1532
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
Drop-Down Liste mit For-Schleife füllen
15.12.2016 15:56:54
Chris
Hallo zusammen,
ich habe folgendes Problem, ich würde gerne Werte aus einer Spalte (die sich immer wieder dynamisch verändert) in eine Combobox einlesen. Dies soll über eine For-Schleife mit einer If-Abfrage passieren. Ziel wäre es, dass sich die Drop-Down-Liste dann immer automatisch aktualisiert.
Leider funktioniert der folgende code in VBA nicht:
Private Sub ComboBox1_Initialize()
Dim i As Integer
For i = 7 To i = 200
If Sheets("Berechnungsmodel").Cells(i, 9).Value = 1 Then
ComboBox1.AddItem Sheets("Berechnungsmodel").Cells(i, 8)
End If
Next
End Sub
Ich hoffe, dass mir jemand helfen kann.
Vielen Dank!!!!

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Drop-Down Liste mit For-Schleife füllen
15.12.2016 16:22:44
Nepumuk
Hallo,
es gibt kein Initialize-Event einer Combobox. Du kannst dir so was nicht einfach aus den Fingern saugen und erwarten dass es funktioniert.
Teste mal so:
Private Sub ComboBox1_DropButtonClick()
    Dim i As Long
    ComboBox1.Clear
    With Worksheets("Berechnungsmodel")
        For i = 7 To 200
            If .Cells(i, 9).Value = 1 Then ComboBox1.AddItem .Cells(i, 8).Value
        Next
    End With
End Sub

Gruß
Nepumuk
Anzeige
AW: Drop-Down Liste mit For-Schleife füllen
15.12.2016 16:22:56
Werner
Hallo Chris,
so?
Private Sub ComboBox1_Initialize()
Dim i As Long
For i = 7 To 200
If Sheets("Berechnungsmodel").Cells(i, 9).Value = 1 Then
ComboBox1.AddItem Sheets("Berechnungsmodel").Cells(i, 8)
End If
Next
End Sub
Gruß Werner

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige