CombBox
02.03.2006 18:55:28
Uwe
mit folgendem Code fülle ich die CombBox1 mit Leben.
Ich habe aber keinen Plan wie ich es schaffe nicht die komplette Spalte A
ein zu lesen sondern erst ab Zeile 30 bis zum Ende der Spalte A.
Habt Ihr eine Lösung für mich.
Private Sub UserForm_Initialize()
Dim Zeile As Range
For Each Zeile In Worksheets("Tabelle1").UsedRange.Rows
If Zeile.Hidden = False Then
ComboBox1.AddItem Worksheets("Tabelle1").Cells(Zeile.Row, 1)
End If
Next
End Sub
Vielen Dank!
Anzeige