AW: Combobox-Nullwerte
16.07.2007 11:56:00
Beverly
Hi Thomas,
so müsste der Code für dein Beispiel aussehen
Private Sub UserForm_Activate()
Dim loZeile As Long
With Worksheets("Tabelle1")
For loZeile = 4 To IIf(IsEmpty(.Cells(.Rows.Count, 3)), .Cells(.Rows.Count, 3).End(xlUp) _
.Row, .Rows.Count)
If .Cells(loZeile, 3) 0 Then
ComboBox1.AddItem .Cells(loZeile, 3)
End If
Next loZeile
End With
End Sub
loZeile = 4 bedeutet: beginne mit Zeile 4
Eine Zelle kann man auch ansprechen mit Cells(Zeile, Spalte), folglich bedeutet ", 3" die 3. Spalte, also C. Somit werden alle Werte ab Zeile 4 in Spalte C geprüft und wenn sie verschieden von 0 sind, werden sie in die ComboBox eingelesen.
Vergiss nicht, den Eintrag "liste" aus RowSource in der CombobBox zu löschen, weil anderenfalls der Code auf einen Fehler hinausläuft.
Bis später,
Karin