Makro hakt -- Application.Wait (Now + TimeValue("0:00:10"))

Forumthread: Makro hakt -- Application.Wait (Now + TimeValue("0:00:10"))

02.08.2024 21:15:57

null8fuff10

Hallo,

wenn ich Daten per Makro in eine andere Zelle kopiere, dann hakt es. Es wird der Inhalt der ersten Zelle kopiert und angezeigt, die beiden weiteren Werte werden mir nach 10 Sekunden für ne Millisekunde angezeigt und alle drei Zellinhalte, wie gewünscht, wieder gelöscht.

Sub Daten_akt_und_Loeschen()

       

        Worksheets("Tabelle1").Cells(1, 2).Value = Worksheets("Tabelle1").Cells(1, 1).Value

        Worksheets("Tabelle1").Cells(2, 2).Value = Worksheets("Tabelle1").Cells(2, 1).Value

        Worksheets("Tabelle1").Cells(3, 2).Value = Worksheets("Tabelle1").Cells(3, 1).Value



Application.Wait (Now + TimeValue("0:00:10"))



Worksheets("Tabelle1").Range("B1:B3").ClearContents



End Sub

Erweitere ich das Makro um weitere Pausen, funktioniert es.

Sub Daten_akt_und_Loeschen()

       

        Worksheets("Tabelle1").Cells(1, 2).Value = Worksheets("Tabelle1").Cells(1, 1).Value



Application.Wait (Now + TimeValue("0:00:01"))

    

        Worksheets("Tabelle1").Cells(2, 2).Value = Worksheets("Tabelle1").Cells(2, 1).Value



Application.Wait (Now + TimeValue("0:00:01"))

    

        Worksheets("Tabelle1").Cells(3, 2).Value = Worksheets("Tabelle1").Cells(3, 1).Value



Application.Wait (Now + TimeValue("0:00:10"))



Worksheets("Tabelle1").Range("B1:B3").ClearContents





End Sub

Warum ist das so? Es ist ja ein einfaches Makro ...
Und wie kann ich umsetzen, dass alle drei Werte zeitgleich angezeigt werden?

Bite seht mir nach, dass ich quasi ein Küken bin was Makros angeht, taste mich halt ganz langsam ran ...

Viele Grüße
Marcus

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender