hab hier ein Makro mit mehreren Subs, die permanent ablaufen. Ein Sub davon soll allerdings nur alle 60 Sekunden aufgerufen werden.
Application.Wait Now + TimeSerial(0, 0, 60) hilft mir da also nicht weiter, oder?
Gruß
Hanna
Sub Test()
Application.OnTime Now + TimeSerial(0, 0, 60), "Test"
MsgBox "x"
End Sub
Die
Sub muss einmal extern aufgerufen werden und startet sich dann alle 60 Sekunden selbst. Statt _
der MsgBox fügst Du Deinen Code ein.
Schönen Gruß,
Andi
Sub Test()
Application.OnTime Now + TimeSerial(0, 0, 60), "Test"
Rows(6).ClearContents
End Sub
Microsoft Excel kann das Makro C/:XXXX\Shett.xls`!Test nicht finden.
Was hab ich da wieder falsch gemacht?
Gruß
Hanna
Sub Show_change3()
Application.Wait Now + TimeSerial(0, 0, 1)
For I = 10 To 50
If Range("L" & I).Value myArray3(I - 10) Then
Application.ScreenUpdating = False
Rows(I).Copy
Rows(6).PasteSpecial xlPasteValues
Application.CutCopyMode = False
Range("L" & I).Select
Call sndPlaySound32("c:\pos", 1)
Application.ScreenUpdating = True
myArray3(I - 10) = Range("L" & I)
End If
Next I
Call Test
End Sub
Sub Test()
Application.OnTime Now + TimeSerial(0, 0, 60), "Test"
Rows(8).ClearContents
Call Show_change4
End Sub
.....
Sub Show_change3()
Application.Wait Now + TimeSerial(0, 0, 1)
For I = 10 To 50
If Range("L" & I).Value myArray3(I - 10) Then
Application.ScreenUpdating = False
Rows(I).Copy
Rows(6).PasteSpecial xlPasteValues
Application.CutCopyMode = False
Range("L" & I).Select
Call sndPlaySound32("c:\pos", 1)
Application.ScreenUpdating = True
myArray3(I - 10) = Range("L" & I)
End If
Next I
Call Test
End Sub
Sub Test()
Application.OnTime Now + TimeSerial(0, 0, 60), "Test"
Rows(8).ClearContents
Call Show_change4
End Sub
.....
Sub Test()
Application.OnTime Now + TimeSerial(0, 0, 60), "Test"
Rows(8).ClearContents
End Sub
Sub Test()
Application.OnTime Now + TimeSerial(0, 0, 60), "Test"
Rows(8).ClearContents
End Sub