[klaus]

Hallo Knochi

In Deinem Code musst Du
Dim i As byte

einfach durch

Dim i
ersetzen, und dann funktioniert es.

Grüsse
Klaus
Switzerland