Können sich zwei Makros überholen?

Werte Excel-Gemeinde
ich habe ein Problem, bei dem ich nicht mehr weiterkomme:
In einem ersten Schritt erzeuge ich eine Menge von Diagrammen:


Sub AlleDiagrammeErzeugen()
Tabelle3.AltersstrukturdiagrammErstellen
Tabelle5.KomplexesSituationenDiagrammFormatieren
Tabelle6.VollkostendiagrammKLVFormatieren
Tabelle6.VollkostendiagrammHWFormatieren
Tabelle18.PersonalkostendiagrammKLVFormatieren
Tabelle18.PersonalkostendiagrammHWFormatieren
Tabelle7.DatenpunktFormatierenLeistungskomplexität
Tabelle12.DatenpunktFormatierenPflegeleistungen
Tabelle13.VerrechenbarkeitsDiagrammFormatieren
Tabelle14.FluktuationsDiagrammFormatieren
Tabelle15.VerrechneteKLVStundenFormatieren
Tabelle8.WegZeitenDiagrammFormatieren
Tabelle9.ArbeitspensumDiagrammFormatieren
Tabelle16.KrankheitsratenDiagrammFormatieren
Tabelle17.DurchschnittsalterDiagrammFormatieren
Application.Goto Reference:="ErsteZelle" 'Springe ins Dashboard ganz zuoberst
' 3 Sekunden warten, sonst gibt es einen Runtime-Fehler!
Application.Wait Now + TimeValue("0:00:03")
End Sub

Excel braucht ca. 3 Minuten, um alle Diagramme zu erzeugen. Der letzte Schritt in jedem Makro besteht immer darin, dass ich das erzeugte Diagramm nehme und eine Kopie davon in ein Sheet "Dashboard" kopiere. In "Dashboard" habe ich also 15 Diagramme. Mit den Erklärungen zu den Diagrammen umfasst ein Ausdruck davon rund 40 Seiten.
In einem zweiten Makro erzeuge ich dann aus den Resultaten ein pdf:


Sub Ein_PDF_Erstellen_Entwicklung()
Dim dateiname As String
' Schritt 1: Alle Diagramme dieser Organisation neu erzeugen
AlleDiagrammeErzeugen
' Schritt 2: PDF erstellen:
' Hole die Organisationsnummer
dateiname = Range("H9") 'Hole den Code der Organisation
dateiname = Range("R14") & dateiname & ".pdf"  ' Pfad noch hinzufügen
ActiveWorkbook.ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=dateiname, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
...

An sich läuft die ganze Geschichte so. Was jetzt passiert, ist, dass Excel so etwa jedes dritte, vierte Mal nicht alle 40 Seiten als pdf erzeugt, sondern nur eine Seite mit dem zuletzt kopierten Diagramm! Ich habe den Eindruck, dass Excel mit dem Erzeugen des PDFs beginnt, bevor das letzte Diagramm (DurchschnittsalterDiagramm) in "Dashboard" zur Verfügung steht.
Deshalb habe ich am Ende von "AlleDiagrammeErzeugen()" eine Pause von drei Sekunden eingebaut. Ohne Wirkung!
ich komme nicht mehr weiter und freue mich über jede Antwort.
Herzliche Grüsse Schneeemann58

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sali Karin
wie isst man einen Elefanten?
Zum Zusammensuchen der Daten für das Diagramm brauche ich jeweils eine Tabelle. Dort hole ich mir dann aus drei verschiedenen Arbeitsblättern die Rohdaten zusammen und berechne die Diagrammdaten. Häufig muss ich auch beim Auftraggeber rückfragen, welche Spalte er denn jetzt wirklich im Diagramm haben will. Da ist es viel einfacher, wenn ich pro Diagramm ein Arbeitsblatt habe und am Ende das Resultat in das Dashboard kopiere. Nur so bin ich sicher, dass das Diagramm korrekt ist. Im Arbeitsblatt habe ich eine Tabelle links und rechts das entsprechende Diagramm. Da kann ich direkt anhand der zusammengesuchten Daten kontrollieren, ob das Diagramm richtig ist. Wenn ich das im Dashboard mit 13 Diagrammen mache, habe ich keinen Überblick. Das ist dann mein Elefant...
Herzliche Grüsse
Schneemann58
PS: Es gibt zwei richtige Antworten auf meine eingangs gestellte Frage: 1. Portionenweise; 2. Mit Messer und Gabel

Sub AlleDiagrammeErzeugen() Dim tt As Variant Tabelle3.AltersstrukturdiagrammErstellen Tabelle5.KomplexesSituationenDiagrammFormatieren Tabelle6.VollkostendiagrammKLVFormatieren Tabelle6.VollkostendiagrammHWFormatieren Tabelle18.PersonalkostendiagrammKLVFormatieren Tabelle18.PersonalkostendiagrammHWFormatieren Tabelle7.DatenpunktFormatierenLeistungskomplexität Tabelle12.DatenpunktFormatierenPflegeleistungen Tabelle13.VerrechenbarkeitsDiagrammFormatieren Tabelle14.FluktuationsDiagrammFormatieren Tabelle15.VerrechneteKLVStundenFormatieren Tabelle8.WegZeitenDiagrammFormatieren Tabelle9.ArbeitspensumDiagrammFormatieren Tabelle16.KrankheitsratenDiagrammFormatieren Tabelle17.DurchschnittsalterDiagrammFormatieren tt = Timer() Do DoEvents Loop Until Timer() >= (tt + 3) Sheets("Dashboard").Range("A1").Select Sheets("Dashboard").Range("A1").Value = "Gugus" Sheets("Dashboard").Range("A1").Value = "" End Sub

Beliebteste Forumthreads (12 Monate)

Können sich zwei Makros überholen?

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

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread