Laufzeitfehler 438

[omron2003]

Hallo Forum,

folgender Codeteil (aus einer Beispieldatei aus diesem Forum Beispieldatei)
erzeugt beim Aufruf der Userform (unter Excel2013) den Laufzeitfehler 438?

Könnt Ihr mir hierbei weiterhelfen woran das liegen könnte?

Besten Dank im Voraus
omron2003

Code:

Sub nach_Namen_Vornamen_sortieren()
'
' nach_Namen_Vornamen_sortieren
'
ActiveWorkbook.Worksheets("Stammdaten").ListObjects("Tabelle1").Sort.SortFields _
        .Clear
        Range("B2").Select
'--------------------------------------------------------------------------------------
'Dieser Anschnit ist nach dem Laufzeitfehler in VBA Editor gelb markiert
'--------------------------------------------------------------------------------------
    ActiveWorkbook.Worksheets("Stammdaten").ListObjects("Tabelle1").Sort.SortFields _
        .Add2 Key:=Range("Tabelle1[Nachname *]"), SortOn:=xlSortOnValues, Order:= _
        xlAscending, DataOption:=xlSortNormal
'--------------------------------------------------------------------------------------
    With ActiveWorkbook.Worksheets("Stammdaten").ListObjects("Tabelle1").Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

[Kuwer]

Hallo,

entferne mal die 2 (rot gekennzeichnet):

    ActiveWorkbook.Worksheets("Stammdaten").ListObjects("Tabelle1").Sort.SortFields _
        .Add2 Key:=Range("Tabelle1[Nachname *]"), SortOn:=xlSortOnValues, Order:= _
        xlAscending, DataOption:=xlSortNormal

Gruß Uwe

[RPP63]

Moin!
Ich würde die erheblich kürzere "alte" Range.Sort-Methode nehmen.
(ersetzt den kompletten Code der Threaderöffnung)

Sub Sort_einfach()
Worksheets("Stammdaten").ListObjects("Tabelle1").Range.Sort _
  Range("Tabelle1[Nachname *]"), Header:=xlYes
End Sub


Gruß Ralf

[omron2003]

Hallo Uwe,

ich habe die 2 aus den Code entfernt und es funktioniert.

Gruß
omron2003