Live-Forum - Die aktuellen Beiträge
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
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige