Excel-Access
09.02.2004 22:05:22
HerbertS
ich habe in Excel in Zelle C1 jeweils unterschiedlich viele Orte mit Wie Köln* oder Hamburg etc. zusammenstellen lassen. Nun sollen diese Orte in Access in einer Abfrage in der Kriterienzeile eingetragen werden. Die folgende Prozedur muss also noch ergänzt werden:
Sub DatenbankZugriff()
Dim Orte As String
Dim MSAccess As Object
On Error GoTo errorhandler
Set MSAccess = CreateObject("Access.Application")
With MSAccess
.OpenCurrentDatabase "C:\muster.mdb"
.UserControl = True
Orte = Worksheets(1).[C1].Text '** hier stehen die Orte, die ich in ACCESS abfragen will
'*** Wie kriege ich die Orte aus der Excel-Tabelle C1 in die Kriterienzeile der Abfrage ???? ****
End With
Set MSAccess = Nothing
Exit Sub
errorhandler:
MsgBox "Nix, " & "Fehler: "
End Sub
Vielen Dank im Voraus
HerbertS