Na, etwa so (ob eine Spalte ausgeblendet ist, steht im Array "Ausgeblendet" - das musst du halt aus deiner Tabelle [wozu überhaupt eine Tabelle!?! Na, egal...] einlesen):



Const KMax = 15

Dim Ausgeblendet(KMax) as Boolean, I as long, Z as Long, S as long

Do until RS.EOF

S = 0: Z = Z+1

For I = 0 to KMax

If Not Ausgeblendet(I) then

S = S+1

excelObj.Cells(Z,S) = RS(I)

end if

Next I

RS.movenext

Loop

Gruß aus dem Norden

Reinhard

---

Bitte immer die Access-Version angeben

---

 

geschrieben von Reinhard Kraasch , 10.12.2002, 11:46 Uhr , 109 mal gelesen