Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1196to1200
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige