Hallo,

ich bin VBA Anfänger und, wie im Titel schon beschrieben, würde ich gerne mehrere ListBox-Einträge, aus mehreren Listboxen, die sich in einem MultiPage-Steuerelement einer UserForm befinden, in dasselbe Dokument an eine bestimmte Stelle auslesen lassen.

Gleichzeitig müssten die Titel (Caption) der Verschiedenen Pages vor den jeweiligen Auswahlen der ListBox im Dokument erscheinen. Wenn keine Auswahl in der ListBox getroffen wurde, soll auch der Titel nicht im Dokument erscheinen.

Bis jetzt werden beim drücken des CommandButtons die ausgewählten Einträge der jeweiligen Listbox einfach am Anfang des Dokuments eingefügt.

Hier mein Code:

Private Sub Erstellen_Click()

'Ausgewählte Tarife in Dokument übernehmen

    Dim i As Long

    With Me.ListBox1
        For i = 0 To .ListCount - 1
            If .Selected(i) = True Then Selection.InsertAfter .Column(0, i) & vbCr
        Next
    End With
    
    With Me.ListBox2
        For i = 0 To .ListCount - 1
            If .Selected(i) = True Then Selection.InsertAfter .Column(0, i) & vbCr
        Next
    End With


    With Me.ListBox3
        For i = 0 To .ListCount - 1
            If .Selected(i) = True Then Selection.InsertAfter .Column(0, i) & vbCr
        Next
    End With
    
    With Me.ListBox4
        For i = 0 To .ListCount - 1
            If .Selected(i) = True Then Selection.InsertAfter .Column(0, i) & vbCr
        Next
    End With

    With Me.ListBox5
        For i = 0 To .ListCount - 1
            If .Selected(i) = True Then Selection.InsertAfter .Column(0, i) & vbCr
        Next
    End With
    
Application.ScreenRefresh

End Sub

Ich arbeite mit windows 10 (64bit) in einer virtuellem Umgebung (Virtual Machine). Da Ich wirklich blutiger Anfänger bin, bin ich für jeden Tipp oder Code dankbar :)

LG