VBA Makro funktioniert nur beim 2 ausführen
24.07.2018 10:05:23
Dennis
Mein Makro funktioniert nun nach langer Zeit fast einwandfrei.
Jedoch erst wenn ich das Makro zweimal hintereinander ausführe.
Beim ersten versuch Funktionieren alle Rechnungen bis auf 1.
Bei dieser Rechnung in Spalte "K" kommt dann " #DIV/0! "
Die Formel Dafür ist
=WENN(G5= "";"";(((J5-I5)*100)/J5))
Nahe liegend ist das J5 null ist. Jedoch ist dies eigentlich nicht der Fall.
J5 wird durch diese Formel berechnet und gibt den richtigen Wert beim ersten Ausführen zurück.
=WENN(G5= "";"";SUMMEWENN(E:I;E5;I:I)/ZÄHLENWENN(E:I;E5))
Dabei sind die Werte in Spalte E & I konstanten die nicht berechnet wurden.
Ich habe auch überlegt ob es an meinen Initial Settings liegt. Diese hab ich jedoch aus dem Internet kopiert und weiß nicht ob das die Ursache sein kann.
screenUpdateState = Application.ScreenUpdating
statusBarState = Application.DisplayStatusBar
'calcState = Application.Calculation
eventsState = Application.EnableEvents
displayPageBreakState = ActiveSheet.DisplayPageBreaks
Application.ScreenUpdating = False
Application.DisplayStatusBar = False
'Application.Calculation = xlCalculationManual
Application.EnableEvents = False
ActiveSheet.DisplayPageBreaks = False
Dabei habe ich die die für Rechnungen rauskommentiert da ich dort den Fehler vermutete, jedoch ohne Wirkung.Ich hoffe jemand kann mir weiterhelfen.
Das ist mein erstes etwas größeres Makro und daher hab ich nur Grundkenntnisse von kleineren.
Mit freundlichen Grüßen
Dennis