Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema ListBox
BildScreenshot zu ListBox ListBox-Seite mit Beispielarbeitsmappe aufrufen

Inhalt der ListBox in Tabelle kopieren

Betrifft: Inhalt der ListBox in Tabelle kopieren von: edie
Geschrieben am: 25.06.2008 19:08:23

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

  

Betrifft: AW: Inhalt der ListBox in Tabelle kopieren von: Hajo_Zi
Geschrieben am: 25.06.2008 19:11:51

Hallo edie,

lösche die Zeile
If lstAuswahl.Selected(iCounter) Then
und
End If

GrußformelHomepage


  

Betrifft: AW: Es funktioniert 100%. Vielen Dank. von: edie
Geschrieben am: 25.06.2008 19:19:56

Hallo Hajo,

Es funktioniert 100%.

vielen herzlichen Dank.

Grüße


 

Beiträge aus den Excel-Beispielen zum Thema "Inhalt der ListBox in Tabelle kopieren"