Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Ausgewählen Zeilen aus UserForm-ListBox in neue Tabelle

Gruppe

ListBox

Problem

In einer UserForm-ListBox sollen die Spalten C:D gelistet werden. Die ausgewählten Zeilen sollen komplett in eine zweite Arbeitsmappe übertragen werden. Eine Mehrfachauswahl soll möglich sein.

Lösung
Geben Sie den nachfolgenden Code in das Klassenmodul der UserForm ein.

StandardModule: basMain

Sub CallForm()
   frmAuswahl.Show
End Sub

ClassModule: frmAuswahl

Private Sub cmdAbbrechen_Click()
   Unload Me
End Sub

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