@Franz - Verknüpfungen - bassi
bassi2008
Leider ist unser Dialog nach meinem gestrigen Text verschwunden. Er erscheint zwar noch unter "meine Beiträge", aber nicht mehr in der Forumsliste. Schade.
Ich hoffe mein Versuch den Beitrag wieder aufleben zu lassen bzw weiter zu führen gelingt.
Ich hatte gestern Abend schon eine Antwort verfasst diese will ich ganz am Schluss noch mit anfügen.
Leider konnte ich heut nur ganz kurz unsere Codezusammenstellung testen. Aber ich bin schon schwer begeistert.
So stellt sich das ganze nun dar:
Pfad in der Formel falsch: wird korrigiert MessageBox ok Klick die folgende Excel Fehlermeldung wegen der fehlenden Verknüpfung hab mit
"Application.DisplayAlerts = False" am Anfang und
"Application.DisplayAlerts = True" am Ende unterdrückt.
Dateinamen in der Formel falsch: MessageBox Datei wird geschlossen
Datei fehlt komplett: MessageBox Datei wird geschlossen
Speichern unter: MessageBox ok klick
Wo ich nicht so recht weiterkomme ist dies hier:
Datei in Verwendung: Messagebox Später bitte versuchen
Nun kommt die Frage ob ich die Datei trotzdem öffnen möchte. Bei klick auf nein kommt die Debuggen Meldung. Markiert ist Workbooks.Open Filename:
Das Debuggen Fenster könnte ich mit
"On Error GoTo"
umgehen.
Die Frage ob ich die Datei trotzdem öffnen möchte mit
"application.displayalerts=false".
Allerdings wird dann die Frage automatisch mit ja beantwortet die Datei wird geöffnet.
An dieser Stelle stehe ich ein wenig auf dem Schlauch.
Kannst du mir hier nocheinmal unter die Arme greifen?
LG bassi
Nachfolgend der Text von gestern Abend:
Guten Abend Franz,
ich konnt's nicht lassen, es kribbelte zu sehr in den Fingern, ich musste nochmal ein bisschen mit dem Code rumexceln. Morgen werde ich auf Arbeit wohl kaum dazu kommen. Ich hoffe ich schaffe es wenigstens ihn noch in meine Test Dateien einzubauen.
Franz du hast du Recht. Die fehlende Datei war bisher noch kein Thema.
Aber in meinem laienhaften Leichtsinn nahm ich an das der Code welcher die inkorrekte Datei ausfindig macht, auch dann - oder gerade dann anspricht, wenn die Datei ganz fehlt. Aber das war offensichtlich ein Denkfehler.
Der Tipp mit der F8 Funktion gefällt mir ausgezeichnet. Dass mir der nach den ganzen Jahren Excelleidenschaft entgangen ist ärgert mich richtig.
Ich habe nun zu Haus ein Testkonstrukt gebastelt und könnte mir ein Loch in den Bauch freuen. Es funktioniert alles tadellos. Ich bin gespannt was das Netzwerk dazu sagt.
Wenn das ok ist würd ich dich gern noch etwas fragen was ich ganz am Anfang kurz angerissen hatte:
Die Aktualisierung einer Verknüpfung welche ich via Makro mit diesem Code versucht habe zu _ erreichen:
Private Sub Workbook_Activate()
Application.ScreenUpdating = True
Application.AskToUpdateLinks = False
Application.ScreenUpdating = True
End Sub
scheint nicht so recht so zu funktionieren wie ich es angedacht hatte.
Wenn sich die Stammdaten oder die Daten von P1 verändern (es handelt sich um reine Zahlenwerte keine Formelabhängigkeiten welche z.b. über die Zeit berechnet würden), erscheint in der Hauptansicht die Änderung nicht über diesen Code, geschweige denn von allein, sondern erst wenn ich die Verknüpften Dateien wirklich öffne.
Ist es tatsache so, dass man diese Werte nur über das öffnen der anderen Datei aktualisieren kann? Aber das wär doch unsinnig dann überhaupt mit Verknüpfungen zu arbeiten
Ich habe dazu einen Beitrag mit einer Antwort von Dir gefunden wo es um zweifache Verknüpfungen geht, was in etwa dem entspricht was ich hier vorliegen habe:
https://www.herber.de/forum/archiv/1164to1168/t1165430.htm#1165480
In deiner Antwort schreibst du folgendes:
Ideal wäre, wenn alle Abteilungsdateien in einem Verzeichnis liegen und DIR-Funktion gefunden werden. Dann kann das in einer einfachen Schleife abgearbeitet werden
Leider reagierte der Fragesteller hierauf nicht mehr.
Könnte ich diese Form für meinen Zweck benutzen? Und wenn ja wie könnte ich das anstellen?
Ich wünsche Dir noch einen schönen Abend.
LG bassi