Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Sortieren per Doppelklick

Sortieren per Doppelklick
Heinz
Hallo Leute
Ich möchte wenn ich auf A5einen doppelklicke,das mir der Bereich A5:K nach Spalte A5 aufsteigend sortiert wird.
Wenn ich wieder einen Doppelklick auf A5 mache, der Bereich A5:K absteigend sortiert wird.
Das würde ich für die Spalten A5,B5,...bis K5 benötigen.
Hätte dazu bitte jemand eine Hilfe anzubieten ?
Gruß
Heinz
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Sortieren per Doppelklick
01.02.2011 18:49:30
Uduuh
Hallo,
mal als Ansatz.
Du brauchst ein Sheet 'Temp' in deiner Mappe.
Ich bin davon ausgegangen, dass in Zeile 5 Überschriften sind.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A5:K5")) Is Nothing Then
Target.CurrentRegion.Sort _
key1:=Target.Offset(1), _
Order1:=Sheets("Temp").Cells(1, Target.Column) + 1, _
Header:=xlYes
With Sheets("Temp").Cells(1, Target.Column)
.Value = IIf(.Value = 0, 1, 0)
End With
Cancel = True
End If
End Sub

Gruß aus’m Pott
Udo

Anzeige
AW: Sortieren per Doppelklick
01.02.2011 19:05:33
Heinz
Hallo Uduuh
Echt schön,wieder einmal etwas von dir zu hören !!!
Noch dazu sofort mit der LÖSUNG !!
Ich danke dir recht herzlich.
Gruß
Heinz
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige