Code ausführen
Einzel
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