|
VBA - Bereich nach Datum sortieren |
 |
 |
 |
|
Geschrieben von: Marcus Rose
|
|
Samstag, 10. Mai 2008 um 06:19 Uhr |
|
In dem folgenden Beispiel soll gezeigt werden wie man einen Bereich nach dem Datum sortieren lassen kann. Im Gegenzug wird aber auch wieder zurück zum Wert sortiert. Ich gebe hier folgendes Beispiel vor: Tabelle1
| | A | B | | 2 | Datum | Wert | | 3 | 27.08.2005 | 3,00 € | | 4 | 13.04.2006 | 4,00 € | | 5 | 18.04.2006 | 2,00 € | | 6 | 13.04.2007 | 5,00 € | | 7 | 01.05.2007 | 1,00 € | | 8 | 15.07.2007 | 6,00 € |
Option Explicit
Sub sortieren_datum()
Dim letzte_zeile As Long
'Sollte der Bereich Passwortgeschützt sein? Dann
'muss das ' vor ActiveSheet entfernt werden.
'ActiveSheet.Unprotect Password:="Dein Passwort"
letzte_zeile = Cells(Rows.Count, 1).End(xlUp).Row
Range("A2:B" & letzte_zeile).Sort Key1:=Range("A3"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
'ActiveSheet.Protect Password:="Dein Passwort"
End Sub
Option Explicit
Sub sortieren_wert()
Dim letzte_zeile As Long
'Sollte der Bereich Passwortgeschützt sein? Dann
'muss das ' vor ActiveSheet entfernt werden.
'ActiveSheet.Unprotect Password:="Dein Passwort"
letzte_zeile = Cells(Rows.Count, 1).End(xlUp).Row
Range("A2:B" & letzte_zeile).Sort Key1:=Range("B3"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
'ActiveSheet.Protect Password:="Dein Passwort"
End Sub
|
VBA Makro Beispiele 