Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
768to772
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
768to772
768to772
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zeilenumbruch bei mehr als 20 Zeichen

Zeilenumbruch bei mehr als 20 Zeichen
09.06.2006 12:47:48
Heinz
Hallo Leute
Ich möchte wenn ich in den Zellen A:G einen Wert mit mehr als 20 Zeichen habe das Automatisch ein Zeilenumbruch gemacht wird.
Könnte mir Bitte jemand dabei Helfen ?
Danke Heinz

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilenumbruch bei mehr als 20 Zeichen
09.06.2006 12:53:28
Dr.
So zum Beispiel:

Sub test()
Dim c As Range
For Each c In Range("A:G")
If Len(c.Value) > 20 Then
c.Value = Left(c.Value, 20) & Chr(10) & Right(c.Value, Len(c.Value) - 20)
End If
Next c
End Sub

AW: Zeilenumbruch bei mehr als 20 Zeichen
09.06.2006 13:01:03
Heinz
Hallo Dr.
Danke Funkt. super.
Wäre es eventuell möglich das die Werte zentriert in der Zeilenhöhe angezeigt werden ?
Gruß Heinz
AW: Zeilenumbruch bei mehr als 20 Zeichen
09.06.2006 13:04:26
Dr.
So?

Sub test()
Dim c As Range
For Each c In Range("A:G")
If Len(c.Value) > 20 Then
c.Value = Left(c.Value, 20) & Chr(10) & Right(c.Value, Len(c.Value) - 20)
c.VerticalAlignment = xlCenter
End If
Next c
End Sub

Anzeige
AW: Zeilenumbruch bei mehr als 20 Zeichen
09.06.2006 13:07:46
Heinz
Hallo Dr.
Ja genau so. DANKE
Noch ein schönes WE.
Gruß Heinz

222 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige