Office: ComboBox, leere Zellen

hallo an euch...


ich habe da einen code

Code:

Sheets("Tabelle3").Select
For Each Cell In Range("B7:B40")
If Not Cell.Text = "" Then
ComboBox2.AddItem Cell.Text
End If
Next

welcher mir werte aus tabell3 B7:B40 in eine combobox einfügt, und dabei alle Zellen (zwischen B7:B40) die leer sind nicht beachtet.

funktioniert auch soweit ganz gut,... jetzt mein problem:

durch .Select sprint excel beim ausführen in Tabelle3.

kann man das verhinder?


liebe grüße
sascha

 

Hallo Sascha,

with Sheets("Tabelle3")
For Each Cell In .Range("B7:B40")
If Not Cell.Text = "" Then
ComboBox2.AddItem Cell.Text
End If
Next
End With

Gruß Hajo

 

Hallo Hajo_Zi

danke für deine hilfe

!!!funktioniert!!! super :)


liebe grüße
sascha

 

Hallo,...

ein weiterführendes Problem?

also das oben beschriebene funktioniert super.

jetzt hab ich ein problem, wenn ich bei mehren bedingungen verschiedene sachen in die combobox eintragen möchte, dann gibt mir die combobox alles aus, von B7:B40 & D7:D40....

wie kann ich das verhindern?

liebe grüße
sascha

Code:

Code:

If Trim(TextBox2.Value) = "Rot" Then

With Sheets("Tabelle3")
For Each Cell In .Range("B7:B40")
If Not Cell.Text = "" Then  
ComboBox3.AddItem Cell.Text
End If
Next
End With

Else

If Trim(TextBox2.Value) = "Blau" Then

With Sheets("Tabelle3") 
For Each Cell In .Range("D7:D40")
If Not Cell.Text = "" Then  
ComboBox3.AddItem Cell.Text
End If
Next
End With

End If
End If

End Sub

 

Zwischen den Läufen wird die ComboBox (also deren Liste zumindest) ja auch nicht gelöscht. Du packst nur immer fleißig Werte dazu.

Code:

    Dim cbx As ComboBox

    Set cbx = ComboBox1

    cbx.ListFillRange = ""
    cbx.Clear

    cbx.AddItem "test"

Gruß, Michael

 

hallo michael,...

ahh, deshalb,... ja das erklärt so einiges :))

danke für die hilfe

gruß
sascha