Hallo VBA-Helden!
Zur Einsatzplanung hat jeder eine Spalte. Mit Klick-runterziehen werden die Zellen rot = abwesend, dann grün = einsatzwillig, dann wieder weiss = neutral. Zum leichten Erkennen des Datums erhält jeweils die letze Zeile der Auswahl eine rote Rahmenlinie unten; Spalte A enthält die Daten.
Dies funzt aber nur von oben nach unten. Es hülfe, wenn Excel die Zugrichtung erkennte… beim rauf-auswählen setzt Excel den Rahmen leider die Anzahl markierter Zellen nach unten.
Wie bestimme ich die letzte Zeile der Selection auf- ODER abwärts?
With ActiveSheet
.Range(.Cells(ActiveCell.Row, 1), _
.Cells(ActiveCell.Row + Selection.Rows.Count - 1, j)).Borders(xlEdgeBottom).Color = RGB(255, 0, 0)
End With