Hallo allerseits,
mein Makro soll am Schluss die bearbeitete als Tabelle formatierte Tabelle sortieren, macht es aber, auch als eigenes Sub, nicht.
Wenn ich nach Abschluss des Makros das sortieren über ein eigenes Sub separat starte, funktioniert es.
Wie kann ich den Aufruf aus dem Makro schaffen?
Hier der über Aufzeichnung erzeugte Sortiercode:
ActiveWorkbook.Worksheets("Übersicht ZN_non-ACN").ListObjects("Tabelle2").Sort. _
SortFields.Clear
ActiveWorkbook.Worksheets("Übersicht ZN_non-ACN").ListObjects("Tabelle2").Sort. _
SortFields.Add Key:=Range("Tabelle2[[#All],[Bestellnummer]]"), SortOn:= _
xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Übersicht ZN_non-ACN").ListObjects("Tabelle2"). _
Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Vielen Dank für Eure Mühe
Thomas