Markieren nach Sortieren
25.09.2003 18:43:45
Franz W.
ich habe folgende Frage: in eine Tabelle werden in eine neue Zeile am Ende Werte eingetragen, der letzte ist das aktuelle Datum in Spalte D. Dann wird mit nachfolgendem Makro nach der Spalte A aufsteigend sortiert.
Sub Sortieren()
Dim ws As Worksheet
Dim a&, b As Byte
Dim RaBereich As Range
Dim r As Range
''' Bereich der Wirksamkeit:
Set ws = ActiveSheet
If Range("C65536") = "" Then a = Range("C65536").End(xlUp).Row Else: a = 65536
b = ws.UsedRange.Column + ws.UsedRange.Columns.Count - 1
''' Sortieren:
Set RaBereich = Range(Cells(4, 1), Cells(a, b))
RaBereich.Sort Key1:=Range("A4"), Order1:=xlAscending, Key2:=Range("C4"), _
Order2:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
Application.ScreenUpdating = True
''' Zelle mit aktuellem Datum finden:
' Set r = Cells.Find(Date)
' If Not r Is Nothing Then
' r.Select
' Exit Sub
' End If
' Range("A4").Select
End Sub
Im Anschluss an das Sortieren hätte ich gerne, dass genau die Zelle mit dem Datum, das als letzte eingetragen wurde markiert ist, egal in welcher Zeile diese Zelle nach dem Sortieren jetzt steht. (Mit dem auskommentierten Teil in meinem bisherigen Code habe ich nach dem aktuellen Datum gesucht. Das klappt aber nur, wenn am Tage nur ein einziger Eintrag gemacht wurde was nicht der Fall ist!)
Als Alternative wäre ok, wenn die ganze Zeile, die als letzte eingetragen wurde, markiert ist.
Ich hoffe ich konnte erklären, worum es mir geht. Hat dafür jemand eine Idee für einen Ansatz?
Vielen Dank schon mal und Grüße
Franz