Worbook_open startet nicht richtig

Hallo zusammen,
ich habe folgendes Problem:
Ich habe eine Excel Datei in der es mehrere Arbeitsblätter gibt in denen nach
Eingabe von Daten automatisch Makros gestartet werden.
Zusätzlich ist im Workbook_open eine Routine programmiert, die mir je nach Wochentag gleich die richtige Tabelle öffnet.
So das ganze funktioniert soweit einwandfrei sofern keine Daten in den Tabellen
sind, die die Makros starten das heisst workbook_open ist beim start das einzige, das ausgeführt wird. Wenn ich jetzt aber Daten in die Tabellenblätter
eingebe werden die natürlich beim start aktuallisiert und dann hab ich das
Problem den jetzt führt er scheinbar workbook_open nicht mehr aus.
Das glaube ich aber nicht, sondern das Problem liegt darin (vermute ich) da
erst das Tabellenblatt neu berechnet wird führt excel zwar worbook_open aus
kann das Tabellenblatt aber nicht wechseln weil es in bearbeitung ist und nachdem die bearbeitung fertig ist ist natürlich workbook_open auch erledigt
und somit kann der Tabellenwechsel nicht mehr ausgeführt werden.
Starte ich jetzt workbook_open manuell an dann macht er den wechsel richtig.
So jetzt meine Frage wie kann ich das Problem umgehen.
Lösungsansätze hatte ich auch schon aber keine hat richtig funktioniert.
z.b. Zeitgesteuertes Makro
ich hoffe mir kann bei diesem Problem jemand helfen.
Gruss Andy
Ps: wer Rechtschreibfehler findet darf sie behalten

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Ersmal Danke an Volker und harry,
Application.EnableEvents hat nicht funktioniert
die Idee von Harry funktionierte teilweise.
Das Problem ist am Anfang von Workbook_open habe ich folgenden Code eingegeben.
With Application
.Calculation = xlManual
.MaxChange = 0.001
End With
ActiveWorkbook.PrecisionAsDisplayed = False
und am Ende
With Application
.Calculation = xlAutomatic
.MaxChange = 0.001
End With
ActiveWorkbook.PrecisionAsDisplayed = False
hat so leider auch nicht funktioniert.
Dan habe ich noch zusätzlich folgendes eingegeben.


Private Sub Workbook_BeforeClose(Cancel As Boolean)
With Application
.Calculation = xlManual
.MaxChange = 0.001
End With
ActiveWorkbook.PrecisionAsDisplayed = False
End Sub

danach hat es zumindest so lange funktioniert, wie ich keine andere Execldatei offen hatte. War aber zusätzlicheine Exceldatei geöffnet in der die Automatische Berechnung eingeschaltet war, dann ging die ganze Geschichte wieder nicht.
Also habe ich folgendes gemacht.
Am Anfang von Worbook_open diesen Code eingegeben:
With Application
.Calculation = xlManual
.MaxChange = 0.001
End With
ActiveWorkbook.PrecisionAsDisplayed = False
und am Ende nichts mehr.
Dann zusätzlich eine neue Sub eingefügt mit diesem Code:


Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range)
With Application
.Calculation = xlAutomatic
.MaxChange = 0.001
End With
ActiveWorkbook.PrecisionAsDisplayed = False
End Sub

jetzt wird die Automatische Berechnung erst wieder eingeschaltet wenn ich in irgend
einem Tabellenblatt etwas ändere .... reicht mir im Moment auch ist aber meiner
Meinung nach nicht die elegante Lösung weiss vieleicht jemand eine bessere
Bin für jeden Vorschlag dankbar.
Gruss Andy

Beliebteste Forumthreads (12 Monate)

Worbook_open startet nicht richtig

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread