Bewegliche Text in Excel
26.10.2005 13:47:18
dario
ich habe gestern in Forum ein sehr gutes Code bekommen für meine Datei, (vielen Dank), aber eine Frage habe ich noch;
'diese Code kann einen Text beweglich mache'
'mit z.B Zeitzähler von 37 Sec.'
Declare
Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub TextRotieren()
[B3] = " FFF-ddddd Excel Lösungen >>>> "
y = 0
Dim C As Range
Dim i%
Set C = Range("B3")
For i = 1 To 37
[S11] = 37 - i
C = Right(C, Len(C.Value) - 1) + Left(C, 1)
Sleep 200
y = y + 1
Next i
[B3] = "www.sssss.de"
[B2] = "Mehr Info's in WEB"
End Sub
- wenn die Prozedur gelaufen ist dann gibt's in meinem Fall Ergebniss in Zelle B3 und B2, wie kann ich so etwas einbauen wenn die Ergebniss angezeigt ist das die nach z.B 10 Sec, gelöscht wird.?
Währe sehr Dankbar.
gruss
dario
Anzeige