kernel - sleep
26.06.2003 07:20:06
Herbert
was muß ich wo einstellen, damit das folgende Makro läuft (Laufschrift). Mit Application.wait ruckelt es.
Declare Sub sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
'Vorher einstellen: ??????
Sub TextLaufen()
Set ac = [A3]
[ac].Select
Länge = Len([ac])
For i = 1 To Länge
txt = Left([ac], 1)
Rest = Mid([A3], 2, Länge - 1)
[ac].Value = Rest & txt
sleep 100
Next i
End Sub
Vielen Dank für einen Hinweis
Herbert
Anzeige