---

ReplaceNotesTableDriven.png ReplaceNotesTableDriven.rar

Hallo Leute,

mir ist gerade wegen aktuellem Bedarf wieder einmal ein Makro in die Hände gefallen, das vielleicht der eine oder andere von euch auch mal brauchen kann.

Mit dem Makro können Texte in Bezugshinweisen über bis zu 2 Excel-Tabellen ausgetauscht werden.

Vorgehensweise:

• Zeichnung öffnen,
  
• Makro starten,
  
• Excel Tabelle(n) auswählen,
  
• Tabelle(n) einlesen,
  
• Ersetzen starten.

Einschränkungen:

• Groß-/Kleinschreibung muss genau übereinstimmen.
  
• Gesucht wird nach Teilstrings in den gefundenen Notes, jede Note allerdings nur 1x
  
• Keine Wildcards möglich

Achtung: Die Einstellungen (Excel-Dateiname, Tabellenname, Spaltennamen etc.) werden nach Programmende in der Registry abgelegt, und zwar unter "HKEY_CURRENT_USER\Software\VB and VBA Program Settings\AL-KO\SWX-ReplaceNotesTableDriven".
Bei Bedarf kann der Schlüsselname im Makro natürlich geändert werden.
Sollte das überhaupt nicht stattfinden sollen, dann den Inhalt der Sub SaveSettings auskommentieren.

Wie immer wird natürlich keine Garantie übernommen, also die Zeichnung immer schön speichern, bevor das Makro gestartet wird 

------------------
Klaus

www.al-ko.com | mein Gästebuch | privat... | Nasenheim 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP