Liebe Excel Gemeinde,
lese mit untenstehenden Code aus einer Listbox bestimmte Spalten aus.
Bei einer Multiselect (z.B 2 Stck)wird mir das 2.Ergebnis in die nächste Zeile geschrieben jedoch nicht wie vorgesehen in A3 sondern in D3.
2. Frage Ist es möglich in einer Listbox eine Spalte mit Zeilenumbruch darzustellen?
Vielen Dank im Voraus
Gruß Richard
Private Sub CommandButton1_Click()
Dim wks As Worksheet
Dim lngI As Long
Dim lngZ As Long
Dim intS As Integer
Dim intI As Integer
Set wks = Worksheets("Katallog")
lngZ = 2
wks.Range("A2:M100" & wks.Range("A65536").End(xlUp).Row).ClearContents
With Me.ListBox1
For lngI = 0 To Me.ListBox1.ListCount - 1
If Me.ListBox1.Selected(lngI) Then
For intS = 0 To 7 'Anzahl Spalte =8
Select Case intS
Case 0, 2, 4 '0=a,1=B usw
intI = intI + 1
wks.Cells(lngZ, intI) = .List(lngI, intS)
Case Else
End Select
Next
lngZ = lngZ + 1
End If
Next
End With
End Sub