Liste ohne doppelte Werte in Combo einlesen
04.03.2005 22:02:50
Edwin
es ist mal wieder soweit, ich komme nicht weiter.
Ich habe in den Beispielen bereits den fertigen/funktionierenden VBA gefunden, aber ich bekomme ihn nicht umgeschrieben.
In dem Beispiel wird die Combo im aktiven Sheet gefüllt.
Ich rufe aber im Sheet1 einen Dialog auf, in dem sich die Combo befindet. Die Combo soll mit Werten aus Sheet2 gefüllt werden.
Für Euch ist das bestimmt wieder 1x1, für mich ist es der Horror.
Hier der VBA aus dem Beispiel "Liste ohne doppelte Werte in Combo einlesen":
Private Sub UserForm_Initialize()
Dim col As New Collection
Dim iRow As Integer
iRow = 1
On Error Resume Next
Do Until IsEmpty(Cells(iRow, 1))
col.Add Cells(iRow, 1), Cells(iRow, 1)
If Err = 0 Then
cboNamen.AddItem Cells(iRow, 1)
Else
Err.Clear
End If
iRow = iRow + 1
Loop
On Error GoTo 0
cboNamen.ListIndex = 0
End Sub
Gruß
Edwin