Excel Tabelle erstellen und Namen festlegen

[AL15]

Hallo,

versuche gerade via LS ein Excel zu erstellen und hier eine Tabelle einzufügen - leider schaffe ich es nicht den Namen der Tabelle anzugeben - hier mein script:

With xlSheet_ITR3.ListObjects
       Call .Add(1, xlApp.Range("A2").Resize(x_e+1,UBound(ITR_e,2)+1), , 1)
End With

Die Tabelle wird richtig erstellt allerdings finde ich keinen weg den namen anzugeben - kennt jemand einen Weg?

DANKE
lg
AL

[Tode]

Was ich in solchen Fällen immer mache: Ich starte Excel, zeige mir die die "Entwicklertools" an und starte eine Macro- Aufzeichnung.
Dann mache ich manuell das, was nachher mein Script tun soll und schaue mir den generierten Code an.

Da komme ich dann auf folgenden Code:

Code

xlSheet_ITR3.ListObjects.Add(1, xlApp.Range("A2").Resize(x_e+1,UBound(ITR_e,2)+1), , 1)
xlSheet_ITR3.ListObjects(xlSheet_ITR3.ListObjects.Count).Name = "Neuer Name"

Ob das in Deinem Kontext funktioniert, kann ich Dir aber nicht sagen.