Der Knackpunkt ist der, dass der Code immer wieder ausgeführt werden muss, und dann würde ja jedes mal die Fehlermeldung auftreten. Ich dachte mir, dass es doch irgenwie möglich sein müsste, den Code um ein ElseIf zu erweitern bei dem er den Wert der Zelle A1 aus der Test-Datei mit dem Wert der Zelle A1 aus 123 und sollten diese gleich sein soll einfach gar nichts passieren.
Die Fehlermeldung wird doch nur angezeigt, wenn die Eingabe in A1 falsch ist, und wenn sie falsch ist, kann man nicht den Wert mit einer "nicht angebenen" Datei vergleichen.
PS: Wenn es nur um einzelne Zellen geht, kannst du auch Formeln nutzen. Deren Wert ist dann auch stets aktuell in bezug zur anderen Datei.
='C:\Users\Sarah\Desktop\Test\123.xlsm]Tabelle1'!A1
Wenn du die Formel per VBA setzen möchtest, dann kann man das mittels
Range("A1").Formula = "='C:\Users\Sarah\Desktop\Test\" & nummer & ".xlsm]Tabelle1'!A1"
realisieren.
nummer ist dabei der Inhalt aus A1 deiner Datei Test.
|