Microsoft Excel

Herbers Excel/VBA-Archiv

Bei Fehler - anderes Makro ausführen | Herbers Excel-Forum


Betrifft: Bei Fehler - anderes Makro ausführen von: Stef@n
Geschrieben am: 07.12.2009 10:35:07

Hallo Zusammen,

ich stehe vor folgender Fragestellung:
Wenn das u.a. Makro ausgeführt wird, der User aber kein Outlook hat, erscheint eine Fehlermeldung.
Jetzt möchte ich erreichen, dass - wenn ein Fehler auftritt - ein anderes Makro automatisch gestartet wird.
Wie müsste der Code angepasst werden, dass z.B. eine Messagebox erscheint.
.. if fehler then ...

Kriegs irgendwie nicht hin :(
Freu mich auf eine Antwort
Gruß
Stef@n

Sub Mail_via_Outlook()
    Dim olapp As Object
    Dim objMail As Object
    Dim Empfaenger As String
    Empfaenger = [L13]
       If Range("O10").Value = "TEST" Then
            Set olapp = CreateObject("Outlook.Application")
            Set objMail = olapp.CreateItem(olMailItem)
                With objMail
                    .To = Empfaenger
                    .Subject = Environ("Username") & " sendet den Hinweis!"
                    .Body = Worksheets("Abfrage").Range("I11").Value
                    .Send 'legt die Mail gleich in den Postausgang
                End With
       End If
End Sub

  

Betrifft: AW: Bei Fehler - anderes Makro ausführen von: Chris
Geschrieben am: 07.12.2009 10:37:58

On error goto ...


  

Betrifft: AW: Bei Fehler - anderes Makro ausführen von: Chris
Geschrieben am: 07.12.2009 10:38:19

On error goto ...


  

Betrifft: vielleicht geht es so,... von: Tino
Geschrieben am: 07.12.2009 10:44:55

Hallo,
habe ich jetzt nicht getestet.

Sub Mail_via_Outlook()
Dim olapp As Object
Dim objMail As Object
Dim Empfaenger As String
    
    Empfaenger = [L13]
         
    If Range("O10").Value = "TEST" Then
       
      On Error Resume Next
       Set olapp = CreateObject("Outlook.Application")
       If olapp Is Nothing Then
        Call Mein_Makro
        Exit Sub
       End If
      On Error GoTo 0
       
       Set objMail = olapp.CreateItem(olMailItem)
       With objMail
           .To = Empfaenger
           .Subject = Environ("Username") & " sendet den Hinweis!"
           .Body = Worksheets("Abfrage").Range("I11").Value
           .Send 'legt die Mail gleich in den Postausgang
       End With
    End If

End Sub
Gruß Tino


Beiträge aus den Excel-Beispielen zum Thema "Bei Fehler - anderes Makro ausführen"