Zeilenhöhe optimieren
16.03.2015 19: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
Anzeige