Sortierungsergebnis ist falsch
11.11.2016 13:50:05
Oisse
ich habe noch folgendes Problem:
Das Sheet Käuferadressen enthält eine Tabelle. Die oberste Zeile immer sichtbar.
Wenn ich den folgenden Code ausführe, sortiert er mir aber auch die erste Zeile mit, sodass sie alphabetisch irgendwo in der Mitte der Tabelle erscheint.
Wie bitte muss ich den Code ändern, dass die oberste Zeile auch die oberste bleibt?
Option Explicit
'Beim Deaktivieren der "Käuferadressen" werden die Datensätze neu sortiert
Sub Worksheet_Deactivate()
Dim lngLR As Long
With Sheets("Käuferadressen")
lngLR = .Cells(.Rows.Count, 1).End(xlUp).Row
.Cells(2, 1).Resize(lngLR - 1, 14).Sort _
Key1:=.Range("A2"), Order1:=xlAscending, _
Header:=xlNo, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End With
End Sub
Gruß Oisse
Anzeige