bin gerade ein wenig am verzweifeln, da ich es irgendwie nicht hinbekomme eine Combobox variabel anzusprechen.
Habe in einem Tabellenblatt mehrere Comboboxen, die ich beim Start der Datei aus einer SQL Datenbank befüllen möchte. Grundsätzlich ja auch keine Thema. Da es aber sehr viele sind möchte ich die Befüllung variabel gestalten.
Tabellenblatt = start
Comboboxen heißen zB f_gjahr, f_projekt, usw.
So sieht der Code mal ohne Variable aus
Sub fuellen()
Dim filt As String
Dim i as integer
Call connect
For i = 5 To 21
filt = start.Cells(i, 2).Value 'hier wird der SQL Feldname ermittelt = gjahr
With start.f_gjahr
.Clear
.AddItem ""
Set rs = conn.Execute("Select " & filt & " from " & table5 & " group by " & filt & " _
_
order by " & filt & ";")
Do
.AddItem rs.Fields(filt)
rs.MoveNext
Loop Until rs.EOF
.ListIndex = 0
End With
End Sub
Soweit so gut. Das funktioniert auch einwandfrei.Möchte aber nun den Comboboxanmen variabel setzen also
With "start.f_" & filt
Hab mich schon mehr als 1 Stunde durchgegoogelt krieg es aber einfach nicht hin ohne dass ich nicht irgendeine Fehlermeldung bekomme.
Danke im Voraus für eure Hilfe.
mfg
Mario