Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1292to1296
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
2 Spalten aus Listbox in Tabelle schreiben
18.01.2013 13:01:28
Mario
Hallo zusammen,
ich habe mir eine Listbox mit zwei Spalten erstellt, die mit Daten aus einer Tabelle auch korrekt gefüllt werden. Nun möchte ich gerne in der Listbox mehrere Einträge auswählen. Auch das funktioniert einwandfrei.
Über eine OK-Schaltfläche sollen die ausgewählten Datensätze in das Tabellenblatt "SYS" in die Spalte D und Spalte E und zwar immer in die letzten freien Zellen geschrieben werden.
Genau an dieser Stelle komme ich nicht weiter.
Ich freue mich über jede Hilfe.
Viele Grüße
Mario

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: 2 Spalten aus Listbox in Tabelle schreiben
18.01.2013 13:14:15
Rudi
Hallo,
Sub xxx()
Dim i As Integer
With ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) Then
Sheets("SYS").Cells(Rows.Count, 4).End(xlUp).Offset(1) = .List(i, 0)
Sheets("SYS").Cells(Rows.Count, 5).End(xlUp).Offset(1) = .List(i, 1)
End If
Next
End With
End Sub

Gruß
Rudi

AW: 2 Spalten aus Listbox in Tabelle schreiben
18.01.2013 13:22:38
Mario
Hallo Rudi,
ganz herzlichen Dank für die schnelle Hilfe.
Habe den Code eingebaut und es funktionierte auf Anhieb.
Danke!
Anzeige

278 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige