habe mir ein Makro geschrieben. Ich will erreichen das er die Datei erst wieder im Ursprungsordner speichert und dann eine Kopie in einen anderen Orndner speichert. Danach soll die Datei als Mail versendet werden. Der erste Speichervorgang funktioniert. Aber beim zweiten Speichervorgang wird das Dateiformat nicht beim Speichern erkannt und genau so auch beim Mail versenden. Habt ihr einen Tipp an was das liegen kann?
MfG René
Sub A_Schaltfläche3_Klicken()
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs "Y:\Eigene Dateien\Programmierung Epikrisen\Fertige Dateien\Test.xlsm"
Application.Quit
Dim ArrIndex, iIndex%, sExtension$, iFileFormat%, strFileName$
'Dateinamen aus aktuller 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"
'Datei Version
ArrIndex = Array("xlsx", "xlsm", "xls")
'Extention der Datei
sExtension$ = Right$(strFileName, Len(strFileName) - InStrRev(strFileName, "."))
'Dialog aufrufen
ActiveWorkbook.SaveAs "Y:\Test\" & strFileName & "_" & Format(Range("O7"), "dd_mm_yyyy")
ActiveWorkbook.SendMail Recipients:=mail, Subject:=strFileName & "_" & Format(Range("O7"), " _
dd_mm_yyyy") 'mail senden
End Sub