Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Noch mal Zeilenhöhe

Forumthread: Noch mal Zeilenhöhe

Noch mal Zeilenhöhe
07.03.2003 07:12:13
Peter
Hallo,

ich versprechs das ist die letzte Frage zu diesem Thema ;-).

Ich hab ein Makro bekommen das super gut funktioniert. Es aktuallisiert alle Zellen die mit einem Zeilenumbruch formatiert sind aber erst wenn ich nach dem Schreiben noch mal reincklicke. geht das auch wenn ich die Zelle verlasse?

Hier das Makro:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Call AutoFitMergedCellRowHeight
End Sub

Sub AutoFitMergedCellRowHeight()
ActiveSheet.Unprotect Password:="test"
Dim CurrentRowHeight As Single, MergedCellRgWidth As Single
Dim CurrCell As Range
Dim ActiveCellWidth As Single, PossNewRowHeight As Single
Dim iX As Integer
If ActiveCell.MergeCells Then
With ActiveCell.MergeArea
If .Rows.Count = 1 And .WrapText = True Then
Application.ScreenUpdating = False
CurrentRowHeight = .RowHeight
ActiveCellWidth = ActiveCell.ColumnWidth
For Each CurrCell In Selection
MergedCellRgWidth = CurrCell.ColumnWidth + _
MergedCellRgWidth
iX = iX + 1
Next
MergedCellRgWidth = MergedCellRgWidth + (iX - 1) * 0.71
.MergeCells = False
.Cells(1).ColumnWidth = MergedCellRgWidth
.EntireRow.AutoFit
PossNewRowHeight = .RowHeight
.Cells(1).ColumnWidth = ActiveCellWidth
.MergeCells = True
.RowHeight = IIf(CurrentRowHeight > PossNewRowHeight, _
CurrentRowHeight, PossNewRowHeight)

End If
End With
End If
ActiveSheet.Protect Password:="test"
End Sub

Danke.
Gruß
Peter



Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Antwort gefunden
07.03.2003 09:43:08
Peter

Hallo zusammen,

ich habe eine Antwort auf meine Frage gefunden.

Danke noch mal für Eure Unterstützung.
Falls es jemand interessiert schreibt mir einfach kurz ich schicks Euch dann zu.

cu und schönes Wochenende

Peter

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