vba intelligente tabelle sortieren; Namensproblem
20.02.2018 18:58:50
Thomas
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
Anzeige