Array

Public Sub UserForm_Initialize()
Worksheets("Aufzüge").Range("G11") = 1
Dim a As Integer
Dim az As Integer                           ' Zähler für Arrayfelder
Dim i As Integer                            ' Schleifenzähler (Arrays füllen)
Dim arr() As Variant                        ' Array für Datenausgabe
a = Sheets("Aufzüge").Range("A65536").End(xlUp).Row
' Array dimensionieren
ReDim arr(a, 0)                         ' Feld nach Listenlänge festlegen
' Arrays mit Werten füllen
For i = 2 To UBound(arr)                                                ' laufe von Zeile 2 bis  _
Tabellenende
If Application.WorksheetFunction.CountIf(Range(Cells(i, 1), _
Cells(1, 3)), Cells(i, 3).Value) = 1 Then                           ' wenn Wert das erste  _
Mal vorkommt, dann ...
arr(az, 0) = Cells(i, 3).Value                                  ' ... Name in Array  _
einlesen
az = az + 1                                                     ' ... Zähler für  _
Arrayfeld plus 1
End If                                                              ' Ende der Auswertung
Next i
ComboBox2.List = arr
Worksheets("Aufzüge").Range("G11") = 0
End Sub