Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

vba intelligente tabelle sortieren; Namensproblem

vba intelligente tabelle sortieren; Namensproblem
20.02.2018 18:58:50
Thomas
Hey Leute,
ich arbeite gerade an einer Excel in der ich einige intelligente Tabellen mittels vba erstelle. diese sollen nach erstellung sortiert werden. die namen für die intelligente Tabelle würde ich gerne aus einer Tabelle ziehen (fortlaufend)
das einfügen der tabelle ist kein problem aber das anschließende sortieren klappt nicht. ich denke da ich einen string für den namen vergeben habe, ist die schreibweise des codes falsch
"LO.Sort.SortFields.Add _
Range("strtabN[[#All], [Jahr]]"), _"
Sub TabelleDefinieren()
Dim LO As ListObject
Dim lngZeileMax As Long
Dim strtabN as String
strtabN = Worksheets("tabelle1").range("a1").value
With Worksheets("tabelle2")
lngZeileMax = .Cells(.Rows.Count, 4).End(xlUp).Row
Set LO = .ListObjects.Add(SourceType:=xlSrcRange, _
Source:=Range("A1:AQ" & lngZeileMax), xlListObjecthasheaders:=xlYes)
LO.Name = strtabN
Set LO = Worksheets("tabelle2").ListObjects(strtabN)
LO.Sort.SortFields.Clear
Set LO = Worksheets("tabelle2").ListObjects(strtabN)
LO.Sort.SortFields.Clear
LO.Sort.SortFields.Add _
Range(strtabN"[[#All], [Jahr]]"), _' hier liegt der Fehler begraben, da die "" 'falsch  _
gesetzt wurden, ich weiß aber nicht wie?
SortOn:=xlSortOnValues, Order:=xlAscending
With LO.Sort
.Header = xlYes
.Orientation = xlTopToBottom
.Apply
End With
End with
End Sub

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: vba intelligente tabelle sortieren; Namensproblem
20.02.2018 20:19:48
Luschi
Hallo Thomas,
versuch es mal so: Range(strtabN & "[[#All], [Jahr]]")
Gruß von Luschi
aus klein-Paris
AW: vba intelligente tabelle sortieren; Namensproblem
20.02.2018 21:45:30
Thomas
Hallo Luschi,
oft schon an anderer Stelle verwendet und dennoch dort einfach übersehen, obwohl ich stunden probiert habe.
Genau das ist es gewesen, vielen vielen Dank.
Beste Grüße
Thomas
Anzeige

32 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige