ich bräuchte einmal Hilfe zu einer Ausnahmeformulierung bei einen
abwechselndem Sortiervorgang.
https://www.herber.de/bbs/user/73018.xls
Mit folgender Worksheet.Change sortiere ich einen Bereich abwechselnd,
den Ausnahmewunsch habe ich gekennzeichnet:
Dim lngC As Long, blnOrder As Boolean
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'_____________________________________________________
'SORTIEREN ABWECHSELND:
Dim AktSheet As Worksheet
Set AktSheet = ActiveSheet
'Letzte Zeile von Spalte Leitzahl
Dim LASTrow As Long
LASTrow = AktSheet.Range("L2000").End(xlUp).Row
If LASTrow 1 Then Exit Sub
If Not Application.Intersect(Target, rngBereich) Is Nothing Then
Cancel = True
'Auf- oder absteigend
If Target.Column = lngC Then
blnOrder = IIf(blnOrder = 0, -1, 0)
Else
lngC = Target.Column
blnOrder = -1
End If
'_______________________________________________________
Application.ScreenUpdating = False
On Error Resume Next
With AktSheet
'Sortieren: 1. nach aktiver Spalte + 2. nach Vor-und Zuname
'abwechselnd auf- und absteigend
'************************************************************ HIER AUSNAHME:
'Bei Klick auf Überschrift "Alter" (Spalte U) soll nach Spalte "Geburtstag" (Spalte T) sortiert _
werden
.Range("K11:Z" & LASTrow).Sort _
Key1:=Target, Order1:=blnOrder + 2, _
Key2:=.Range("K10"), Order2:=xlAscending, _
Header:=xlNo 'xlYes
End With
On Error GoTo 0
Application.ScreenUpdating = False
'_______________________________________________________
AktSheet.Range("A1").Select
End If
Set AktSheet = Nothing
Set rngBereich = Nothing
End Sub
Das Makro funktioniert prima und soll auch so bleiben. Es soll lediglichdie beschriebene Ausnahme eingefügt werden. Das krieg ich einfach nicht hin.
Kann mir da jemand behilflich sein?
Danke im voraus
Klaus