Sub Makro()
 

 

    Dim sourcerange1 As Range
    With ActiveSheet.ListObjects.Add(SourceType:=0, Source:="ODBC;DRIVER={Microsoft ODBC for Oracle};UID=blubb;PWD=blubb;SERVER=blubb;", Destination:=Range("$H$1")).QueryTable
        .CommandText = "select blubb"
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .EnableRefresh = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .ListObject.DisplayName = "Tabelle_Abfrage_von_Iset3"
        .Refresh BackgroundQuery:=False
    End With
    End Sub

 

Geht das überhaupt? wie muss das aussehen?

Vielen Dank für die zahlreichen Antworten ( hoffentlich werden es ein paar)

 

PS: eine weitere Frage aus reiner Neugier: wie kriegt man es hin dass die abgefragten Daten aktualisiert und nicht erneuert werden? Sobald ich das obige Marko ausführe meckert er so in der Art "Kann Pivot-Tabelle nicht überschreiben"