Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
988to992
988to992
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Inhalt der ListBox in Tabelle kopieren

Inhalt der ListBox in Tabelle kopieren
25.06.2008 19:08:23
edie
Hallo zusammen,
habe im Archiv nachfolgende VBA-Code gefunden, dabei wird die
Auswahl in der ListBox in eine neue Tabelle kopiert.

Private Sub cmdEintragen_Click()
Dim wks As Worksheet
Dim rng As Range
Dim iCounter As Integer
Set wks = ActiveSheet
Workbooks.Add
Set rng = ActiveSheet.Range("A1")
For iCounter = 0 To lstAuswahl.ListCount - 1
If lstAuswahl.Selected(iCounter) Then
wks.Rows(iCounter + 1).Copy rng
Set rng = rng.Offset(1, 0)
End If
Next iCounter
End Sub



Private Sub UserForm_Initialize()
lstAuswahl.List = Range("A1") _
.CurrentRegion.Columns("C:D").Value
End Sub


Wie wäre die Syntax, wenn der komplette (ohen Auswahl) Inhalt der ListBox in
eine neue Tabelle kopiert würde?
Kann mir jemand helfen?
Vielen Dank im Voraus.
Grüße

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

Betreff
Datum
Anwender
Anzeige
AW: Inhalt der ListBox in Tabelle kopieren
25.06.2008 19:11:51
Hajo_Zi
Hallo edie,
lösche die Zeile
If lstAuswahl.Selected(iCounter) Then
und
End If

AW: Es funktioniert 100%. Vielen Dank.
25.06.2008 19:19:00
edie
Hallo Hajo,
Es funktioniert 100%.
vielen herzlichen Dank.
Grüße
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige