Hallo zusammen, ich habe folgendes Problem und hoffe es kann mir jemand dabei helfen. Was VBA betrifft bin ich leider Anfänger. Ich möchte in einem Macro 2 Dateien abspeichern. Die 2 Dateien sollen einen unterschiedlichen Namen haben, am besten vielleicht sogar den Ursprungsnamen. Das Macro öffnet 2 Dateien als .xlsx und speichert sie automatisch als .PDF Sub Test2() Dim cFile, s As String Dim a As Integer cFile = Dir("c:\a\*.xlsx", vbDirectory) Do While cFile < "" s = "G:\MOAB1_1\Praktikanten_Doku\Gieringer Benjamin\test\" + cFile Workbooks.Open s ActiveCell.FormulaR1C1 = "-" ChDir "C:\Users\BGIERIN\Desktop" ActiveSheet.ExportAsFixedFormat ... 5 Kommentare, 167 mal gelesen.
↧