Zeile Mindesthöhe und Autofit
29.06.2014 15:59:38
Burghard
ich möchte eine Zeilenmindesthöhe mit Autofit kombinieren.
Das nachfolgende Makro funktioniert noch nicht ganz, wie von mir gewünscht:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Const cMinHeight = 18.75
Dim rR As Range
For Each rR In ActiveSheet.UsedRange.Rows
ActiveCell.RowHeight= rR.AutoFit
If rR.RowHeight
Das Makro soll nicht den gesamten "UsedRange" durchlaufen, sondern sich nur auf die aktive Zelle bzw. Zeile beziehen.Hilfe wäre nett.
Grüße Burghard