Zeilenhöhe nur für sichtbare Zeilen
10.03.2021 12:19:18
Burghard
ich habe ein funktionierendes Makro, allerdings würde ich gerne noch einen Code für die Zeilenhöhe von 26 reinbringen, dies allerdings nur für die sichtbaren Zeilen in der Selektion. Hier mein Makro:
Sub Markierung_sortieren()
Application.ScreenUpdating = False
With Intersect(Selection.EntireRow, Range("A:D"))
.Sort Key1:=.Cells(1, 2), Order1:=xlAscending, _
Key2:=.Cells(1, 3), Order2:=xlAscending, _
Key3:=.Cells(1, 4), Order3:=xlAscending, _
Header:=xlNo, OrderCustom:=5, MatchCase:=False, Orientation:=xlTopToBottom
End With
Application.ScreenUpdating = True
End Sub
Grüße
Burghard
Anzeige