Mit Multiselect in ListBox Auswahl treffen u......
26.08.2008 13:43:00
Josef
mit folgendem Code werden die Einträge in der ListBox9 in eine neue Arbeitsmappe in die Tabelle1 eingetragen.
Private Sub CommandButton39_Click()
Dim arrList As Variant, lngR As Long, intC As Integer
Dim wb As Workbook
arrList = ListBox9.List
lngR = ListBox9.ListCount
intC = ListBox9.ColumnCount
Set wb = Workbooks.Add(1)
With wb.Sheets(1)
.Range(.Cells(1, 1), .Cells(lngR, intC)) = arrList
End With
End Sub
Wie kann ich jedoch Daten in der ListBox mittels MultiSelect (1) auswählen und nur die ausgewählten Daten in eine neue Arbeitsmappe bekommen?
Danke
Josef