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
|