Supportnet / Forum / Tabellenkalkulation

Hallo Ihr! Ich habe wieder mal ein Problem: Ich habe mit diesem Code eine Ellipse dazu gebracht zu blinken! Das Problem ist, die Ellipse blinkt, wenn einmal durch ein Kontrollkästchen aktiviert die ganze Zeit durch. Ich möchte aber, dass wenn ich ein anderes Kontrollkästchen aktiviere diese Ellipse wieder aufhört! Hier mein Code: Public Zeit As Variant Sub Erste_Farbe1() ActiveSheet.Shapes("Ellipse 11").Select Selection.ShapeRange.Fill.ForeColor.SchemeColor = 9 Selection.ShapeRange.Fill.Visible = msoTrue Selection.ShapeRange.Fill.Solid Zeit = Now + TimeValue("00:00:01") Application.OnTime Zeit, "Zweite_Farbe1" End Sub Sub Zweite_Farbe1() ActiveSheet.Shapes("Ellipse 11").Select Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13 Selection.ShapeRange.Fill.Visible = msoTrue Selection.ShapeRange.Fill.Solid Zeit = Now + TimeValue("00:00:01") Application.OnTime Zeit, "Erste_Farbe1" End Sub Ich hoffe ihr könnt mir helfen! Liebe Grüße Jakob

Hallo

Private Sub CommandButton2_Click()
On Error Resume Next
Application.OnTime Zeit, "Erste_Farbe1", , False
Application.OnTime Zeit, "Zweite_Farbe1", , False
On Error GoTo 0
End Sub

vesuch das ´mal...
Gruß

• Sicherheitswarnung beim öffnen deaktivieren
• makro-abfrage in excel dauerhaft deaktivieren
• kann wegen makro nicht drucken - was machen?