Zellen nicht in DropDownFeld einfügen,wenn 0/leer
08.03.2004 11:53:21
Eva
ich möchte im DropDown Feld leere Zellen oder solche mit 0 aus der Ursprungstabelle nicht finden müssen. Folgenden Code habe ich schon, aber irgendwas stimmt nicht, denn es werden nicht alle anderen Werte ins Drop Down Feld übernommen. Kann es an leeren aufeinander folgenden Zellen in der Ursprungstabelle liegen, die zu überspringen sind?
Mit Dank, Eva
Private Sub ComboBox1_Change()
End Sub
Private Sub CommandButton1_Click()
s = 3
z = 5
Do Until ActiveWorkbook.Worksheets("Intranet").Cells(z, 3) = "ENDE"
If Not IsNull(Cells(z, 3)) And Len(CStr(Cells(z, 3))) > 0 Then ComboBox1.AddItem (ActiveWorkbook.Worksheets("IFD0401Intranet").Cells(z, 3))
z = z + 1
Loop
End Sub