Pause in Makro einfügen

Sub Makro1() ' Makro1 Makro ' Tastenkombination: Strg+Umschalt+H Range("A1").Select ActiveCell.FormulaR1C1 = "100" Range("A2").Select PAUSE Sheets("Tabelle1").Select Sheets("Tabelle1").Copy ChDir "C:\Desktop" ActiveWorkbook.SaveAs Filename:="C:\Desktop\100.xlsx", _ FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Vielen Dank die Pause funktioniert nun. Mein Makro sieht jetzt so aus:
Range("A1").Select
ActiveCell.FormulaR1C1 = "323"
Range("A2").Select
Application.Wait Now + TimeSerial(0, 0, 10)
Sheets("Tabelle1").Select
Sheets("Tabelle1").Copy
ActiveWorkbook.SaveAs Filename:="C:\323.xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
Range("A1").Select
ActiveCell.FormulaR1C1 = "328"
Range("A2").Select
Application.Wait Now + TimeSerial(0, 0, 10)
Sheets("Tabelle1").Select
Sheets("Tabelle1").Copy
ActiveWorkbook.SaveAs Filename:="C:\328.xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
Das Problem ist nur dass die Abfrage die gemacht werden soll erst ausgeführt wird wenn die Datei schon gespeichert ist. Ist es möglich dass die Dateien nach dem Speichern - wenn dann die Aktion ausgeführt ist - nochmal abgespeichert werden?
Am besten wäre es wenn alle geöffneten Datein gespeichert und anschließend geschlossen werden.
Danke
LG Bettina

... hier der code vor der Pause With UserForm1 .Show False For i = 10 To 1 Step -1 .Label1.Caption = "Markostart in " & i & " Sekunden." .Repaint Application.Wait Now + TimeSerial(0, 0, 1) Next End With Unload UserForm1 hier der Code nach der Pause

Option Explicit Sub ZeitPause() MsgBox ("Pause beginnt") UserForm1.Show With UserForm1 .Show False For i = 10 To 1 Step -1 .Label1.Caption = "Markostart in " & i & " Sekunden." .Repaint Application.Wait Now + TimeSerial(0, 0, 10) 'Makropause 10 Sek. Next End With Unload UserForm1 MsgBox ("Pause Ende") End Sub

Herzlichen Glückwunsch!
Jetzt haben sie es mir aber richtig gegeben, Herr Oberlehrer!
Ad1: Es gibt Menschen, die in der Logik nicht so gut sind wie sie, aber das entzieht sich wohl ihrem Verständnis.
Ad2: Belehrungen, zu denen sie offensichtlich schon mehrfach geneigt waren, sind sicht nicht im Sinne von Hilfestellungen, denen man sich ja auch durch eine Nichtantwort entziehen kann.
Ad3: Jede Frage in diesem Forum, dient auch jedem Mitleser bei anderen Dingen.
Ad4: Es gibt noch wesentlich längere Frage und Antworten in diesem Forum, als meine, die überwiegend nicht so lang sind. Auch dies mussten sie ja unbedingt mal kommentieren.
Ad5: Wie lange ich schon hier in diesem Forum als Fragender bin (seit Jahr 2004 und nur in diesem Forum!), mussten sie auch unbedingt mal anmerken.
Abschliessend kann ich nur sagen, bleiben sie so wie sie sind. Ich habe Verständnis für Menschen, die unbedingt Kristisieren müssen. Bedenken sie aber auch, kein Mensch ist vollkommen :-)!
Bitte KEINE Mitteilungen mehr von ihnen! Danke!
Gruß, von einem weiter Fragenden und Mitlesenden in diesem Forum, auch wenn es ihnen nicht gefällt.
Dieter(Drummer)

Infobox zum Thema

EXCEL - Makro mit Pause versehen

Was ist die Aufgabe?

In einem VBA-Makro soll eine Pause von 10 Sekunden eingefügt werden, bevor das Makro seine Aktionen fortsetzt.

Einsatzzweck

Es kann vorkommen, dass zwischen den Aktionen eines Makros eine kurze Verzögerung notwendig ist. Dies kann z.B. erforderlich sein, wenn externe Daten geladen werden oder wenn man dem Benutzer Zeit geben möchte, eine bestimmte Aktion auszuführen oder eine Information zu verarbeiten.

Lösungsansatz

VBA bietet die Application.Wait-Methode, um eine Pause in einem laufenden Makro einzufügen.

VBA-Code

Hier ist ein Beispiel, wie du eine Pause von 10 Sekunden in dein VBA-Makro einfügen kannst:

Sub PauseMakro()

    ' ... Einige Aktionen vor der Pause ...

    ' Pause für 10 Sekunden
    Application.Wait (Now + TimeValue("0:00:10"))

    ' ... Aktionen nach der Pause ...

End Sub

Die TimeValue-Funktion wird verwendet, um die gewünschte Pausezeit anzugeben. In diesem Fall sind es 10 Sekunden.

Zusammenfassung

Mit der Application.Wait-Methode kannst du in einem VBA-Makro eine Pause einfügen. Dies ist nützlich, wenn zwischen den Aktionen des Makros eine gewisse Verzögerung erforderlich ist. Das obige Beispiel zeigt, wie du eine Pause von 10 Sekunden hinzufügen kannst.

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

38 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Infobox zum Thema

EXCEL - Makro mit Pause versehen

Inhaltsverzeichnis

Was ist die Aufgabe?

Einsatzzweck

Lösungsansatz

VBA-Code

Zusammenfassung

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Pause in Makro einfügen

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

38 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Infobox zum Thema

EXCEL - Makro mit Pause versehen

Inhaltsverzeichnis

Was ist die Aufgabe?

Einsatzzweck

Lösungsansatz

VBA-Code

Zusammenfassung

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread