Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
748to752
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
748to752
748to752
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Optimale Zeilenhöhe

Optimale Zeilenhöhe
31.03.2006 17:01:33
Guido
Hallo Forum,
bei verbundenen Zellen mit Zeilenumbruch funktioniert die optimale Zeilenhöhe nicht. Wie kann man das mit einem Makro lösen?
Und nein, ich darf die verbundenen Zellen nicht wegmachen, Vorgabe der Firma.
Grüße Guido

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

Betreff
Datum
Anwender
Anzeige
AW: Optimale Zeilenhöhe
31.03.2006 17:47:38
Herbert
hallo Guido,
ev.so:


Sub opt_Zeilenhöhe_bei_verb_Zellen()
Dim ma As Range
On Error GoTo errEnde
Application.ScreenUpdating = False
With [b5]
  If .MergeCells Then
    Set ma = .MergeArea
         .UnMerge
         .Rows.AutoFit
         .RowHeight = .RowHeight / 2
         ma.Merge
  End If
End With
errEnde:
Application.ScreenUpdating = True
End Sub

     gruß Herbert
Anzeige
Danke euch oT
31.03.2006 17:59:55
Guido
ot

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige