ich möchte in einer Listbox die Daten aus 7 Spalten anzeigen. Dabei sollten die Daten pro Spalte untereinander stehen. Das funktioniert mit meinem Makro leider nicht. Weiß jemand, wie das funktionieren könnte? Hier ist mein Makro:
Private Sub UserForm_Activate()
Dim letztezeile As Long
Dim I As Long
Dim Listentext As String
With Worksheets("Artikel")
Application.ScreenUpdating = False
letztezeile = .Cells(Rows.Count, 1).End(xlUp).Row '
For I = 2 To letztezeile
If .Cells(I, 1) = "" Then Exit For
Listentext = .Cells(I, 1) & " " & .Cells(I, 2) & " " & .Cells(I, 3) & " " &
.Cells(I, 4) & " " & .Cells(I, 5) & " " & .Cells(I, 6) & " " & .Cells(I, 7)
UserForm1.ListBox1.AddItem Listentext
Next I
End With
Application.ScreenUpdating = True
End Sub
Danke für Eure Hilfe,
Larissa