substitute
25.01.2006 15:09:23
Gregor
Mit folgendem Befehl fülle ich eine UserForm:
Private Sub UserForm_Initialize()
lstProjekte.RowSource = "Daten!A2:A" & intLastRow
End Sub
Nun hat es in den Zellen der Spalte A manuelle Zeilenumbrüche, die sich in der UserForm mit dem unschönen Zeichen "Zeilenubruch" wiedergeben.
Ich versuchte es wie folgt, klappt aber nicht:
Private Sub UserForm_Initialize()
lstProjekte.RowSource = Application.WorksheetFunction.Substitute("Daten!A2:A" & intLastRow, Chr(10), "; ")
End Sub
Das Ergebnis bleibt dasselbe.
Wie muss ich vorgehen?
Herzlichen Dank
Gregor
Anzeige