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
Hilfe wäre nett.Grüße
Burghard