Laufzeitfehler - Automatisierungsfehler
28.09.2022 18:52:59
Chris
ich bekomme beim Ausführen des folgenden Codes einen Fehler:
"Laufzeitfehler '-2147319767 (80028029): Automatisierungsfehler - Ungültige Vorreferenz oder Referenz zu unkompiliertem Typ. "
Der fehler tritt beim Fett gedruckten Code-Teil auf. Das Makro hat vorher einwandfrei funktioniert und die Tabe heißt wirklich "TR-List"
Danke für euren Input was hier falsch laufen könnte.
Chris
Hier der Code:
Option Explicit
'für Ordnererstellung:
Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" ( _
ByVal DirPath As String) As Long
'für Berechnungsdauer:
Private Declare Sub Sleep Lib "kernel32.dll" ( _
ByVal dwMilliseconds As Long)
Sub IRR_Separate_Run()
'Berechnungsmodus Automatic:
Application.Calculation = xlAutomatic
Sheets("TR-List").Select
'Inhalte aus Vorgängerlauf löschen+hidden cells:
Dim Z As Range
For Each Z In ActiveSheet.Range("D4:D86").Cells
Z.ClearContents
Next Z