Dynamisch Gefilterter Import aus Access per VBA

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Vielen Dank schon einmal Luschi,
jetzt besteht das Problem nur noch darin einen Filter einzubauen. Ich bin mir nicht sicher, ob Excel erst alle Daten importieren muss und dann filtert, oder ob der Filter nicht schon während des Datenimportes laufen kann.
Ich hatte über den Makrorekorder folgende Lösung bekommen. Das Problem besteht jedoch darin statt eines hart eingetragenen Filters (z.B. einer konkreten Kundennummer) einen dynamischen Bezug zu realisieren:
Ich bin weiterhin für jede Lösung bzw. Anregung dankbar.
Gruss, Ulrich
------


Sub Makro1()
Dim KdNr As Range
Set KdNr = Range("C1")
Sheets("Import").Select
Range("A1").Select
With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
"ODBC;DSN=MS Access Database;DBQ=C:\Dokumente und Einstellungen\Uli\Eigene Dateien\ _
Kalkulation.mdb;DefaultDir=C:\Dokumente und Einstellungen\Uli\Eigene Dateien\ServerId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;" _
)), Destination:=Range("A1"))
.CommandText = Array( _
"SELECT ExportExcel_ETeile_Kaufteile_Kundenpreise.Mat_Kunde_ID,  _
ExportExcel_ETeile_Kaufteile_Kundenpreise.Materialnr, ExportExcel_ETeile_Kaufteile_Kundenpreise.Kundennummer, ExportExcel_ETeile_Kaufteil" _
, _
"e_Kundenpreise.Kundenname, ExportExcel_ETeile_Kaufteile_Kundenpreise.Preis_Ang,  _
ExportExcel_ETeile_Kaufteile_Kundenpreise.Datum_Ang, ExportExcel_ETeile_Kaufteile_Kundenpreise.VBELN_Ang, ExportExcel_ET" _
, _
"eile_Kaufteile_Kundenpreise.Preis_Auf, ExportExcel_ETeile_Kaufteile_Kundenpreise. _
Datum_Auf, ExportExcel_ETeile_Kaufteile_Kundenpreise.VBELN_Auf" & Chr(13) & "" & Chr(10) & "FROM ExportExcel_ETeile_Kaufteile_Kundenpreise ExportEx" _
, _
"cel_ETeile_Kaufteile_Kundenpreise" & Chr(13) & "" & Chr(10) & "WHERE ( _
ExportExcel_ETeile_Kaufteile_Kundenpreise.Kundennummer=KdNr)" _
)
.Name = "Abfrage von MS Access Database_4"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With
Sheets("Start").Select
End Sub

Herzlichen Dank Luschi,
die Lösung trifft vollends meine Erwartungen. Mein einziges Problem ist noch, dass meine VBA Kenntnisse noch nicht ausreichen sie vollends zu verstehen und somit richtig anzupassen. Meine hoffentlich letzte Frage/Belästigung zielt daher darauf ab die Lösung richtig zu verstehen um sie dann eigenständig in meine Excel-Datei einzuarbeiten:
Wenn ich es richtig verstanden habe ist die Abfolge wie folgt:
1) Per Klick auf die Schaltfläche wird das Makro "ImportFromACCESS" aufgerufen und die Zelle mit dem Namen "gesamtPLZ" als Wert definiert


Private Sub CommandButton1_Click()
ImportFromACCESS [gesamtPLZ].Value, 1
End Sub

2) Im Makro "ImportFromACCESS" erfolgt dann die Erstellung des SQL-Statements zwecks Übertragung an Access, wobei der Filter wie folgt definiert wird: "Where Tabelle1.PLZ = " & setChr34(Right("00000" & x_PLZ, 5))"
3) Die Verbindung zwischen dem Wert und dem Filter erfolgt in folgender Funktion:
Function setChr34(xWert As String)
setChr34 = Chr(34) & xWert & Chr(34)
End Function

Was ich jedoch noch nicht verstehe ist, wie bzw. wo aus gesamtPLZ für den Filter X_PLZ wird und was die Funktion zu setChr34 genau macht.
Sobald ich dies verstanden habe, hoffe ich dann die Einbettung in mein Tool alleine hinzubekommen.
Vielen Dank schon im Voraus,
ich bin sehr glücklich, dass Du eine so tolle Lösung gefunden hast :)
Ulrich

Beliebteste Forumthreads (12 Monate)

Dynamisch Gefilterter Import aus Access per VBA

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread