Hallo zusammen
Ich habe folgendes Problem:
Ich öffne eine Datei via folgenden Code und kopiere ein Arbeitsblatt heraus:
Dim myFile As String
Dim YourFolderPath As Variant
YourFolderPath = "xxxx"
ChDir YourFolderPath
myFile = Application.GetOpenFilename
If myFile = "False" Then Exit Sub
Workbooks.Open Filename:=myFile
Sheets("Data").Select
Sheets("Data").Move After:=Workbooks( _
"KA.xlsm").Sheets(1)
Die Dateinamen sind variabel z.Bsp. 2010181758_32061.xlsx
Nun hätte ich gerne, dass die ausgesuchte Datei unter den neuen Namen 2010181758_32061_KAZAerledigt.xlsx die alte Datei ersetzt.
Kann hier jemand helfen? Vielen Dank!!
Pascal