Freizeichen im Dateiname?
René
ich speicher eine Datei über Auslesen einer Zelle. In dieser Zelle ist eine Verketten Formel.
=VERKETTEN("BA aus FF";"_";F4;"_";A52;"_";F6;"_";"KW";A51;"_";F13)
Aus F13 wird ein Text ausgelesen, bspw. Histologischer Befund Meyer
Funktioniert auch wunderbar. Allerdings hängt er beim Speichern der Datei immer mehrere Freizeichen an den Text.
Wenn ich die Datei per Mail mit Makro versende wird sie unbrauchbar weil der Dateiname darin ist.
Habt ihr einen Tipp für mich?
Das Makro sieht wie folgt aus
Sub A_Schaltfläche3_Klicken()
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs "Y:\Eigene Dateien\Epikrisen\Mappe2_Fortschritt_44_mit_Filter.xlsm"
Application.Quit
Dim ArrIndex, iIndex%, sExtension$, iFileFormat%, strFileName$
'Dateinamen aus aktueller Zelle
strFileName = Cells(50, 1).Value
If Dir("Y:\Test", vbDirectory) = "" Then
MkDir ("Y:\Test")
End If
'Wechselt das aktuelle Laufwerk.
ChDrive "Y:"
'Wechselt das aktuelle Verzeichnis oder den aktuellen Ordner
ChDir "Y:\Test"
'Dialog aufrufen
ActiveWorkbook.SaveAs "Y:\Befunde_2011\" & strFileName & "_" & Format(Range("O7"), "dd_mm_yyyy") _
& ".xlsm"
ActiveWorkbook.SendMail Recipients:=mail, Subject:=strFileName & "_" & Format(Range("O7"), " _
dd_mm_yyyy") 'mail senden
End Sub