bei an diesem Punkt springt er raus: ".Refresh BackgroundQuery:=False" und es werde auch keine Daten ausgegeben.
var = eingelesenes Tabellenfeld!!!
.
.
.
.CommandText = Array( _
"SELECT Banken.Bankname" & Chr(13) & "" & Chr(10) & "FROM Banken Banken" & Chr(13) & "" & Chr(10) & "WHERE (Banken.Bankkennung=" & var)
.Name = "Abfrage von Microsoft Access-Datenbank_66"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False