Zeilenhöhe optimieren
16.03.2015 18:10:07
matthias
ich kann den über den nachfolgenden Code, die Zeilenhöhe optimieren.
Nur leider funktioniert es nur bei der ausgewählten Zeile.
Ich würde dies gern auf einen definierten Bereich anwenden lassen.
Sub ZeilenhöheAutomatischFestlegen()
Worksheets("Aufstellung Brandschutzklappen").Unprotect Password:="sperl"
Selection.Rows.EntireRow.AutoFit
Worksheets("Aufstellung Brandschutzklappen").Protect Password:="sperl"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True
End Sub