07-18-2008 04:31 AM
07-18-2008 04:43 AM
Matthias Alleweldt Project Engineer / Projektingenieur | Twigeater? |
07-18-2008 06:21 AM
07-18-2008 06:44 AM
Option Explicit
Dim aoChannels
Dim oChannel
aoChannels = ChnStrToChnList(DataCheckChnls)
For Each oChannel In aoChannels
MsgBox CNo(oChannel)
Next
Option Explicit
Dim i
Dim aoChannels
Dim anChannels
aoChannels = ChnStrToChnList(DataCheckChnls)
ReDim anChannels(UBound(aoChannels))
For i=0 To UBound(aoChannels)
anChannels = CNo(aoChannels(i))
Next
Matthias Alleweldt Project Engineer / Projektingenieur | Twigeater? |
07-18-2008 07:55 AM
Matthias,
Thank's a lot, it works very well ! DIAdem is my friend !
Goodbye.