__________________________________________________
Dim dtoNothing As DataObject
Set dtoNothing = New DataObject
dtoNothing.SetText ""
dtoNothing.PutInClipboard
__________________________________________________
Das scheint etwas gruendlicher passiert zu sein als beabsichtigt, mein Zaehler scheint mit entsorgt worden zu sein und er bringt nach einmaligem Durchlauf der Schleife (die nun nicht mehr schleift) meine MsgBox "Fertig!", die eigentlich ausserhalb der Schleife am Ende des Subs steht.
Ist das normal so?!!