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

Text je Buchstabe mit Zeitschleife

Forumthread: Text je Buchstabe mit Zeitschleife

Text je Buchstabe mit Zeitschleife
28.02.2025 16:12:08
Dieter(Drummer)
Guten Tag an alle.

In der Musterdatei wird Text in Zelle B3 geschrieben. Das Einfügen des Textes erfolgt je Buchstabe per Zeitschleife. Der Gesamte Text ist "Zeit nur ein Test". Das funktioniert.

Frage: Kann man den Code vereinfachen und oder kürzen?

Mit der Bitte um Hilfe, grüßt
Dieter(Drummer)
Musterdatei:
https://www.herber.de/bbs/user/176058.xlsm
Code: 
Sub Schrift_Zeit()

ActiveSheet.Range("B3").FormulaR1C1 = "Z"

  Application.Wait Now + TimeSerial(0, 0, 0.9)

ActiveSheet.Range("B3").FormulaR1C1 = "Ze"

  Application.Wait Now + TimeSerial(0, 0, 0.9)

ActiveSheet.Range("B3").FormulaR1C1 = "Zei"

  Application.Wait Now + TimeSerial(0, 0, 0.9)

ActiveSheet.Range("B3").FormulaR1C1 = "Zeit "

  Application.Wait Now + TimeSerial(0, 0, 0.9)



ActiveSheet.Range("B3").FormulaR1C1 = "Zeit n"

  Application.Wait Now + TimeSerial(0, 0, 0.9)

ActiveSheet.Range("B3").FormulaR1C1 = "Zeit nu "

  Application.Wait Now + TimeSerial(0, 0, 0.9)

ActiveSheet.Range("B3").FormulaR1C1 = "Zeit nur "

  Application.Wait Now + TimeSerial(0, 0, 0.9)



ActiveSheet.Range("B3").FormulaR1C1 = "Zeit nur e"

  Application.Wait Now + TimeSerial(0, 0, 0.9)

ActiveSheet.Range("B3").FormulaR1C1 = "Zeit nur ei"

  Application.Wait Now + TimeSerial(0, 0, 0.9)

ActiveSheet.Range("B3").FormulaR1C1 = "Zeit nur ein "

  Application.Wait Now + TimeSerial(0, 0, 0.9)



ActiveSheet.Range("B3").FormulaR1C1 = "Zeit nur ein T"

  Application.Wait Now + TimeSerial(0, 0, 0.9)

ActiveSheet.Range("B3").FormulaR1C1 = "Zeit nur ein Te"

  Application.Wait Now + TimeSerial(0, 0, 0.9)

ActiveSheet.Range("B3").FormulaR1C1 = "Zeit nur ein Test"

End Sub
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Text je Buchstabe mit Zeitschleife
28.02.2025 16:21:24
Marc 


Dim str as String



str =  "Zeit nur ein Test"



For i = 1 To Len(str)

   Application.Wait Now + TimeSerial(0, 0, 0.9)

  ActiveSheet.Range("B3").FormulaR1C1 = ActiveSheet.Range("B3").FormulaR1C1  + Mid(str, i, 1) 

Next i



etwa so ?

ungetestet...
Anzeige
AW: Text je Buchstabe mit Zeitschleife
28.02.2025 16:29:44
GerdL
Guten Tag Dieter!
Dein Code in einer Schleife: 
Sub Schrift_Zeit_2()



    Const Txt As String = "Zeit nur ein Test"

    Dim i As Integer

    

    For i = 1 To Len(Txt)

        Range("B3").Value = Left$(Txt, i)

        Application.Wait Now + TimeSerial(0, 0, 0.9)

    Next



End Sub


Gruß Gerd
Anzeige
AW: Text je Buchstabe mit Zeitschleife
28.02.2025 16:46:24
Dieter(Drummer)
Danke Gerd,

funktioniert perfekt.

Hast du noch ein Idee, wie ich die Zeitschleife etwas schneller machen machen?

Gruß,
Dieter(Drummer)

AW: Text je Buchstabe mit Zeitschleife
28.02.2025 16:42:15
Dieter(Drummer)
Danke Marc,

funktioniert perfekt.

Gruß,
Dieter(Drummer)
AW: Text je Buchstabe mit Zeitschleife
28.02.2025 16:43:17
Daniel
Hi

Etwas einfacher: 
Dim Txt as String

Dim x as Long

Dim T as double



T = "Zeit ist zur ein Test"



For x = 1 to len(txt)

    Range("B3").value = Left(txt, x)

    T = Timer + 0.9

     Do while Timer  T 

     Loop

Next


Über Timer lässt sich die Pause feiner einstellen als bei Wait, das kann meines Wissens nach nur ganze Sekunden (kann mit neueren Excelversionen aber anders sein)

Kleine Einschränkung:
Kurz vor Mitternacht sollte der Code nicht gestartet werden, da dann er Timer wieder auf 0 gesetzt wird (Timer = Sekunden ab Mitternacht)

Gruß Daniel
Anzeige
AW: Text je Buchstabe mit Zeitschleife
28.02.2025 16:53:02
Dieter(Drummer)
Danke Daniel für Rückmeldung.

Dein Code bricht in Zeile "T = "Zeit ist zur ein Test" ab, mit dem Hinweis" Laufzeitfehler 13, Type unverträglich"
Kannst du da noch nachhelfen?

Gruß,
Dieter(Drummer)
AW: Text je Buchstabe mit Zeitschleife
28.02.2025 17:05:16
Daniel
An der Stelle sollte Txt statt T stehen.
Hab ich vergessen zu ändern.
AW: Text je Buchstabe mit Zeitschleife
28.02.2025 17:16:01
Dieter(Drummer)
Danke Daniel,

jetzt klappt es.

Gruß,
Dieter(Drummer)
Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum