Code anpassen
08.11.2002 08:21:17
Jens
Den nachfolgenden Code von Hans (161901) wollte ich in meiner TB nutzen um in einer ComboBox alle Werte aus TB "2" Spalte 2 einlesen, dabei sollten doppelte Werte unterdrückt werden. Wo in diesem Code muß der Bezug auf TB"2" und Spalte 2 geändert werden?
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
Danke für eure Hilfe
Anzeige