Office: (Office 2013) Sortieren eines Listobject

Hallo,
ich möchte ein Listobject (intelligente Tabelle) per VBA sortieren.
Wenn ich den Namen des Objekte kenne, dann weiß ich wie die Schreibweise ist.
Beispiel:
Im Tabellenblatt 'Stadtverzeichnis'
befindet sich die Tabelle mit dem Namen: itbl_Stadt
Diese soll nach Spalte 'Stadtname' sortiert werden

Dim oLO as ListObject
Set oLO=Thisworkbook.Sheets("Stadtverzeichnis").ListObjects("itbl_Stadt")

with oLO.Sort
.SortFields.clear
.SortFields.Add Key:=Range("itbl_Stadt[Stadtname]") .......
.......
end with

Wie muss ich den Range() - Teil schrieben, wenn ich den Namen der Tabelle vorher nicht kenne.

Dim oLO as ListObject
Set oLO=Thisworkbook.Sheets("Stadtverzeichnis").ListObjects(1)
Dim strName as string
strName=oLO.Name

with oLO.Sort
.SortFields.clear
.SortFields.Add Key:=Range(??????) .......
.......
end with

Danke
Marion

:)

 

Hi,

wennst nach Spalte1 sortieren möchtest zB so:
Code:

 

Hallo auch von mir,

und wenn nach einer bestimmten benannten Spalte sortiert werden soll geht es so:
Code:

Viele Grüße
derHöpp

 

Hallo,
vielen Dank für eure Lösungsvorschläge.
Ich habe es jetzt so realisiert:

Code:

Viele Grüße Marion

 

Moin!
Wenn schon ListObjects, sollte man sich imo auch an den jeweiligen Objekten orientieren, wie es derHoepp gezeigt hat.
Lesefutter:
https://www.thespreadsheetguru.com/b...t-excel-tables

Gruß Ralf

 

Hallo Ralf,
vielen Dank für den Hinweis.
Ich habe schon vermutet, dass ich nicht das ganz passende verwendet habe.
Allerdings funktioniert es.
Ich werde nun die Variante von derHöpp ausprobieren.

Die Seite, die du mir empfohlen hast, kannte ich und finde sie auch sehr informativ und übersichtlich - aber zu Sortierung habe ich da nichts gefunden.

Viele Grüße
marion