habe volgendes problem
wie kann ich aus einer access datenbank bestimmte daten ausfiltern (nach kriterien suchen) und dann diese in einer ComboBox im Excel zur auswahl stellen
wer kann mir helfen?
vielen dank
Option Explicit
Sub getRS()
Dim ws As Workspace
Dim db As Object, rs As Recordset
Dim strDbName$, strTab$, strSQL$
Dim i&
'strDbName = "<Pfad + Name zu deiner DB>"
'strTab = "<Tabelle deiner DB>"
'strSQL = "<dein SQL-String in Abhängigkeit von strTab>"
Set db = OpenDatabase(strDbName)
Set rs = db.OpenRecordset(strSQL)
With UserForm1.ListBox1
Do Until rs.EOF
.AddItem
'.List(i, 0) = rs!<Name von Feld1 aus "strTab">
'.List(i, 1) = rs!<Name von Feld2 aus "strTab">
'usw.
i = i + 1
rs.MoveNext
Loop
End With
rs.Close
db.Close
Set rs = Nothing
Set db = Nothing
End Sub
strSQL = "SELECT * FROM " & strTab
strSQL = "SELECT * FROM " & strTab