Hallo Miteinander,
eben hab ich von Hans ein schönes Makro bekommen was mir hilft auf einem schnellem Wege eine Combobox zu füllen.
Daraus habe ich ne Schleife gebaut um damit drei Boxen zu füllen, aber leider schreibt er mir in alle drei das gleiche bzw. er überschreibt das Feld beim wiederholten Schleifendurchlauf leider nicht und erweitert es nur. Ich denke das nach "next i" noch was hinmuss was das Feld löscht. erase? oder so?
Für eure Hilfe wäre ich dankbar
CODE:
For i = 3 To 6
Dim col As New Collection
Dim lRow As Long
lRow = 30
On Error Resume Next
Do Until IsEmpty(Cells(lRow, i))
col.Add CStr(Cells(lRow, i).Value), CStr(Cells(lRow, i).Value)
lRow = lRow + 1
Loop
On Error GoTo 0
For lRow = 1 To col.Count
UserForm1("combobox" & i).AddItem col(lRow)
Next lRow
''''''glaube hier muss noch was hin aber was?''''****
Next i
Gruß Kersten