Speicher unter mit Zelleninhalt ohne Sonderzeichen
05.05.2014 21:11:00
Tom
der unten folegnde Code legt über den Inhalt der Zelle A2 und B2 den Dateinamen fest und speichert die Datei auf einen fest hinterlegten Pfad ab. Wie lassen sich Sonderzeichen wie z.B. / und * usw. durch Understrich oder ein Leerzeichen an dieser Stelle ersetzen?
Sub SpeichernUnter()
On Error GoTo Fehler
Dim DName As String, Dateiname As String, Pfad As String
Pfad = "I:\OFFER-ORDER\Kalkulationen\VkGr_Kalkulationen"
Dateiname = Pfad & "\" & DName & Worksheets("Stückliste").Range("A2").Value & " " & Range(" _
B2").Value & ".xlsm"
ThisWorkbook.SaveAs Filename:=Dateiname
MsgBox "Datei erfolgreich gespeichert"
Exit Sub
Fehler:
MsgBox "Datei wurde nicht gespeichert"
strFile = "I:\OFFER-ORDER\Kalkulationen\VkGr_Kalkulationen"
If Len(Dir(strFile)) > 0 Then
' Datei vorhanden -> rückfrage
i = MsgBox("Datei bereits vorhanden, überschreiben?", vbYesNo)
If i = 6 Then
ActiveWorkbook.SaveCopyAs strFile
End If
Else
' Datei nicht vorhanden -> gleich speichern
ActiveWorkbook.SaveCopyAs strFile
End If
End Sub
Vielen Dank für die Unterstützung
Gruß Tom
Anzeige