ich hoffe, es ist noch jemand da!?
Kann man per VBA festlegen, dass wenn die Zeichenanzahl in einer Zelle =45 oder einem Vielfachen davon sich jeweils die Zeilenhöhe um 20 Punkte erhöht?
Danke und schönen Feierabend!
Gruß
Martin
Private Sub Worksheet_Change(ByVal Target As Range)
If Len(Target.Value) >= 45 Then Target.Rows.RowHeight = Target.Rows.RowHeight + 20
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then 'Spalte A
If Len(Target.Value) >= 45 Then Target.Rows.RowHeight = Target.Rows.RowHeight + 20
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lang As Long
lang = Len(Target.Value) / 45 * 20
If Target.column > deine Spaltennummer Then Exit Sub
If Len(Target.Value) >= 45 Then Target.Rows.RowHeight = Target.Rows.RowHeight + lang
End Sub