Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
376to380
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
376to380
376to380
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

vba: wenn mehrzeilig dann zeilenhöhe optimieren

vba: wenn mehrzeilig dann zeilenhöhe optimieren
09.02.2004 11:06:22
Peter
hallo ihr!
ich hoffe ihr könnt mir (wie schon so oft) helfen:
situation:
tabelle mit formatierten zeilenhöhen (25) - ausreichend für zwei zeilen.
diese sollen auch gelten, wenn die zellen leer oder nur einzeilig beschrieben sind.
wenn der inhalt aber länger wird und drei und mehr zeilen entstehen, soll automatisch die zeilenhöhe angepaßt werden (und das nur für diese zeilen - daher mit vba) - der fall alt+enter soll auch so behandelt werden können.
wie frage ich in vba ab, ob in einer zelle ein automatischer oder ein manueller umbruch vorliegt - bzw. mehrere?
hab ich es verständlich ausdrücken können?
vielen dank für eure hilfe!
gruß
peter

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: vba: wenn mehrzeilig dann zeilenhöhe optimieren
09.02.2004 12:05:42
Alex K.
Hallo Peter,
ich habe dir mal ein Makro geschrieben. Hoffe, habe dein Problem richtig erkannt. Kopiere das Makro in "DieseArbeitsmappe":

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range)
Application.ScreenUpdating = False
Target.Rows.AutoFit
If Target.RowHeight < 25 Then
Target.RowHeight = 25
End If
Application.ScreenUpdating = True
End Sub

Diese gilt nun für alle Tabellenblätter in der Arbeitsmappe. Wenn du es nur für eine Tabelle benötigst, so kopiere folgendes Makro in die gewünschte Tabelle:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Application.ScreenUpdating = False
Target.Rows.AutoFit
If Target.RowHeight < 25 Then
Target.RowHeight = 25
End If
Application.ScreenUpdating = True
End Sub

Nachteil an dem Makro ist, dass es die feste Zeilenhöhe 25 für die Darstellung von Zellen mit "zwei" Zeilen verwendet. Kann bei Änderung der Schriftart nicht mehr klappen!
Anzeige
AW: vba: wenn mehrzeilig dann zeilenhöhe optimieren
09.02.2004 14:29:03
Peter
hallo alex!
danke, das hat schon sehr geholfen! einzelne "zu große zellen" kann ich jetzt erfassen.
leider gibt es ein aber:
in dem bereich gibt es 2 x spalten, die zusammengefaßte zellen beinhalten (also z.b. spalte d+e+f und spalten u+v sind jeweils eine "spalte"/"zelle"), auf die interessanter die autofit-funktion nicht wirkt.
gibt es auch dafür eine lösung?
gruß
peter
noch offen
09.02.2004 15:09:56
Alex K.
Hallo Peter,
"AutoFit" funktioniert leider nicht für verbundene Spalten. Vielleicht kann hier jemand anderes helfen.

331 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige