Clever-Excel-Forum

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

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

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

Hallo Uwe,

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

Gruß
omron2003

omron2003

Kuwer

RPP63

omron2003