Code ausführen

Hallo,
habe folgenden Code:

Sub Result_einlesen()
'alten Satz löschen
Cells.Select
Selection.ListObject.QueryTable.Delete
Selection.ClearContents
'neue Daten einlesen
With ActiveSheet.ListObjects.Add(SourceType:=0, Source:="ODBC;DSN=result", _
Destination:=Range("$A$1")).QueryTable
.CommandText = Array( _
"SELECT Flaw.FlawNo, Flaw.FlawPeriodNo, Flaw.PieceNo, Flaw.FlawLineNo, Flaw.Count, Flaw. _
SignalValues" & Chr(13) & "" & Chr(10) & "FROM result.Flaw Flaw" _
)
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.ListObject.DisplayName = "Tabelle_Abfrage_von_result"
.Refresh BackgroundQuery:=False
End With
End Sub

Dieser wird im Tabellenblatt 2 aufgerufen. Er soll es aber im Tabellenblatt 1 ausführen. Wie kann ich den Code verändern das er es im hintergrund auf Tabelle 1 macht ohne sichtlich auf das Tabellenblatt 1 zu wechseln.
Gruß
Stephan

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Stephan,
das müsste laufen.

Sub Result_einlesen()
  Dim rng As Range

  With Sheets("Tabelle1")
    'alten Satz löschen
    .UsedRange.ListObject.QueryTable.Delete
    .UsedRange.ClearContents
    Set rng = .Range("A1")
    'neue Daten einlesen
    With .ListObjects.Add(SourceType:=0, Source:="ODBC;DSN=result", Destination:=rng).QueryTable
      .CommandText = Array("SELECT Flaw.FlawNo, Flaw.FlawPeriodNo, Flaw.PieceNo, Flaw.FlawLineNo, Flaw.Count, Flaw.SignalValues" & Chr(13) & "" & Chr(10) & "FROM result.Flaw Flaw")
      .RowNumbers = False
      .FillAdjacentFormulas = False
      .PreserveFormatting = True
      .RefreshOnFileOpen = False
      .BackgroundQuery = True
      .RefreshStyle = xlInsertDeleteCells
      .SavePassword = False
      .SaveData = True
      .AdjustColumnWidth = True
      .RefreshPeriod = 0
      .PreserveColumnInfo = True
      .ListObject.DisplayName = "Tabelle_Abfrage_von_result"
      .Refresh BackgroundQuery:=False
    End With
  End With

  Set rng = Nothing
End Sub

Gruß Sepp

Option Explicit Sub Result_einlesen() 'alten Satz löschen With Worksheets("Tabelle1") .Cells.ListObject.QueryTable.Delete .Cells.ClearContents 'neue Daten einlesen With .ListObjects.Add(SourceType:=0, Source:="ODBC;DSN=result", _ Destination:=.Range("$A$1")).QueryTable .CommandText = Array("SELECT Flaw.FlawNo, Flaw.FlawPeriodNo, Flaw.PieceNo, Flaw. _ FlawLineNo, Flaw.Count, Flaw. SignalValues" & Chr(13) & "" & Chr(10) & "FROM result.Flaw Flaw") .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .BackgroundQuery = True .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .PreserveColumnInfo = True .ListObject.DisplayName = "Tabelle_Abfrage_von_result" .Refresh BackgroundQuery:=False End With End With End Sub

Beliebteste Forumthreads (12 Monate)

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread