Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1504to1508
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1504to1508
1504to1508
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro Tabellenblätter nacheinander berechnen

Makro Tabellenblätter nacheinander berechnen
15.07.2016 10:16:47
Karl
Hallo liebe Leute,
ich habe mein Problem von neulich neu strukturiert und habe nun folgende Frage:
Ich möchte die Berechnungen in meiner Excel-Mappe auf manuell setzen, die Tabellenblätter verformeln und anschließend per Makro alle Tabellenblätter nacheinander berechnen lassen. Kann mir vielleicht jemand einen Makro-Code geben, in dem ein Tabellenblatt berechnet wird, 2 Minuten Pause ist und dann das nächste Tabellenblatt berechnet wird? Die Verzögerung soll dazu dienen, einen Absturz von Excel zu verhindern, da die Formeln jeweils Daten aus einer Datenbank ziehen.
Herzliche Grüße
Karl

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro Tabellenblätter nacheinander berechnen
15.07.2016 10:22:44
baschti007
Mach doch so was rein nach dem ersten Makro
Application.Wait(Now + TimeValue("0:02:00"))
AW: Makro Tabellenblätter nacheinander berechnen
15.07.2016 10:26:09
Karl
Hi Basti,
diese Funktion hatte ich schon gefunden, nur das Problem ist, dass ich überhaupt keine Makro-Programmierung kann. Ich bräuchte also einen fertigen Code für mein gesamtes Problem, um weiterzukommen.
Herzliche Grüße
Karl
AW: Makro Tabellenblätter nacheinander berechnen
15.07.2016 10:29:13
baschti007
Dann müsstest du deine Beispiel Mappe hochladen.
Gruß Basti
AW: Makro Tabellenblätter nacheinander berechnen
15.07.2016 10:36:39
Karl
Hallo Basti,
die Mappe ist sehr groß. Besteht nicht die Möglichkeit, den Code für das einzelne Berechnen jedes Arbeitsblattes nacheinander mit dieser Pausenfunktion hier einzufügen? Das kopieren in das Makro könnte ich selbst machen.
Danke für Deine Hilfsbereitschaft!!!
Anzeige
AW: Makro Tabellenblätter nacheinander berechnen
15.07.2016 10:46:43
baschti007
Hmm guck mal ob das geht
Sub dd()
Dim ws As Worksheet
For Each ws In Worksheets
ws.Application.Calculate
ws.Application.Wait (Now + TimeValue("0:00:05")) '-- zeit anpassen
Next
MsgBox "Ende"
End Sub

AW: Makro Tabellenblätter nacheinander berechnen
15.07.2016 11:22:08
baschti007
Ups so
sonst macht er alle auf einmal =)
Sub dd()
Application.Calculation = xlManual
Dim ws As Worksheet
For Each ws In Worksheets
ws.Calculate
ws.Application.Wait (Now + TimeValue("0:00:01"))
Next
MsgBox "Ende"
End Sub

AW: Makro Tabellenblätter nacheinander berechnen
15.07.2016 11:35:09
Karl
Irgendwie funktioniert das nicht. Das Makro läuft zwar durch, aber die Zahlen werden nicht aktualisiert. Gibt es noch eine Alternative?
Herzliche Grüße
Karl
Anzeige
AW: Makro Tabellenblätter nacheinander berechnen
15.07.2016 11:46:41
UweD
wie sieht es mit meiner Lösung aus?
AW: Makro Tabellenblätter nacheinander berechnen
15.07.2016 12:01:03
Karl
Das Problem könnte sein, dass zwar neu berechnet wird, aber die Formeln zur Datenbank nicht refreshed werden. Ist das ggf. noch ein anderer Befehl?
AW: Makro Tabellenblätter nacheinander berechnen
15.07.2016 12:09:09
baschti007 

Sub dd()
Application.Calculation = xlManual
Dim ws As Worksheet
ActiveWorkbook.RefreshAll
For Each ws In Worksheets
ws.Calculate
MsgBox ws.Name & " Wurde berechnet"
ws.Application.Wait (Now + TimeValue("0:00:01"))
Next
MsgBox "Ende"
End Sub

Anzeige
AW: Makro Tabellenblätter nacheinander berechnen
15.07.2016 10:52:24
UweD
Hallo
hier mal ein Beispiel mit einfachen Formeln
Sub hdhdh()
    Dim i&
    For i = 1 To ActiveWorkbook.Sheets.Count
        Sheets(i).Range("A1").Formula = "=SUM(B1:C1)" 'Beispielformel 
        Sheets(i).Range("A2").Formula = "=A1-1" 'Beispielformel 
        'usw. 
        Application.Wait Now + TimeSerial(0, 0, 5) 'Wartet 5 Sekunden 
    Next
    MsgBox "Fertig"
