Daten, die in Listbox markiert wurden in Tabellenblatt übernehmen

Hallo zusammen,
ich habe eine Anforderung bekommen, bei der ich überhaupt keine Ahnung habe, wie ich diese umsetzen soll...
Mit viel Google habe ich herausgefunden, wie man eine Listbox mit Daten aus einer Tabelle füllt und wie man dann dort mehrere Einträge markieren kann.
Nun möchte ich gerne, dass die Markierten Einträge aus der Ursprungstabelle (Start) in die Zieltabelle (Ziel) übertragen werden.
Ich fülle die ListBox mit folgendem Code:

Private Sub UserForm_Initialize()
Dim intAnzahlDerListboxSpalten As Integer
Dim letztezeile As String
letztezeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
intAnzahlDerListboxSpalten = 5
ListBox1.MultiSelect = 1
ListBox1.ColumnCount = intAnzahlDerListboxSpalten
ListBox1.RowSource = "Start!A2:E" & letztezeile
End Sub

Wie gesagt, die markierten Einträge sollen dann aus der Tabelle Start (Spalten A:N) in die Tabelle Ziel (Spalten C:P) kopiert werden.
Geht das überhaupt?
Danke für Eure Hilfe!
Lieben Gruß
Marc

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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

Private Sub CommandButton1_Click() Dim lngZiel As Long Dim lngIndex As Long lngZiel = Worksheets("Ziel").Columns(1).Find(What:="*", _ SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row + 1 With Worksheets("Start") For lngIndex = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(lngIndex) Then .Range(.Cells(lngIndex + 2, 1), .Cells(lngIndex + 2, 14)).Copy _ Worksheets("Ziel").Cells(lngZiel, 3) lngZiel = lngZiel + 1 End If Next lngIndex End With End Sub

Private Sub CommandButton1_Click() Dim lngZiel As Long Dim lngIndex As Long ' letzte belegte Zeile in Ziel-Tabelle lngZiel = Worksheets("Ziel").Columns(1).Find(What:="*", _ SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row + 1 With Worksheets("Start") ' Schleife über alle ListBox-Einträge For lngIndex = 0 To ListBox1.ListCount - 1 ' laufender Eintrag ist markiert If ListBox1.Selected(lngIndex) Then ' Zellbereich laufender Eintrag + 2 Spalte A bis N nach Zieltabelle kopieren ' laufender Eintrag + 2 ergibt sich daraus, dass der ListIndex bei 0 und ' deine Daten ab Zeile 2 beginnen .Range(.Cells(lngIndex + 2, 1), .Cells(lngIndex + 2, 14)).Copy _ Worksheets("Ziel").Cells(lngZiel, 3) ' Zielzeile um 1 erhöhen lngZiel = lngZiel + 1 End If Next lngIndex End With End Sub

Beliebteste Forumthreads (12 Monate)

Daten, die in Listbox markiert wurden in Tabellenblatt übernehmen

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Daten, die in Listbox markiert wurden in Tabellenblatt übernehmen

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread