Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1804to1808
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

ListBox auswahl in mehrere Zeilen

ListBox auswahl in mehrere Zeilen
15.01.2021 11:35:20
David
Hallo zusammen,
Aktuell Arbeit ich an einer ListBox an der mann mehrere "Softwaremodule" anwählen kann. Alle angewählten Softwaremodule sollen in dem Tabellenblatt "Softwaremodule" in der Spalte C (3) ab Zeile 8 eingetragen werden. Jedes Modul in eine Zeile, wenn ich also zb. 4 Module in der Listbox angewählt habe sollte es so aussehen:
Spalte C / Zeile 8: Modul 1
Spalte C / Zeile 9: Modul 2
Spalte C / Zeile 10: Modul 3
Spalte C / Zeile 11: Modul 4
Leider bekomme ich es so nicht hin mit meinem Code...

Dim i As Long
With ListBox_Softwaremodule
For i = 0 To .ListCount - 1
If .Selected(i) Then
ThisWorkbook.Worksheets("Softwaremodule").Cells(3, i + 1) =  _
ListBox_Softwaremodule.List(i)
End If
Next i
End With

Ich hoffe hier auf Hilfe von euch, da ich echt am verzweifeln bin.
Danke schonmal,
Gruß david

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
.Cells(3, i + 8) owT
15.01.2021 12:48:44
Rudi
AW: .Cells(3, i + 8) owT
15.01.2021 13:01:07
Tobias
Hallo David,
damit du nicht die leergelassenen Zeilen überspringst brauchst du eine 2. Laufvariable
Sub test()
Dim i As Integer
Dim j As Integer
j = 8
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then
ThisWorkbook.Worksheets("Softwaremodule").Cells(j, 3) = ListBox1.List(i, 0)
j = j + 1
End If
Next
End Sub
Und bei Cells waren die Reihe und Spalte vertauscht denke ich.
Schöne Grüße
Tobias
AW: .Cells(3, i + 8) owT
15.01.2021 13:50:08
David
Super Vielen Dank das funktioniert :)
Gruß David!
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige