ich bin gerade ein bisschen verzweifelt, habe folgendes Problem:
Berechnungen in meiner Arbeitsmappe sind für einzelne Tabellenblätter deaktiviert. (Automatische Berechnung hier macht alles zu langsam)
DieseArbeitsmappe
Private Sub Workbook_Open()
Me.Worksheets("Übersicht Produktionsplan").EnableCalculation = False
Me.Worksheets("Stahl 1").EnableCalculation = False
Me.Worksheets("Stahl 2").EnableCalculation = False
Me.Worksheets("1000 Alu").EnableCalculation = False
Me.Worksheets("GS 650").EnableCalculation = False
Me.Worksheets("LTC-20").EnableCalculation = False
Me.Worksheets("LTC-35").EnableCalculation = False
Me.Worksheets("Info Beschichtung").EnableCalculation = False
Me.Worksheets("Vorlage").EnableCalculation = False
End Sub
In den relevanten Arbeitsmappen gibt es Command Buttons, die das jeweilige Blatt aktualisieren, z.B.:
Private Sub Aktual_Stahl2_Click()
Me.EnableCalculation = True
Do
DoEvents
Loop Until Application.CalculationState = xlDone
Me.EnableCalculation = False
End Sub
Diese funktionieren in der jeweiligen Mappe einwandfrei.Jetzt brauche ich in der Mappe Aufträge einen Button, der die Mappen Stahl 1, Stahl 2, 1000 Alu, GS 650, LTC-20 und LTC-35 nacheinander aktualisiert.
Ich habe hier schon vieles ausprobiert und nichts davon funktioniert so wie es soll. (Call, Calculate, Schleife mit o.g. Makro etc.) Ich bräuchte jetzt eigentlich einen Code für den Button in Aufträge, der die anderen Mappen aktualisiert.
Vielen Dank für eure Zeit!
Gruß
Steve