Zellen nicht in DropDownFeld einfügen,wenn 0/leer
08.03.2004 09:56:11
Eva
wie komplettiere ich unten folgenden vba_code, um Zellen mit 0 oder "leer" nicht im Drop Down Feld wiederfinden zu müssen?
Private Sub ComboBox1_Change()
End Sub
Private Sub CommandButton1_Click()
s = 3
z = 5
Do Until ActiveWorkbook.Worksheets("Intranet").Cells(z, 3) = "ENDE"
ComboBox1.AddItem (ActiveWorkbook.Worksheets("Intranet").Cells(z, 3))
z = z + 1
Loop
End Sub
Mit Dank, Eva