habe mit einem Makro Probleme. An der Stelle im Makro wo Tabellenblatt Patient gelöscht werden soll stürzt das Makro ab. Kann mir überhaupt nicht erklären warum ?
Habt ihr einen Rat?
MfG René
Sub A_Schaltfläche3_Klicken()
Dim strFileName As String
Application.DisplayAlerts = False
ActiveWorkbook.SaveCopyAs "Y:\Eigene Dateien\Programmierung Epikrisen\Fertige Dateien\Test.xlsm" _
_
Application.Quit
Sheets("Patient").Visible = True
Sheets("Patient").Select
ActiveWindow.SelectedSheets.Delete
'Dateinamen aus Zelle
strFileName = Cells(50, 1).Value
If Dir("Y:\Test", vbDirectory) = "" Then
MkDir ("Y:\Test")
End If
Worksheets("A_").Shapes("Button2").Delete
Worksheets("A_").Shapes("Button3").Delete
' Speichern
'ActiveWorkbook.SaveCopyAs "Y:\Test\" & strFileName & "_" & Format(ActiveWorkbook.ActiveSheet. _
Range("O7"), "dd_mm_yyyy") & ".xlsm"
ActiveWorkbook.SaveAs "Y:\Test\" & strFileName & "_" & Format(Range("O7"), "dd_mm_yyyy") & ". _
xlsm"
' Senden
ActiveWorkbook.SendMail Recipients:=mail, Subject:=strFileName & "_" & Format(ActiveWorkbook. _
ActiveSheet.Range("O7"), "dd_mm_yyyy ") & ".xlsm" 'mail senden
End Sub