case + Workbook_SheetBeforeDoubleClick
22.06.2006 13:22:58
HorstH
kann mir jemand bite behilflich sein: möchte 2 verschiedene Modi von Sortierung bei Workbook_SheetBeforeDoubleClick haben, weiß aber nicht, wie und wo man das einbringt. Danke für jede Hilfe! Gruß Horst
Fall 1: wenn Doppelklick in
Spalte 2 bis 4 oder 7 bis einschl. 14 , dann ganze Tabelle aufsteigend sortiert
Fall 2:
Spalte 5 oder 6 , dann ganze Tabelle absteigend sortiert
vorhandenes script:
<pre>
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
On Error GoTo ende
If Target.Count = 1 And Target.Column > 1 And Target.Column < 15 Then
Blattschutz_aus
Range("B2").CurrentRegion.Sort Key1:=Cells(2, ActiveCell.Column), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End If
Blattschutz_ein
ende:
Cancel = True
End Sub</pre>