Verwendung eines Zellinhaltes für Makro-Ausführung
01.12.2014 14:50:32
Roy
ich habe mich hier im Forum neu angemeldet und hoffe, dass Ihr mir bei folgendem Problem behilflich sein könntet:
Ich hole mal etwas aus:
Ich habe eine Arbeitsmappe kreiert, die mir beim Auswerten von zwei anderen Exceldateien helfen soll. Die auszuwertenden Dateien werden täglich per Mail an mich versandt und haben im Prinzip auch immer den identischen Dateinamen.
Allerdings kann es vorkommen, dass die Dateien aufgrund der Zwischenablage in den temporary Internetfiles einen Zusatz bekommen. Statt "Liste für den Handel.xls" heißt die Datei dann "Liste für den Handel (2).xls".
Um eine jederzeitige Nutzbarkeit meiner Auswertungsdatei zu gewährleisten, möchte ich gern den Namen der auszuwertenden Datei dynamisch gestalten, was mir auch gelungen ist, indem ich per Makro alle geöffneten Excel-Dateien anzeigen lasse und sortiere.
Über ein weiteres Makro lasse ich die Namen der geöffneten Dateien in meinem Tabellenblatt " _
Formular" anzeigen (z. B. in A1), von dem aus ich im Rahmen einer UserForm u. a. folgendes _ Makro ausführen lasse:
Sub Kopieren()
Sheets("Formular").Select
Workbooks(Range("A1").Text).Activate
Sheets("Tabelle1").Select
Range("A1:G500").Copy
Workbooks("NR(Testversion).xlsm").Activate
Sheets("Kopie").Select
Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Hier hakt mein Makro ("Index außerhalb des gültigen Bereiches"), weil offensichtlich der per Formel erstellte und Makro kopierte in A1 stehnden Dateiname nicht erkannt wird. Gebe ich exakt den identischen Namen per Hand ein funktioniert es einwandfrei.
Hat jemand von euch eine Idee wie ich dieses Problem beheben kann?
Recht vielen Dank vorab
Grüße
Roy
Anzeige