Clever-Excel-Forum

Seiten: 1 2

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

Vielen Dank, werde es so übernehmen.

Gerne.

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

Seiten: 1 2

Egon12

soldblub

Egon12

snb