Variable Hochzählen

Option Explicit

Sub GetUnique()
Dim oCell As Object
Dim sErg(100) As String
Dim i As Integer, j As Integer
Dim bNeu As Boolean
Dim sWert As String

i = 0
For Each oCell In Range("B1:B200")  
    bNeu = True
    sWert = oCell.Value
    For j = 1 To i
        If sWert = sErg(j) Then
            bNeu = False
            Exit For
        End If
    Next
    If bNeu Then
        i = i + 1
        sErg(i) = sWert
    End If
Next
End Sub

Option Explicit
Dim Lb() As Control, Tx() As Control

Private Sub CommandButton1_Click()
Dim oCell As Object
Dim sErg(100) As String
Dim i As Integer, j As Integer
Dim bNeu As Boolean
Dim sWert As String

i = 0
For Each oCell In Range("B1:B200")  
    bNeu = True
    sWert = oCell.Value
    For j = 1 To i
        If sWert = sErg(j) Then
            bNeu = False
            Exit For
        End If
    Next
    If bNeu Then
        i = i + 1
        sErg(i) = sWert

        'Userform anpassen und ergänzen  
        Me.Height = i * 20 + 40
        ReDim Preserve Lb(i) As Control, Tx(i) As Control
        Set Lb(i) = Controls.Add("Forms.Label.1", "lbl_" & CInt(i), True)  
        With Lb(i)
            .Top = i * 20 + 2
            .Left = 10
            .Width = 58
            .Height = 12
            .Caption = sWert
        End With
    
        Set Tx(i) = Controls.Add("Forms.TextBox.1", "txt_" & CInt(i), True)  
        With Tx(i)
            .Top = i * 20 + 0
            .Left = 70
            .Width = 150
            .Height = 15
            .Text = "noch leer"  
        End With
    End If
Next
End Sub

sWert = oCell.Value '***ab hier neu***  
If sWert = "-" Or sWert ="" Then  
	bNeu = False
Else
	For j = 1 To i
		If sWert = sErg(j) Then
			bNeu = False
			Exit For
		End If
	Next
End If '***ab hier wieder alt***  
If bNeu Then

Me.Height = i * 20 + 80 'statt 40  
...
With Lb(i)
    .Top = i * 20 + 42 'statt 2  
...
With Tx(i)
    .Top = i * 20 + 40 'statt 0