Hi 'n welcome Guido,
naja, mal Hand aufs Herz, mit Acad programmieren hat das ja nun nur bedingt zu tun ;-),
egal ... - mit 'nem Textfile könntes zB so laufen:
Code:
Private Sub UserForm_Initialize()
Dim s$
Open "c:\temp\01.txt" For Input As #1
While Not EOF(1)
Line Input #1, s
ComboBox1.AddItem s
Wend
Close #1
End Sub
Geht auch mit Excel, dazu mal die Beispiele in der Online-Hilfe [getobject, createobject, early- oder late binding] anschauen und dann halt nen Zähler einbauen, etwa sowas in der Art:
Code:
with xlobject.sheets("Tabelle1")
for i=1 to .cells(rows.count,1).end(xlup).row
combobox1.additem .cells(i,1).value
next
end with
Gruss Nancy
[Diese Nachricht wurde von startrek am 18. Dez. 2004 editiert.]
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP