Aktueller Inhalt von stoff76

Hallo Sorry bin etwas spät mit meiner Antwort.... Folgendes ist zwar etwas umständlich, aber funzt: Dim iSekunde Do iSekunde = Second(Now) Select Case iSekunde Case 0 'Anweisung Case 1 'Anweisung '... Case 59 End Select Loop Gruss Stoff76