AW: Autom. alfabetisch ordnen
13.07.2005 16:46:50
UweD
Hallo
hier mal ein Beispiel:
- Rechtsclick auf den Tabellenblattreiter unten
- Code anzeigen
- Makro reincopieren
- fertig
- Erklärung im Makrocode
Private Sub Worksheet_Change(ByVal Target As Range)
'überwacht den Bereich A bis D : Beispiel
If Not Intersect(Target, Range("A:D")) Is Nothing Then
Cells.Sort _
Key1:=Range("A2"), Order1:=xlAscending, _
Key2:=Range("B2"), Order2:=xlDescending, _
Header:=xlYes, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _
DataOption2:=xlSortNormal
'sortiert nach A aufsteigend, dann nach B absteigend
'Kopfzeile ist vorhanden
End If
End Sub
Gruß UweD
(Rückmeldung wäre schön)