userform mehrfachauswahl übernehmen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
UserForm ListBox
Bild

Betrifft: userform mehrfachauswahl übernehmen
von: bassi
Geschrieben am: 10.09.2015 17:30:51

Hallo liebe Exceler,
ich bin ein wenig am verzweifeln.
Mehrere Vorschläge habe ich nun durch. Jedoch komme ich auf keinen grünen Zweig.
Liegt es am Excel 2003?
In zwei Monaten soll auf Excel 2010 umgestellt werden. Ist dann mit Problemen bezüglich einer Konvertierung zu rechnen?
Aber fangen wir vorn an:
In einer Listbox (Tabelle 1) werden per Häckchen - Mehrfachauswahl also - bestimmte Werte markiert.
Diese ausgewählten Werte sollen in Tabelle 2 in Spalte A aufgelistet werden.
Das wars eigentlich schon...
Dachte ich jedenfalls... :-(
Hat jemand einen hilfreichen Tipp für mich?
Allerbesten Dank
bassi

Bild

Betrifft: AW: userform mehrfachauswahl übernehmen
von: Hajo_Zi
Geschrieben am: 10.09.2015 19:26:36


        Dim LoLetzte As Long
        LoLetzte = 4
        For LoI = 0 To ListBox1.ListCount - 1
            If ListBox1.Selected(LoI) Then
                .Cells(LoLetzte, 1) = ListBox1.List(LoI, 0)
                LoLetzte = LoLetzte + 1
            End If
        Next LoI



Bild

Betrifft: AW: userform mehrfachauswahl übernehmen
von: bassi
Geschrieben am: 11.09.2015 09:44:20
Guten Morgen Hajo.
Danke für deine schnelle Reaktion.
Ich habe den Code nun in meinem Laienhaften Excelwissen so in den button eingebaut.
Jedoch hätte ich wohl was anpassen müssen?
Es wird so die Stelle:
.Cells(Loletzte, 1)=
markiert und folgende Fehlermeldung ausgeworfen:
Fehler beim Kompilieren :
Unzulässiger oder nicht ausreichend definierter Verweis.
Auch fiel mir auf, dass die Stelle Loletzte wenn ich das klein eintippe nicht automatisch der Großschreibung angepasst wird.
Kannst du mir vielleicht noch einen Schubs geben?
Vielen Dank
bassi

Bild

Betrifft: AW: userform mehrfachauswahl übernehmen
von: Werner
Geschrieben am: 11.09.2015 16:44:46
Hallo,
Versuch mal

Dim LoLetzte As Long
LoLetzte = 4
   For LoI = 0 To ListBox1.ListCount - 1
       If ListBox1.Selected(LoI) Then
           With Sheets("Tabelle2")
             .Cells(LoLetzte, 1) = ListBox1.List(LoI, 0)
           End With
           LoLetzte = LoLetzte + 1
       End If
Next LoI
Gruß Werner

Bild

Betrifft: AW: userform mehrfachauswahl übernehmen
von: bassi
Geschrieben am: 14.09.2015 16:38:33
Hallo Werner,
grad getestet.
funktioniert tadellos!
super!
Allerbesten Dank
Einen tollen Restmontag :-)
viele Grüße
bassi

Bild

Betrifft: AW: Danke für die Rückmeldung. o.w.T.
von: Werner
Geschrieben am: 14.09.2015 16:51:26


 Bild

Beiträge aus den Excel-Beispielen zum Thema "userform mehrfachauswahl übernehmen"