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 :)