Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Wenn mehr als 45 Zeichen in Zelle, Zeilenhöhe +20

Wenn mehr als 45 Zeichen in Zelle, Zeilenhöhe +20
05.07.2004 17:50:40
Martin
Hallo zusammen,
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
Anzeige
AW: Wenn mehr als 45 Zeichen in Zelle, Zeilenhöhe +20
Beni
Hallo Martin,
kopiere diesen Code in das Tabellenmodul ein.
Gruss Beni

Private Sub Worksheet_Change(ByVal Target As Range)
If Len(Target.Value) >= 45 Then Target.Rows.RowHeight = Target.Rows.RowHeight + 20
End Sub

Danke! Änderung wenn nur auf eine Spalte bezogen?
05.07.2004 18:41:56
Martin
Hi Beni,
vielen Dank! Wie muss ich den Code abändern, wenn ich nur eine Spalte ansprechen will?
Danke und Gruß
Martin
Anzeige
AW: Danke! Änderung wenn nur auf eine Spalte bezogen?
Udo
Eine Zeilenhöhe gilt immer für alle Spalten.
Udo
AW: Danke! Änderung wenn nur auf eine Spalte bezogen?
Beni
Hallo Martin,
Spalten-Nr anpassen.
Gruss Beni

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

Anzeige
AW: Wenn mehr als 45 Zeichen in Zelle, Zeilenhöhe +20
Udo
Schwach, da wird bei jeder Änderung 20 addiert.
Udo
..jeweils um 20 erhöht.
ransi
hallo
versuch mal so:

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

ransi
Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige