Anzeige
Archiv - Navigation
684to688
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
684to688
684to688
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Bewegliche Text in Excel

Bewegliche Text in Excel
26.10.2005 13:47:18
dario
Hallo Leute,
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

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bewegliche Text in Excel
26.10.2005 14:11:18
Werner
Hallo Dario
Next i
[B3] = "www.sssss.de"
[B2] = "Mehr Info's in WEB"
'ab hier neu
If Application.Wait(Now + TimeValue("0:00:02")) Then
[B:B3] = ""
End If
'bis hier
End Sub
Gruss Werner
Meine Tastatur
26.10.2005 14:32:28
Werner
Sorry Dario
[B:B3] = ""
sollte eigentlich
[B2:B3] = ""
heissen
Gruss Werner
AW: Meine Tastatur
26.10.2005 15:11:29
dario
hallo Werner,
das ist echt geil,,,,,
nochmals vielen Dank für deine Hilfe.
Gruss
dario
Gern geschehen. Danke für die Rückmeldung OT:-)
26.10.2005 15:15:48
Werner
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige