durch euch bin ich endlich fast am Ziel und bräuchte euro Hilfe nun nochmals.
Folgendes:
Set rec = Query1.Execute(Abfrage, CN)
FieldCounter = rec.Fields.Count
J = 16
Do
For I = 0 To rec.Fields.Count - 1
Cells(J, I + 7) = rec.Fields(I)
Next
J = J + 1
rec.MoveNext
Loop While rec.EOF = False
Set rec = Nothing
Habe dieses Codesegment was eigentlich ganz gut funktioniert nur müsste ich es so verändern das nur in eine Zelle einen Wert (wird auch nur ein Wert aus der Abfrage der Datenbank gezogen)bekommt hier können mehrer Zellen ausgefüllt werden. Kann mir da jmd helfen entweder das ganze so umzuscheiben das nur ein Wert wieder gibt oder ein neues Codestück was nur einen Wert wiedegibt.
Mfg
Manu
Danke schon mal