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 , 89 mal gelesen