Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Image
BildScreenshot zu Image Image-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema ListBox
BildScreenshot zu ListBox ListBox-Seite mit Beispielarbeitsmappe aufrufen

Listbox MultiSelect Werte in Zelle übernehmen


Betrifft: Listbox MultiSelect Werte in Zelle übernehmen von: Asce
Geschrieben am: 12.08.2019 00:22:52

Hallo,

ich will aus einer Listbox die markierten Einträge (MultiSelect) in die Zelle einer _ Intelligenten Tabelle eintragen. Die Zeile ist die aktuell markierte, der Spaltenname ist im Tag der Listbox hinterlegt. Mit SingleSelect funktioniert das ohne Probleme, nur bei MultiSelect passiert nichts.

Private Sub CommandButton1_Click()
Intersect(Range("Tabelle1[" & ListBox1.Tag & "]"), ActiveCell. _
EntireRow) = ListBox1.Value

Hat da jemand eine Idee?

lg Asce

  

Betrifft: AW: Listbox MultiSelect Werte in Zelle übernehmen von: Hajo_Zi
Geschrieben am: 12.08.2019 05:39:35

nach folgendem Prinzip.

        For LoI = 0 To ListBox1.ListCount - 1
            If ListBox1.Selected(LoI) Then
                 's = s & ListBox1.List(i)
                ' Beispiel nur Spalte 1
                .Cells(LoLetzte + 1, 1) = ListBox1.List(LoI, 0)
                LoLetzte = LoLetzte + 1
            End If
        Next LoI
GrußformelHomepage

Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
Die Beiträge werden auch ignoriert, es erfolgt keine Antwort.


Beiträge aus dem Excel-Forum zum Thema "Listbox MultiSelect Werte in Zelle übernehmen "