Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1256to1260
1256to1260
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Mehrfachauswahl aus mehrspaltiger Listbox

Forumthread: 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
Anzeige

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
Anzeige
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
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
Anzeige
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.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige