Supportnet / Forum / Tabellenkalkulation
Abfrage Excel
Frage
Habe folgendes Makro zur Abfrage von daten aus Access und möchte den Wert 4 in (`Office Address List`.`BG-Nr`>'4')" aus einer Zelle oder Eingabebox varibel haben. Wie kann ich das lösen?
Sub Makro1()
'
' Makro1 Makro
' Makro am 20.09.2008 von Andreas aufgezeichnet
'
'
With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
"ODBC;DSN=Microsoft Access-Datenbank;DBQ=D:\ARBEIT\Bewerbungscenter Kamenz\Unterlagen BC\Verknüpfte\BC Datenbank.mdb;DefaultDir=D:\AR" _
), Array( _
"BEIT\Bewerbungscenter Kamenz\Unterlagen BC\Verknüpfte;DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;" _
)), Destination:=Range("M4"))
.CommandText = Array( _
"SELECT `Office Address List`.Titel, `Office Address List`.Vorname, `Office Address List`.Nachname, `Office Address List`.`Adresszeile 1`, `Office Address List`.Postleitzahl, `Office Address List`.Ort," _
, _
" `Office Address List`.`Telefon privat`, `Office Address List`.Beginn, `Office Address List`.Ende, `Office Address List`.Kundennummer, `Office Address List`.GebDatum, `Office Address List`.Kilometer, " _
, _
"`Office Address List`.`BG-Nr`, `Office Address List`.`E-Mail-Adresse`" & Chr(13) & "" & Chr(10) & "FROM `Office Address List` `Office Address List`" & Chr(13) & "" & Chr(10) & "WHERE (`Office Address List`.`BG-Nr`>'4')" _
)
.Name = "Abfrage von Microsoft Access-Datenbank"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 20
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=True
End With
End Sub