Makro läuft nicht
mike49
ich nehme meinen Thread nochmals auf, da er nicht abgeschlossen wurde.
Das dort vorgeschlagene Sortiermakro läuft nicht.
Es wird ein Laufzeitfehler '424' angezeigt und diese Zeile ist gelb unterlegt:
Set Bereich = UsedRange.Resize(, 1)
Das Makro lautet komplett:
Sub Sortieren2()
Dim rng As Range
Dim Bereich As Range
Dim rDate As Range
Set Bereich = UsedRange.Resize(, 1)
' Sortieren2 Makro
Bereich.Offset(1, 0).Resize(Bereich.Rows.Count - 1).Sort Key1:=Range("D2"), Order1:= _
xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
For Each rng In Bereich.Cells
Set rDate = rng.Offset(0, 2)
If Month(CDate(rDate)) Month(rDate.Offset(1, 0)) Then
With rng.EntireRow.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
End If
Next rng
Range("A1").Select
End Sub
Nochmals zur Erläuterung:
Es soll die Geburtstagsliste nach Spalte D sortiert werden. Dort stehen die zu den Geburtstagen (Format: dd.mm.yyyy) in Spalte C gehörenden Ordnungszahlen.
Durch eine fette Rahmenlinie (Spalte A:E) sollen die Monate optisch getrennt werden.
Beginnen soll alles mit Zeile 2 und nach unten für Neueinträge offen sein.
Weiß noch jemand Rat?
Gruß
mike49