VBA - Daten in vorhandenes ListObject mittel Query einlesen

[antaris]

Hallo zusammen,

ich lade Daten aus einer externen Datenbank, was auch funktioniert.
Die geladenen Daten werden in ein neu erzeugtes ListObject eingefügt, was ebenfalls funktioniert.

Code:

With Tabelle4.ListObjects.Add(SourceType:=0, Source:="OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=" & p & ";Extended Properties=""""" _
        , Destination:=Range("$B$5")).QueryTable
        .CommandType = xlCmdSql
        .CommandText = Array("SELECT * FROM [" & p & "]")
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = False
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .Refresh BackgroundQuery:=False
    End With

Nun will ich nicht jedes mal ein ListObject via Add erzeugen, sondern ein vorhandenes ListObject nutzen.
Wie kann ich diese Daten in ein vorhandenes ListObject ("tblQuoteData") laden?


Danke und Gruß

[marose67]

Hallo,

ist doch ganz einfach:

Gruß
Marcus

[Raoul21]

Was ist das für eine Forum.xlsm-Datei mit Makro, das beim Aufruf der Datei automatisch startet und dann unkontrolliert Internetaktivitäten durchführt?

Das sieht ja richtig gefährlich aus.

Man kann einen Hinweis auf das Hochladen von Arbeitsmappen auch so geben:
https://www.clever-excel-forum.de/Thread...einstellen
https://www.clever-excel-forum.de/Thread...ng-stellen

[schauan]

Hallöchen,

da hätte sicher auch der Code ausgereicht.

Hier mal ein Link zu einem Lösungsansatz:

pasting-an-array-of-values-over-a-listobject-excel-table-destroys-the-listobje