Run-time error '-2147319767 (80028029)'
20.05.2022 14:10:20
Julia
da mir das Forum schon einmal sehr bei einer vertrackten Situation geholfen hat, versuche ich nochmals mein Glück.
Bei der Nutzung einer Datei habe ich grosse Probleme.
Es kommt zu o.g. Fehler:
Run-time error '-2147319767 (80028029)'
Automation error
Invalid forward reference, or reference to uncompiled type
Wenn ich die Datei öffne, habe ich erst einmal einen Disclaimer zu lesen und zu akzeptieren.
Das geschieht über das Drücken eines "Accept"-Buttons (Macro hinterlegt).
Ich kopiere anbei die drei Codes, die von Interesse sind beim Öffnen:
Sub auto_open()
Sheets(1).Select
Application.ScreenUpdating = False
Call Invisible
End Sub
Sub Invisible()
Application.ScreenUpdating = False
For Each Sheet In Sheets
Sheet.Visible = xlVeryHidden
Sheets(1).Visible = True
Sheets(1).Select
Next
With ActiveWindow
.DisplayHeadings = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
End With
Sub D_Accept()
Application.ScreenUpdating = False
TopLeft = "A1"
On Error Resume Next
For Each Sheet In Sheets
Sheet.Visible = True
Application.Goto Sheet.Range(TopLeft), Scroll:=True
Next
Sheets("Cockpit").Select
With ActiveWindow
.DisplayHeadings = True
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
.DisplayWorkbookTabs = True
End With
With Application
.DisplayFormulaBar = True
.DisplayStatusBar = True
End With
ActiveWindow.DisplayHeadings = False
End Sub
Wenn ich die Fehlermeldung des Laufzeitfehlers mit "Debug" quittiere, spring mir der "Debugger" im o.g. Macro Invisible an die Fett markierte Stelle (also Sheet.Visible = xlVeryHidden)
Wenn ich dann 3-4 versuche, den Debugger zu beenden, kann ich in die Excel-Arbeitsmappe zurückkehren, in der ein paar Arbeitsblätter ausgeblendet sind.
Wenn ich dann den "Accept"-Button drücke (und somit o.g. Macro D_Accept auslöse), sind die Arbeitsblätter eingeblendet.
Wie schaffe ich es, dass sich die Datei wieder wie gewohnt öffnen lässt, ich auf dem Cover-Sheet lande und hier per Accept-Button quittieren kann, dass ich weiterarbeiten möchte?
Habt Ihr bitte ein paar gute Tipps für mich?
Leider kann ich die Mappe nicht anhängen, da sie zu viele sensible Daten enthält. :-(
Für Eure Hilfe wäre ich Euch sehr dankbar!
Beste Grüße,
Julia
Anzeige
