Gruppe
Dialog
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.
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