Office: Problem beim Sortieren? Von Excel wurde unlesbarer Inhalt gefunden

Hallo

Wenn ich meine Arbeitsmappe öffne, kriege ich die Meldung dass Excel unlesbarer Inhalt gefunden hat.
Wenn ich auf "Ja" klicke um die Mappe wieder herzustellen, werde ich auch Informiert wo das Problem lag:

Entfernte Datensätze: Sortierung von /xl/tables/table7.xml-Part (Tabelle)

Ich sortiere die Tabelle 7 folgendermassen:

Code:

Private Sub Worksheet_Activate()
Application.ScreenUpdating = False

Call GeschäfteSortieren
SelectLastTableCell

Application.ScreenUpdating = False
End Sub


Sub GeschäfteSortieren()
    ActiveWorkbook.Worksheets("Geschäfte").ListObjects("Geschäfte").Sort.SortFields _
        .Add Key:=Range("Geschäfte[Kurzform]"), SortOn:=xlSortOnValues, Order:= _
        xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Geschäfte").ListObjects("Geschäfte").Sort.SortFields _
        .Add Key:=Range("Geschäfte[Strasse]"), SortOn:=xlSortOnValues, Order:= _
        xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Geschäfte").ListObjects("Geschäfte").Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Sub SelectLastTableCell()
Dim ws As Worksheet
Dim tblName As String
Set ws = ThisWorkbook.Worksheets("Geschäfte")
tblName = "Geschäfte"
With ws.ListObjects(tblName).Range
    .Cells(.Rows.Count, .Columns.Count).Select
End With
End Sub

Sortiere ich die Tabelle/Listobject falsch?

Danke für die Hilfe

Massimo

 

Konnte das Problem lösen. Ich hatte vergessen ein .clear zu setzen.
So sieht mein Code nun aus:

Code:

<code id="questionCommentsViewInlineCode20-38225753-1">Sub GeschäfteSortieren()     
With ActiveWorkbook.Worksheets("Geschäfte").ListObjects("Geschäfte").Sort         With .SortFields             .Clear             .Add Key:=Range("Geschäfte[Kurzform]"), SortOn:=xlSortOnValues, _                  Order:=xlAscending, DataOption:=xlSortNormal             .Add Key:=Range("Geschäfte[Strasse]"), SortOn:=xlSortOnValues, _                  Order:=xlAscending, DataOption:=xlSortNormal         End With         .Header = xlYes         .MatchCase = False         .Orientation = xlTopToBottom         .SortMethod = xlPinYin         .Apply     End With End Sub</code>

<code id="questionCommentsViewInlineCode20-38225753-1"></code>