Listbox mit Zeilenumbruch
13.10.2018 12:41:10
Peter
meine UF ist fast fertig. Ich benötige noch eine Erweiterung meiner Listbox
mit Zeilenumbruch.
Im Forum habe ich hier einen Betrag gefunden. Dieser verwendet nachstehenden Code:
Private Sub UserForm_Initialize()
Dim iRow As Integer
Dim sTxt As String
iRow = 1
Do Until IsEmpty(Cells(iRow, 1))
sTxt = Cells(iRow, 1).Value
If InStr(sTxt, vbLf) Then
With lstValues
.AddItem Left(sTxt, InStr(sTxt, vbLf) - 1)
.AddItem Right(sTxt, Len(sTxt) - InStr(sTxt, vbLf))
End With
End If
iRow = iRow + 1
Loop
End Sub
Nun steige ich hier nicht ganz durch und möchte diesen auf 6 Spalten erweitern. Die Listbox beginnt jedoch mit Spalte2(B) und hat den Zeilenumbruch wie o.a. in Spalte3(C).
Könnt ihr mir hierbei bitte helfen.
Besten Dank
Gruss
Peter