Thema Datum  Von Nutzer Rating
Antwort
Rot ListBox Einträge aus UserForm in Textmarke desselben Dokuments einfügen
20.05.2022 14:05:03 John
NotSolved

Ansicht des Beitrags:
Von:
John
Datum:
20.05.2022 14:05:03
Views:
69
Rating: Antwort:
  Ja
Thema:
ListBox Einträge aus UserForm in Textmarke desselben Dokuments einfügen

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


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot ListBox Einträge aus UserForm in Textmarke desselben Dokuments einfügen
20.05.2022 14:05:03 John
NotSolved