Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1480to1484
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Zeilenumbruch bei Mehrfachauswahl
09.03.2016 16:54:15
chris58
Hallo !
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilenumbruch bei Mehrfachauswahl
09.03.2016 17:13:22
Daniel
Hi
wenn der Zeilenumbruch nach jedem Wert unabhängig von der Spaltenbreite erfolgen soll, dann statt ...& ";" & ... den Zeilenumbruch einfügen mit ... & vbLF & ... (oder statt vbLF auch Chr(10))
wenn mehrere Werte in einer Zeile angezeigt werden sollen und der Umbruch am Rand der Zelle in Abhängigkeit von der Spaltenbreite erfolgen soll, dann müsstest du zusätzlich zum Semikolon noch ein Leerzeichen einfügen ... & "; " &... und in in der Zellformatierung das Häkchen für den Zeilenumbruch setzen.
das kannst du entweder einmalig von Hand machen oder auch im Code mit ActiveCell.WrapText = True
Gruß Daniel

Anzeige
AW: Zeilenumbruch bei Mehrfachauswahl
09.03.2016 17:26:41
chris58
Hallo Daniel !
Funktioniert wunderbar.
Danke
Habe den Code so geändert:
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)
ActiveCell.WrapText = True
Else
strAuswahl = strAuswahl & ";" & ListBox1.List(i)
End If
End If
Next i
ActiveCell = strAuswahl
Unload Me
End Sub

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige