Dim ZIEL As Variant
Dim QUELLE As Variant
....
QUELLE = ActiveWorkbook.Name 'gerade aktives, geöffnetes File
.....
Workbooks.Open Filename:=filetoopen, updatelinks:=0, ReadOnly:=False
ZIEL = ActiveWorkbook.Name ' Zieldatei für Datenexport
....
Mit Quelle und Ziel versuche ich zwischen zwei Dateien mit ständig ändernden Namen zu kommunizieren. Dies hat bisher immer problemlos funktioniert. Nachdem das Tool nun in der Firma zum Großeinsatz kam und dort kaum noch auf die alten Dateikonformitätsregeln geachtet wird (Sonderzeichen etc.) kommt es bei folgenden Formel immer zu einer Fehlermeldung:
(Laufzeitfehler 1004)
Workbooks(ZIEL).Sheets("Kostenbewertungsuebersicht").Range("Q" & Start_V).FormulaR1C1 = "=[" & QUELLE & "]Preis_Gesamt!R13C15"
Nach längeren Test hat sich herausgestellt, daß dies nur bei Dateien mit Sonderzeichen passiert (z. B. VW-B5-003.xls) und
außerdem nur bei einem direkten Bezug auftritt - eine Formel die z.B. nach dem Prinzip eines S-Verweises arbeit hat keinerlei Probleme damit.
Workbooks(ZIEL).Sheets("Kostenbewertungsuebersicht").Range("S" & Start_V).FormulaR1C1 = "=IF(ISERROR(VLOOKUP(RC[-8],'[" & QUELLE & "]Preis_Gesamt'!R17C4:R42C15,11,FALSE))=TRUE,"""",VLOOKUP(RC[-8],'[" & QUELLE & "]Preis_Gesamt'!R17C4:R42C15,11,FALSE))"
Nachdem man mehrere hundert Mitarbeiter kaum noch umerziehen kann wäre meine Frage ob es hier vielleicht eine simple Lösung gibt, ohne das Grundprinzip des Makros komplett umkrempeln zu müssen.
Danke Ralf