Makro anhalten bis Neuberechnung ...
10.03.2021 11:23:25
Fred
Ich lasse folgendes Makro laufen:
Worksheets("Basis").Activate
Application.Calculation = xlCalculationManual
Worksheets("Basis").Range("R2").FormulaLocal = "=ht_8(N2;$R$1)"
Worksheets("Basis").Range("s2").FormulaLocal = "=ht_12(N2;$S$1)"
Worksheets("Basis").Range("t2").FormulaLocal = "=ht_8(N2;$T$1)"
Worksheets("Basis").Range("u2").FormulaLocal = "=ht_12(N2;$U$1)"
Worksheets("Basis").Range("v2").FormulaLocal = "=WENN(Q2=0;"""";WENN(O2=Q2;1;0))"
Worksheets("Basis").Range("w2").FormulaLocal = "=ganz_10(N2;$W$1)"
Worksheets("Basis").Range("x2").FormulaLocal = "=ht_8(N2;$X$1)"
Worksheets("Basis").Range("y2").FormulaLocal = "=ht_12(N2;$Y$1)"
Worksheets("Basis").Range("z2").FormulaLocal = "=ht_8(N2;$Z$1)"
Worksheets("Basis").Range("aa2").FormulaLocal = "=ht_12(N2;$AA$1)"
Worksheets("Basis").Range("ab2").FormulaLocal = "=WENN(Q2=0;"""";WENN(P2=Q2;1;0))"
Worksheets("Basis").Range("ac2").FormulaLocal = "=ganz_10(N2;$AC$1)"
With ActiveSheet ' zieht in Basis formeln runter
ENDE2 = Sheets("Basis").Cells(Rows.Count, 1).End(xlUp).Row - 0
.Range("O2:AC2").AutoFill Destination:=Range("O2:AC" & ENDE2), Type:=xlFillDefault
End With
Application.Calculation = xlCalculationAutomatic
Application.Calculate
' Werte statt Formeln
Worksheets("Basis").Range("r2:ac" & ENDE2).Copy
Worksheets("Basis").Range("r2").PasteSpecial xlPasteValues
Application.CutCopyMode = False
Call korrigieren
Call TextInSpalten
Call NachBasisNeu
das Problem:
In "R2:AC2" werden eigene Funktionen (von Yal & Onur) aufgerufen. Die notwendige "Neuberechnung" hat anscheinend allerdings zu wenig Zeit,- es werden weitere Makros aufgerufen.
Meine Frage:
Wie kann ich das Makro anhalten, bis "Basis" neu berechnet wird und dann erst die weiteren Makros aufrufen?
Hat bitte jemand für dieses Problem eine Lösung?
Gruss
Fred