Neue, aktive Datei umbenennen

Guten Tag, VBA Spezialisten,
mit diesem Code erzeuge ich eine neue Datei, der auch funktioniert:


Sub NeuMappe()
Dim wkbNeu As Workbook
Set wkbNeu = Workbooks.Add
wkbNeu.SaveAs "C:\Test\Maximilian.xls"
End Sub

Diese erzeugte Datei, jetzt aktive Datei, soll umbennat werden und es kommt ein Fehler:(ActiveWorkbook.SaveAs NewName) im Code:


Sub DateiUmbenennen()
Dim NewName As String, OldName As String
NewName = InputBox("Bitte neuen Dateinamen eingeben", "Datei umbenennen")   'Neuer  _
Dateiname
OldName = ActiveWorkbook.FullName   'Aktueller Dateiname + Pfad
If NewName = "" Then Exit 

Sub   'Laufzeitfehler verhindern indem überprüft wird, ob NewName ein Zeichen enthält
 ActiveWorkbook.SaveAs NewName   'Datei unter NewName speichern
'Kill Dir(OldName)   'Alte Datei löschen
End Sub

Ideal wäre, beide Codes zu einem verkürzen. Mit Eingabe in Inputbox wird z.B. der Name "Maxi.xlsm" eingegeben. Kann der Fehler durch ".xlsm" enstehen? Wie kann ich ihn dann beheben?
Gruß und Dank für evtl. Hilfe,
Dieter(Drummer)

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub test() Dim WB As Workbook Application.DisplayAlerts = False sPath = "c:\temp\" Nn = InputBox("Dateiname") Set WB = Workbooks.Add Cells(1, 1) = "A" WB.SaveAs sPath & Nn & ".xlsx" WB.SaveCopyAs sPath & Nn & "2" & ".xlsx" Application.DisplayAlerts = True End Sub

Sub test() Dim WB As Workbook Application.DisplayAlerts = False >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> sPath = "c:\temp\" Nn = InputBox("Dateiname") Set WB = Workbooks.Add Cells(1, 1) = "A" WB.SaveAs sPath & Nn & ".xlsx" WB.SaveCopyAs sPath & Nn & "2" & ".xlsx" Application.DisplayAlerts = True End Sub

Sub test() Dim sPath As String Dim WB As Workbook Application.DisplayAlerts = False sPath = "c:\temp\" Nn = InputBox("Dateiname") Set WB = Workbooks.Add Cells(1, 1) = "A" WB.SaveAs sPath & Nn & ".xlsx" WB.SaveCopyAs sPath & Nn & "2" & ".xlsx" Application.DisplayAlerts = True End Sub

Sub test() Dim Nn As String Dim sPath As String Dim WB As Workbook Application.DisplayAlerts = False sPath = "c:\temp\" Nn = InputBox("Dateiname") Set WB = Workbooks.Add Cells(1, 1) = "A" WB.SaveAs sPath & Nn & ".xlsx" WB.SaveCopyAs sPath & Nn & "2" & ".xlsx" Application.DisplayAlerts = True End Sub

Sub NeuMappe() 'Mx Dim wkbNeu As Workbook Set wkbNeu = Workbooks.Add wkbNeu.SaveAs "C:\Test\NeueDatei.xls" If MsgBox(ActiveWorkbook.FullName & ":" & vbCr & "Diese aktive Datei wirklich umbenennen?", _ vbYesNo) = vbYes Then Workbooks.Open Filename:="C:\test\NeueDatei.xls" ActiveWorkbook.SaveAs Filename:="C:\test\MaxiDatei.xlsm", FileFormat:= _ xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False End If End Sub

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

6 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Neue, aktive Datei umbenennen

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

6 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread