Auflistungsreihenfolge ändern
07.02.2006 12:24:17
Konni
nachstehender Code bewirkt eine Auflistung der letzten 20 Nutzer. Leider läuft die Aufzählung von unten nach oben, d.h., die letzte Zeile enthält den jüngsten und die erste Zeile den ältesten Eintrag.
Option Explicit
Function zuletzt_gespeichert()
Dim lz%
With Sheets("Tabelle1")
lz = .Cells(Rows.Count, 1).End(xlUp).Row + 1
If lz < 5 Then lz = 4
ActiveSheet.Unprotect Password:=""
.[a5:c36].Copy .[a4]
.Cells(23, 1) = Environ("username") 'Environ("username")
.Cells(23, 2) = Date
.Cells(23, 3) = Time
End With
Range("E4") = "Formular ausgefüllt: " & _
Application.UserName & _
" am " & _
Format(Date, "dd.mm.yy") & " um " & _
Format(Time, "hh:mm") & " Uhr"
ActiveSheet.Protect Password:=""
End Function
Frage: Wie muss der Code umgestellt werden, dass in der ersten Zeile der jüngste und in der letzten Zeile der älteste Eintrag gelistet wird? Bei mehr als 20 Einträgen wird der älteste letzte Eintrag überschrieben.
Tausend Dank für Eure Unterstützung
Konni
Anzeige