Supportnet / Forum / Tabellenkalkulation

Range("A1:E36").Select Selection.ClearContents ChDir _ "C:\Daten\Verbrauchsmessung\Auswertung\Messwerte_Fahrzeug1" Workbooks.Open Filename:= _ "C:\Daten\Verbrauchsmessung\Auswertung\Messwerte_Fahrzeug1\Informationen_zum_Fahrzeug1.xls" Range("A1:E36").Select Selection.Copy Windows("Auswertung.xls").Activate Range("A1").Select ActiveSheet.Paste Windows("Informationen_zum_Fahrzeug1.xls").Activate ActiveWindow.Close End Sub Mein Problem ist, das wenn das Excelfile nicht ("Auswertung.xls") heißt, das Makro nicht mehr ausgeführt wird. Besteht irgenwie die Möglichkeit, dass ich das Makro immer ausführen kann, auch wenn die Datei ("H06-C641") heißt? Ich hoffe iht köönt mir weiter helfen, Lieben Gruß struux [*][sup][i] *Threadedit* Admininfo: bitte vermeide Mehrfachanfragen in verschiedenen, bzw. gleichen Gruppen. Die Datenbank und User werden es dir danken. Siehe [u][url=https://supportnet.de/groupfaqs/3]FAQ 2.[/url][/u][/i][/sup]

Hallo struux,

ersetze Windows("Auswertung.xls").Activate durch Windows(ThisWorkbook.Name).Activate

Gruss Rolf

• makro-abfrage in excel dauerhaft deaktivieren
• Zell-Bezüge in Makros
• 2 Makros in 1 Datei
• Makro-Pfad für CD-Brennung! Hilfe!!!
• Makros via Makro löschen