Ersetzen durch Textboxinhalt

[Pr1ston3r]

Guten Tag an alle.

Ich habe folgendes Problem. Und zwar sind meine Zellen B2 bis B12 mit den passenden Feldern in einem Word Dokument verknüpft, über Inhalte einfügen. Da sich aber der Name des Word Dokumentes regelmäßig ändert, muss der Dateipfad dementsprechend in der Formelzeile angepasst werden. Dafür würde ich gerne eine TextBox aus den ActiceX Steuerelementen nehmen. Ist es möglich, dass man per Makro quasi aus B2 nur "C:\Users\ABC\Desktop\requests\Customer request.docx" löscht und es durch den neuen Dateipfad aus der TextBox ersetzt? Dabei sollen aber {=Word.Document.12|' und '!'!OLE_LINK71'} unverändert bleiben? Ich weiß das der Suchen und Ersetzen Abschnitt theoretisch genau das tut, aber ich soll es für den Anwender möglichst einfach halten...

Gruß von Pr1ston3r.

[snb]

Und zwar sind meine Zellen B2 bis B12 mit den passenden Feldern in einem Word Dokument verknüpft, über Inhalte einfügen. Da sich aber der Name des Word Dokumentes regelmäßig ändert, muss der Dateipfad dementsprechend in der Formelzeile angepasst werden.

Man sollte der Name des Word Dokumentes nicht ändern.
Wenn es ein neues Word Dokument gibt sollte man das umbenennen.

z.B
verknüpftes Dokument: G:\OF\link.docx
neues Dokument: G:\OF\neu.docx
Nun mache:

Code: Alles auswählen

Sub M_snb()
  name "G:\OF\neu.docx" as "G:\OF\link.docx"
End Sub

fertig

[Pr1ston3r]

Vielen Dank erstmal für die Antwort. Könnte man dies über eine TextBox steuern? Also, dass man den Namen des alten Dokumentes eingibt und er dieses dann umbenennt?

Viele Grüße.

[snb]

Der Name des neues Dokument sollte umbenennt werden.

[Pr1ston3r]

Ja sorry, meinte ich ja Also sprich das Dokument, was neu in den Ordner kommt, dessen alter Name sollte ausgetauscht werden, durch den gebrauchten. Geht das über eine TextBox? Weil über den Code muss ja auch das neue Dokument immer gleich heißen, was nicht der Fall ist. Kann man da den Code des Makros quasi aktualisieren über die TextBox?

[snb]

Kann doch beim öffnen der Datei ?

Code: Alles auswählen

Private Sub Workbook_open()
  if dir("G:\OF\neu.docx")<>"" then Name "G:\OF\neu.docx" As "G:\OF\link.docx"
End Sub

[Pr1ston3r]

ja ok, vielen dank habe leider nicht sonderlich viel Ahnung von makros und co.