Unmögliche ?? Fehlermeldung

Hallo Eduardo
<br />wie ich schon geschrieben habe, will ich den Grund für diese Fehlermeldung erfahren und nicht den Code durch irgend etwas anderes ersetzten. Wie auch schon geschrieben, wurde diese Zeile Code in den letzten Jahren tausendemale ausgeführt ohne dass es zu einer Fehlermeldung kam.
<br />Gruss
<br />Jürgen
<br />

Wir verwenden einen Übersetzungsdienst, um unsere Benutzer zu unterstützen. Bitte entschuldigen Sie grammatikalische Fehler.
<br />

Hallo

Mein Name ist Eduardo. Ich bin ein unabhängiger Berater, zunächst einmal danke ich, dass ich Teil der Microsoft Community bin, ich werde versuchen, Ihnen zu helfen.

Können Sie versuchen, dies zu tun:

Dim wb Als Arbeitsbuch

Festlegen von wb = Application.Workbooks("your_file.xlsx")

Wb. Aktivieren

Wb. Tabellen("Info"). Bereich("A1"). Auswählen

Ich hoffe, dass diese Informationen für Sie nützlich sind. Wenn Sie noch Fragen haben, antworten Sie hier, damit ich Ihnen weiterhin helfen kann.

Aufrichtig

Eduardo

Wir verwenden einen Übersetzungsdienst, um unsere Benutzer zu unterstützen. Bitte entschuldigen Sie grammatikalische Fehler.
<br />

Ich verstehe, dass Ihr Code funktionierte, vielleicht, da Sie einen Codeblock vor der Zeile mit Problem haben, hätten Sie einige Änderungen vorgenommen, die dieses Problem geben.

Sie können in einem Objekt, das nicht aktiv ist, keinen Bereich auswählen. deshalb haben Sie dieses Problem.

Tach Claus
<br />das Programm wird seit über drei Jahren täglich mindestens 3 bis 4 mal gestartet und der Fehler ist in dieser Zeit nie aufgetreten. Wenn wir hier nun den Code austauschen wissen wir nicht, wie und warum es zur Fehlermeldung gekommen ist.
<br />Trotzden Dank für den Hiniweis.
<br />Gruss
<br />Jürgen
<br />

Guten Tag André
<br />>Können Sie Ihren gesamten Code für die Analyse freigeben?
<br />Nein, das ganze Programm umfasst über 22'000 Zeilen Code. Damit das Programm laufen kann, ist eine weitere Datei notwendig, die persönliche Daten enthält.
<br />Hier der Anfang der AutoOpen Routine
<br />Private Sub Workbook_Open()
Const data_workbook = "Agenda_Daten"
.
.
.
Dim last_row_program As Long
Dim gueltiger_user As Boolean

Application.ScreenUpdating = False
'
' Pfad retten
'
path_is = ThisWorkbook.Path & "\"
'
' suche letzte Zeile der Programminfo
'
Worksheets("Infos").Select ' die Zeile mit der Fehlermeldung
last_row_program = Cells(6000, 2).End(xlUp).Row
'

Gibt es einen Link der Datei mit einem anderen oder anderen?
<br />Nein
<br />Das Programm läuft auf diversen Rechnern, alle mit W10 und 365
<br /> Gruss
<br />yogi

<br />