Kan man diese formel so abgleichen,das wenn er die datei erstellt hat sie automatisch per email sendet..??
Die Formel ist:
Sub Kopie()
Dim rngBer As String
On Error Resume Next
rngBer = InputBox("Welchen Bereich möchten Sie kopieren ?")
Range(rngBer).Copy
Worksheets(4).Select
Cells(1, 1).Select
ActiveSheet.Paste
Dim wkbZiel As Workbook
Dim wksQuell As Worksheet
Dim strFileName As String
strFileName = "Sicherung" & Format(Now, "dd.mm.yyyy")& ".xls"
Set wksQuell = ActiveSheet
wksQuell.Copy
Set wkbZiel = ActiveWorkbook
wkbZiel.Close SaveChanges:=True, Filename:=strFileName
Set wksQuell = Nothing
Set wkbZiel = Nothing
End Sub
Gruß Uwe