Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1256to1260
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

Mehrfachauswahl aus mehrspaltiger Listbox

Mehrfachauswahl aus mehrspaltiger Listbox
Wiegand
Hallo,
Die UF-Listbox wird gefüllt mit Daten aus dem Tabellenblatt "Datenliste". Pro Zeile werden aber nur die ersten beiden (Spalte A und B) Zellen eingelesen. Wenn ich mehrere Zeilen in der Listbox markiere, sollen die kompletten Zeilen in Tabelle 3 kopiert werden.
Kann mir jemand helfen?
LG Marco

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Mehrfachauswahl aus mehrspaltiger Listbox
13.04.2012 09:51:13
ChrisL
Hi Marco
Private Sub CommandButton1_Click()
Dim i As Long, LetzteZeile As Long
With Worksheets("Tabelle3")
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then
LetzteZeile = .Range("A65536").End(xlUp).Row + 1
.Cells(LetzteZeile, 1) = ListBox1.List(i, 0)
.Cells(LetzteZeile, 2) = ListBox1.List(i, 1)
End If
Next i
End With
End Sub

cu
Chris
AW: Mehrfachauswahl aus mehrspaltiger Listbox
13.04.2012 10:17:29
Wiegand
Chris, vielen Dank.
Soweit funtkioniert das schon ganz gut.
Nur bräuchte ich aus dem Tabellenblatt "Datenliste", die ganze Zeile kopiert und nicht nur den Listboxeintrag.
Lässt sich das noch irgendwie umsetzen?
Marco
Anzeige
AW: Mehrfachauswahl aus mehrspaltiger Listbox
13.04.2012 10:45:15
ChrisL
Hi Marco
Wie wird die Listbox gefüllt?
Wenn die Zeilen mit der Listbox übereinstimmen, kannst den ListIndex als Zeilennummer verwenden.
cu
Chris
AW: Mehrfachauswahl aus mehrspaltiger Listbox
13.04.2012 15:30:02
Hajo_Zi
Hallo Marco,
schreibe in eine ausgeblendeten Spalte die Zeilenummer, dann hast du die Inforamtion für die Zeile.

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige