Data fra database til combobox

Hvorfor i excel? Access er som skabt til det :D
Alternativt, skab datagrundlaget i access, og hent det til excel via en query som du kan filtrere

Option Base 1
Public liste()

Sub GetTable()
Dim Db As Database
Dim Rs As Recordset

Dim Database As String
Dim Tabel As String
Dim sqlstr As String

Dim var()
Dim x As Long
'Her indsætter du navn og sti på din accessdatabase
Database = "c:\testdatabase.mdb"
'Her tabelnavn
Tabel = "Lager&salg"

sqlstr = "SELECT * FROM " & Tabel & ";"
'*** Hent data ***
Set Db = Workspaces(0).OpenDatabase(Database, ReadOnly:=True)
Set Rs = Db.OpenRecordset(sqlstr)
x = 1
With Rs
        If Not .BOF Then .MoveFirst
        While Not .EOF
            ReDim Preserve var(x)
            var(x) = .Fields("Dato")
            .MoveNext
            x = x + 1
        Wend
End With
liste = Application.WorksheetFunction.Transpose(var)
'*** luk databasen igen ***
Rs.Close
Db.Close
End Sub


Sub Auto_Open()
Call GetTable
Sheets(1).ComboBox1.List = liste  'overfør listen til combobox1 på sheet1
End Sub

Jeg kan desværre ikke få det til at køre, får flg fejl:
Run-time error '13':

Type mismatch

og så markerer den,
Set Rs = Db.OpenRecordset(sqlstr)

Har du sat det rigtige tabelnavn ind hvor der står
Tabel = "Lager&salg"

Ja, kan ikke se hvad der er galt.

Det kan jeg heller ikke. Det virker bare godt her.
Smid lige din kode ind....

hmmm!!
skiftede computer og smed koden ind i et nyt excelark, og nu virker det.

har dog et nyt problem, da jeg ændrede database opbygningen, figurerer samme dato flere gange. Hvordan kan jeg undgå, at samme dato optræder flere gange i comboboxen?

indsæt dette istedet
sqlstr = "SELECT DISTINCT Dato FROM " & Tabel & ";"

distinct betyder at den skal tage unikke datoer

Stort!!
det virker perfekt.

Vil du ha' point??

tjae, hvorfor ik' :-)