header wird nicht mitsortiert
30.01.2017 15:56:21
Maris
an was liegt das? HEader ist in Zeile 2.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(ActiveCell, Range("A2:Y2")) Is Nothing Then
ActiveCell.Sort ActiveCell, xlAscending, Header:=xlYes
End If
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(ActiveCell, Range("A2:Y2")) Is Nothing Then
Cancel = True
ActiveCell.Sort ActiveCell, xlDescending, Header:=xlYes
End If
End Sub
Gruß,MAris