Listbox aus 2 1 und Inhaltprüfen

[Egon12]

Ich hatte das PS übersehen. Was sind Freitextfelder. Ich sehe 3 Textboxen, wo die Namen mit edt_...  anfangen. Eine davon hat Freitext mit dabei im Namen. Anbei die Prozedur für die beiden Textboxen links in der Userform:

Code:

Private Sub cmd_Auswählen2_Click()
    Dim arrSammeln(50), arrListErg As Variant, i As Long, j As Long, k As Long
   
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) = True Then
            arrSammeln(j) = ListBox1.List(i, 0)
            varLb1Test = "1"
            j = j + 1
        End If
    Next i
     For i = 0 To ListBox2.ListCount - 1
        If ListBox2.Selected(i) = True Then
            arrSammeln(j) = ListBox2.List(i, 0)
            varLb2Test = "1"
            j = j + 1
        End If
    Next i
        If Not edt_FT31 = "" Then
            arrSammeln(j) = edt_FT31
            j = j + 1
        End If
        If Not edt_Freitextfeld = "" Then
            arrSammeln(j) = edt_Freitextfeld
            j = j + 1
        End If
    i = 0
    k = 0
    ReDim arrListErg(0 To j - 1)
        For i = 0 To UBound(arrSammeln)
            If arrSammeln(i) = "" Then
                GoTo weiter
            Else
                arrListErg(k) = arrSammeln(i)
                k = k + 1
            End If
weiter:
        Next i
    With ListBox3
        .Clear
        .List = arrListErg
    End With
End Sub

Gruß Uwe

[soldblub]

Vielen Dank, werde es so übernehmen.

[Egon12]

Gerne.

[snb]

Du brauchst hier nur 1 Listbox mit 2 Spalten.

Code:

Private Sub UserForm_Initialize()
    ListBox1.List = Tabelle8.Range("E2:F7").Value
    ListBox1.ColumnCount = 2
End Sub