Optimierte Zeilenhöhe nur in Zeile und nicht Blatt
27.05.2016 15:59:55
Burghard
ich habe hier ein Makro, das die Zeilenhöhe optimiert, allerdings passiert dies immer über das ganze Tabellenblatt und nicht nur über die geänderte Zeile mit der Zelländerung. Kann dieses Makro so umgeschrieben werden, dass sich die optimierte Zeilenhöhe nicht mehr auf das ganze Tabellenblatt(UsedRange), sondern nur auf die geänderte Zeile bezieht?
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Const cMinHeight = 18
Dim rR As Range
For Each rR In ActiveSheet.UsedRange.Rows
ActiveCell.Offset(0, 0).RowHeight = rR.AutoFit
If rR.RowHeight Hilfe wäre nett.
Grüße
Burghard