Hallo,
ich habe folgendes Problem (ja, eigentlich sollte es eine Datenbank sein, aber Chef wollte nicht):
In einem Bestand aus ca 200 identisch aufgebauten Excel-Tabellen mit Daten haben sich auf einer Seite, die nur dem Datenexport dient, Fehler eingeschlichen bzw. die muss der nachgeordneten Software angepasst werden.
Meine Idee ist, das Tabellenblatt "EXPORT" in der geöffneten Mappe (kurz "Ziel") löschen und per Makro aus einer Template-Datei "Quelle" das Blatt "EXPORT" von "Quelle" nach "Ziel.EXPORT" zu kopieren. Das Öffnen und kopieren klappt alles, ABER:
' Öffnen der ausgewählten Datei
Set WBQuelle = Workbooks.Open(ImportDatei)
' Kopieren der Tabelle „EXPORT" aus Datei „Template“
Set WSZiel = WBZiel.Worksheets.Add(After:=WBZiel.Sheets(WBZiel.Sheets.Count))
WBQuelle.Worksheets("EXPORT").Cells.Copy WSZiel.Cells(1)
' Umbenennen
WSZiel.Name = "EXPORT"
WBQuelle.Close
kopiert das Tabellenblatt "EXPORT" aus der "Quelle" nach "Ziel", aber die Verweise zeigen noch auch die "Quelle" statt relativ in "Ziel".
Also
='M:\..\Data Bank\[Species Data Template.xlsx]General'!F4 statt "General!F4"
Kann mir jemand helfen, bitte? Suchen und ersetzen per Makro oder geht es einfacher mit einem anderen Befehl oder Option?
LG
Frank