Zeilenhöhe verändern

Bild

Betrifft: Zeilenhöhe verändern
von: princess11
Geschrieben am: 20.08.2015 09:43:56

Hallo liebe Community :)
Ich bräuchte nochmal eure Hilfe.
Also in meiner Spalte A stehen verschiedene Texte (mit unterschiedlicher Länge). Nun soll ich einen Code schreiben, der wenn in einer Zelle die Textlänge größer als 100 Zeichen ist, die ersten 5 Zellen einer Zeile miteinander verbindet, einen Zeilenumbruch einfügt und die Höhe der Zeile auf 30 ändert.
Also z.B. wenn in Zelle A3 der Text mehr als 100 Zeichen hat, sollen dann die Zellen A3 bis E3 verbunden werden.
So sieht es momentan bei mir aus:
Dim Counter As Integer
Dim laenge As Integer
For Counter = A1 To A20
laenge = Len(Cells(Counter, 1))
If laenge > 100 Then
Rows(Counter).RowHeight = 30
Range(Cells(Counter, 1), Cells(Counter, 5)).Select
Selection.Merge True
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
End If
Next
Der Fehler wird bei mir in der Zeile: Rows(Counter).RowHeight = 30 angezeigt. Vielen Dank für Eure Hilfe :)

Bild

Betrifft: AW: For Counter = 1 To 20 (ohne "A") oT
von: JoWE
Geschrieben am: 20.08.2015 09:57:55


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Zeilenhöhe verändern"