ich speichere mit dem folgenden Code auf dem Server ab. Der Dateiname ergibt sich aus dem Wert den ich in die Celle B2 schreibe. Ich möchte mit dem Speichervorgang auch den Namen des Sheets von Steckbrief auf Auftragssteckbrief ändern.
Bekommt man das in dem Code noch unter?
Vielen Dank für die Unterstützung.
Gruß Tom
Public Sub SpeichernUnter_RT()
'Pfad ggf. ändern
Const pfad As String = "\\....\Steckbrief_RT\"
Dim Dateiname As String
With Sheets("Steckbrief")
Dateiname = .Range("B2").Text
End With
If Dateiname "" Then
Dateiname = fncErsetzenUnzulaessig(Dateiname) & ".xlsm"
If Dir(pfad & Dateiname) "" Then
If MsgBox("Datei """ & Dateiname & """ existiert bereits!" & vbLf _
& "Soll die Datei überschrieben werden?", _
vbYesNo + vbQuestion, _
"Datei speichern unter") = vbNo Then Exit Sub
End If
Application.DisplayAlerts = False
ThisWorkbook.SaveAs Filename:=pfad & Dateiname, _
FileFormat:=xlOpenXMLWorkbookMacroEnabled
Application.DisplayAlerts = True
MsgBox "Die Datei wurde erfolgreich gespeichert"
Else
MsgBox "A2 & B2 =""""", , "Speichern nicht möglich"
End If
End Sub