Automatisch sortieren

Forumthread: Automatisch sortieren
2 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Automatisch sortieren

24.02.2004 00:42:10

Gunther

Hallo Leute,
wie kann ich mit Klick auf einen Spaltenkopf die entsprechende Spalte
abwechselnd auf- und absteigend sortieren?
Danke für Hinweise
Grüße Gunther

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Automatisch sortieren

24.02.2004 00:59:20

K.Rola
Perfekt! Danke dir oT

24.02.2004 01:11:46

Gunther

AW: Automatisch sortieren

24.02.2004 00:59:20

K.Rola

Hallo,
nach dem Öffnen der Mappe wird immer zuerst einmal aufsteigend
sortiert. Wenn das ein problem ist, musst du halt vor dem Schließen
die Variable lngOrder irgendwo speichern(Registry, Dateieigenschaften
oder in einer Tabelle).:
Option Explicit
Dim lngOrder As Long


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rngKey
If lngOrder = 0 Then lngOrder = 1
If Selection.Columns.Count = 1 And Selection.Cells.Count = 65536 Then
Set rngKey = Selection.Cells(1)
Selection.Sort Key1:=rngKey, Order1:=lngOrder, Header:=xlGuess
End If
If lngOrder = 1 Then lngOrder = 2 Else lngOrder = 1
End Sub

Gruß K.Rola

Perfekt! Danke dir oT

24.02.2004 01:11:46

Gunther

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!