ich habe folgenden Code auf einen CommandButton "gelegt":
Private Sub CommandButton3_Click()
If UserForm1.CommandButton3.Caption = "Pause" Then
Application.OnTime NextTime1, "CommandButton1_Click", , False
Range("A2").Select
Selection.Copy
Range("A3").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
UserForm1.CommandButton2.Caption = "Weiter"
UserForm1.CommandButton1.Visible = False
UserForm1.CommandButton3.Visible = False
End If
End Sub
Mir geht es jetzt um die folgende Zeile:
Application.OnTime NextTime1, "CommandButton1_Click", , False
Es geht jetzt darum zu prüfen, ob das Makro "CommandButton1_Click" läuft oder nicht. Wenn es läuft, ist alles O.K., aber wenn das Makro nicht gerade läuft, bekomme ich folgende Fehlermeldung
Run-Time error '1004'
Method 'OnTime' of object '_Application' failed.
Ich denke das müsste irgendwie über eine Wenn dann Schleife gehen, aber da hören meine Excel Kentnisse auf. Vielleicht kann jemand den Code entsprechend anpassen.
Danke schon mal für jeden Tipp.
Tschüss
Josef