End Sub



VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 15 - mit VBAHTML 12.6.0

Gruß UweD
Anzeige

303 Forumthreads zu ähnlichen Themen

Pivot berechnetes Feld
Peter

Hallöchen zusammen,
entweder stelle ich mich zu dämlich an, oder ich kapiere die Pivot wirklich nicht.
Habe eine Tabelle, aus der ich mir die Daten ziehe.
In die Datenfelder der Pivot kommt die gesamte Anzahl von Datensätzen.
In die Spaltenfelder die Differenzierung eines bestim...
15.08.2008 10:34:52
Thread-ID: 1002088
4 Beiträge
Anzeige
Daten sortiert aus anderem Tabellenblatt auslesen
Robert

Hallo,
bräuchte eure Hilfe bitte.
Aus einem Tabellenblatt ("FEHLZEITEN") sollen Daten ausgelesen und in einem anderen Tabellenblatt ("EINSATZPLANUNG") ab Zeile 100 eingefügt und bei Änderungen in "FEHLZEITEN" aktualisiert werden.
Habe da mal eine Beispieldatei zur besseren Veransch...
28.08.2008 11:32:00
Thread-ID: 1005356
3 Beiträge
Datenbereich dynamisch in Pivot-Tabelle einbinden
Markus

Hallo allerseits,
ich habe folgendes Problem. Für die Erstellung einer Pivot-Tabelle muß ich den Datenbereich manuell selektieren. Da sich aber mein Datenbereich ständig ändert, würde ich das ganze automatisiert selektieren lassen. Wie krieg' ich das in dem folgenden Makro unter ?:
Rang...
02.09.2008 14:20:30
Thread-ID: 1006792
4 Beiträge
Anzeige
Berechnung in dynamischer Tabelle
Gerhard

Hallo zusammen,
Ich möchte in meiner dynamischen Tabelle in der Spalte G die Differenz von dem letzten Eintrag der SpalteD zum letzten Eintrag der Spalte F eintragen.
Beispiel:
Der Inhalt meiner Tabelle endet momentan bei D100
dann sollte via Makro die Differenz in Spalte G100 z...
15.09.2008 08:39:00
Thread-ID: 1009658
9 Beiträge
Daten aus Pivot-Tabelle kopieren
Thomas

Guten Abend ,
wie kann ich per Schaltfläche einen Datenbereich aus einer Pivottabelle kopieren und in einem anderen Tabellenblatt einfügen?
Gruß
Thomas
03.10.2008 21:10:24
Thread-ID: 1014090
2 Beiträge
Pivot-Tabelle SVERWEIS-Formel
Susi

Hallo liebe Excel-Freunde,
ich habe ein Problem mit einer Pivot-Tabelle. In einer bestehenden Pivot-Tabelle kann man ja selbst ein berechnetes Feld einfügen. Solange es nur "einfache" Formeln sind, stellt dies auch kein Problem da. Nun möchte ich aber eine SVERWEIS-Formel, die sich auf Date...
07.10.2008 12:40:03
Thread-ID: 1014686
2 Beiträge
Seitenfeld mit Datum in Pivottabelle
Peter

Hallo zusammen,
ich habe folgendes problem mit einer Pivottabelle:
in den Ursprungsdaten stehen u.a. Datumsangaben. Diese sollen in der Pivottabelle im Seitenfeld verwendet werden. Allerdings möchte ich nicht, dass jeder Datumswert dort angezeigt wird sondern eine Zusammenfassung der Mo...
08.10.2008 11:17:51
Thread-ID: 1014965
4 Beiträge
Daten aus einer anderen Mappe auslesen
Uwe

Hallo zusammen, habe mir einen funktionierenden Einsatzplan für 24 MA und 3 Schichten zusammengebastelt welcher die Monate inkl. Feiertage und Wochenenden dynamisch generiert.
Nun möchte ich wenn ich im zum Beispiel den Einsatzplan für die Mitarbeiter für Februar abrechne, das Excel sich...
14.10.2008 22:12:36
Thread-ID: 1016451
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
1
2
3
5
8
1
1
3
4
3
4
2
1
5
3
4
2
3
12
8
2
1
3
3