Laufzeitfehler - Automatisierungsfehler

Hallo Zusammen,
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

Hallo Daniel,
danke für die schnelle Rückmeldung, leider kommt der gleiche Fehler nach wie vor. Ich poste jetzt mal das gesamte Makro, auch wenn der Fehler bereits im oberen Segment passiert. Vielleicht weiß noch jemand was man bei so einer Fehlermeldung machen kann?
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").Range("D4:D86").ClearContents
'Alter Code:
'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
'alter Code Ende
'Datum eintragen:
Sheets("TR-List").Select
Range("C1").Select
Selection.Copy
Sheets("Spec IRR").Select
Range("G1").Select
ActiveSheet.Paste
Sheets("TR-List").Select
Application.CutCopyMode = False
'Select Startposition B4 oder nächste Sichtbare zeile:
Range("B4").Select
If ActiveCell.EntireRow.Hidden = True Then
ActiveCell.Offset(1, 0).Select
Do Until ActiveCell.EntireRow.Hidden = False
ActiveCell.Offset(1, 0).Select
Loop
End If
'neue startposition loop:
Do Until ActiveCell.Value = ""
'IRR Kopieren:
Sheets("Spec IRR").Range("G2").Value = ActiveCell.Value
Sheets("TR-List").Select
ActiveCell.Offset(0, 2).Value = Sheets("Spec IRR").Range("g4").Value
'nächster Fonds:
ActiveCell.Offset(1, 0).Select
'neu hidden cells jump
If ActiveCell.EntireRow.Hidden = True Then
ActiveCell.Offset(1, 0).Select
Do Until ActiveCell.EntireRow.Hidden = False
ActiveCell.Offset(1, 0).Select
Loop
End If
Loop
Range("D4:D86").Select
Selection.Style = "Percent"
Selection.NumberFormat = "0.00%"
'speichern
Sheets("TR-List").Select
Range("A1").Select
If TypeOf Selection Is Range Then Selection.Calculate
MakeSureDirectoryPathExists ActiveWorkbook.Path & "\Gespeicherte Durchläufe\"
ActiveWorkbook.SaveCopyAs Filename:=ActiveWorkbook.Path & "\Gespeicherte Durchläufe\" & "Berechnung " & Format(Range("a1"), "dd/mm/yyyy hh/mm") & ".xlsm"
MsgBox "Verarbeitung erfolgreich - Gespeichert in 'Gespeicherte Durchläufe' !", vbInformation, " erstellt!"
End Sub

Laufzeitfehler - Automatisierungsfehler

Forumthread: Laufzeitfehler - Automatisierungsfehler

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Infobox / Tutorial