title image


Smiley ääähhh liebe Helfer ich dachte eigentlich an eine Lösung per Quellcode
wie schon mal von mir realisiert von Access nach Excel geschickt, Bsp.





Set rs = CurrentDb.OpenRecordset("tblAdresse2", dbOpenSnapshot)

If Not rs.AbsolutePosition Then

rs.MoveFirst

AktZeile = 4 'für Zeile 4

Do

For I = 0 To rs.Fields.Count - 1

xlWs.cells(AktZeile, I + 1).Value = rs(I) 'Beginnt bei Spalte a



Next I

AktZeile = AktZeile + 1

rs.MoveNext

Loop Until rs.EOF



So in der Richtung ?!?



Gruß

Trabbi



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: