Tabellentrennlinien hervorheben
mike49
meine Arbeitsmappe hat 3 Blätter. Im Blatt "Geburtstagsliste(2)" weden mit nachfolgendem - mit Makrorekorder erstellten - einfachen Sortiermakro die Mitglieder nach Spalte D sortiert, in der die Ordnungszahlen zu den in Spalte C stehenden Geburtstagen (Format: dd.mm.yyy) stehen. Das funktioniert auch.
Jetzt hätte ich gerne das Makro so erweitert, dass bei Monatswechsel die Zeilen durch eine fette Rahmenlinie getrennt werden.
Es soll quasi der letze Geburtstageintrag eines Monats vom nächsten durch eine "fette" _ Rahmenlinie optisch getrennt werden. Sie reicht von Spalte A:E. Ist das vorhandene Makro erweiterbar.
Sub Sortieren2()
' Sortieren2 Makro
Range("A2:E53").Select
Selection.Sort Key1:=Range("D2"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A1").Select
End Sub
Ist das machbar?
Gruß
mike49