Zähler
07.12.2007 17:41:00
klaro
Wer kann diesen Zähler ergänzen
1)Makro zum einschalten
2)Makro zum ausschalten
Ohne Button(die kann ich schon selber
Machen)
Mit freundlichen Grüßen
klaro
Declare
Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub Auf_Ab_Zähler()
Dim Zähler
Dim Zählrichtung
Zählrichtung = 1
Zähler = 10
Do While Cells(1, 2).Value = ""
If Zähler = 10 Then
Zählrichtung = 1
End If
If Zähler = 50 Then
Zählrichtung = -1
End If
Zähler = Zähler + Zählrichtung
Cells(1, 1).Value = Zähler
DoEvents
Sleep 350
Loop
End Sub