Was muß ich bei diesem Code umstellen, damit ein Zeilenumbruch erfolgt.
Die Zeilenbreite ist 85,00.
Danke
chris
Private Sub CommandButton2_Click()
Dim i As Integer
Dim strAuswahl As String
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then
If strAuswahl = "" Then
strAuswahl = ListBox1.List(i)
Else
strAuswahl = strAuswahl & ";" & ListBox1.List(i)
End If
End If
Next i
ActiveCell = strAuswahl
Unload Me
End Sub