Senden von Excel nicht möglich.

[MGyStg]

Hallo Zusammen.

Ich habe ein Excel-File das mit Makros programmiert wurde.
Bei dem File kann man auf eine Schaltfläche klicken und es öffnet sich automatisch das Mail-Programm (in diesem Fall Lotus Notes). Nun habe ich das Problem, das ich beim öffnen der Schaltfläche die Fehlermeldung "Laufzeitfehler 1004" bekomme.

Hier mein Code:

Private Sub cmd_Sort_Click()
   Call SU_Sortieren_Source
End Sub



Private Sub cmd_drei_Spalten_Click()
   Call SU_Daten_IN_3Spalten
End Sub



Private Sub cmd_Ende_Click()
Dim iZeiAnz As Long
iZeiAnz = FU_Zeilen(1)
If iZeiAnz < 5 Then Exit Sub
Call SU_Sortieren_Source
Cells(FU_Zeilen(1) + 1, 1).Select
End Sub

' 

Private Sub cmd_formatieren_Click()
   Call SU_Formatieren
End Sub


Private Sub cmd_Mail_Versand_Click()
Dim iTag As Integer, iMon As Integer, sJah As String, sMon As String, sFil As String, sTab As String
   Tab02.Activate
   Tab02.Cells().Interior.ColorIndex = xlNone
   sTab = Tab02.Name
   sFil = ActiveWorkbook.Path & "\xTelefonliste-" & Tab02.Name & ".xls" '"-" & Left(Time(), 2) & Mid(Time(), 4, 2) & ".xls"
   Tab02.Copy
   
   Application.DisplayAlerts = False   ' Damit Datei ohne Rückfrage überschrieben wird
   ActiveWorkbook.SaveAs Filename:= _
      sFil, FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
      ReadOnlyRecommended:=False, CreateBackup:=False
   Application.DisplayAlerts = True
   
   ActiveWorkbook.SendMail Recipients:="", Subject:="Telefonliste " & sTab
   ActiveWorkbook.Close
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'    If Target.Row = 1 Then
        Select Case Target.Column
            Case 1: Call SU_Suchen
            Case 2, 3, 4: Cells(2, Target.Column).Select
'            Case 5: Cells(FU_Zeilen(1) + 1, 1).Select
'            Case 6: Call SU_Daten_IN_3Spalten
'                Cells(2, 1).Select
'            Case 7: Call SU_Sortieren_Source
'            Case 8: Call SU_Formatieren
            Case Else: Call SU_Suchen
        End Select
'    End If
End Sub

'

Der "Debugger" zeigt mir an, dass folgende Zeile nicht passt:

sFil = ActiveWorkbook.Path & "\xTelefonliste-" & Tab02.Name & ".xls" '"-" &

Ich hoffe mir kann jemand helfen.

Danke viel mals und Gruss!

 

[AndrewPoison]

Probier mal, vor die fehlschlagende Sub folgendes zu schreiben (also außerhalb der Funktion):

Option Explicit

und probier dann nochmal. Bzw. sag an, ob dann andere Fehler kommen.

 

[_killy_]

Option Explicit ist doch schon aktiviert, steht gleich unter dem Hinweis zum Autor ... also in Zeile 4

Hier wäre mein Vorschlag, sich direkt an den Autor zu wenden, oder arbeitet der Herr nicht mehr bei euch in der Firma? Wenn doch, so kann der Autor wenigstens dafür sorgen, dass das Excel Programm einheitlich für alle umgestellt wird in der Fehlerbehebung, so dass es nicht jeder User selbst machen muss.

ok?

 

[MGyStg]

Also, danke für eure Hilfen.

Wird wohl noch lange dauern. Das Makro funktioniert bei anderen Mitarbeitern auch. Also sehen wir denn Fehler im E-Mail.
Den Threed kann man schliessen.

Trotzdem danke für eure raschen antworten.