Absturz beim Löschen Tabellenblatt
René
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
Anzeige