Zeilenhöhe an Wert anpassen.
24.04.2018 11:49:35
Marco
wenn ich es richtig sehe, dann passt das unten stehende Makro alle Zeilenhöhen einzeln an. Die Zeilenhöhe steht dabei in FT56. Das Makro läuft.
Jetzt soll aber die Zeilenhöhe nicht mehr zentral aus FT56 kommen, sondern steht in jeder einzelnen Zelle EQ von 1 bis 500. Kann mir das bitte bitte jemand so anpassen, dass es läuft. Da ich keine Ahnung habe außer kopieren und einfügen, bitte idealerweise direkt im Makro...
Sub Bereiche_Zeilenhöhe_anpassen_Marco24_04()
Sheets("Bereiche").Select
Application.ScreenUpdating = False
Dim i As Integer
For i = 1 To 500
Rows(i).RowHeight = [ft56].Value
Next i
Application.ScreenUpdating = True
End Sub
Anzeige