E-Mail_Makro nicht, wenn Zelle leer ist

Bild

Betrifft: E-Mail_Makro nicht, wenn Zelle leer ist von: Gisela
Geschrieben am: 04.04.2005 15:36:02

Hallo zusammen,

mit folgenden Makros versende ich E-Mails aus Excel - es wird jeweils das benannte TB kopiert und versandt-. Insgesamt sind es 6 Makros.
Ich möchte erreichen, dass wenn z.B. in B4 kein Zellinhalt vorhanden ist, dass der Makro nicht ausgeführt, auch keine Abfrage erfolgt, sondern der nächste Makro abläuft. Kann mir bitte jemand helfen und sagen was ich in den Makros ändern muss?


Sub SendenTabPaten()
' in V1 Name des Tabellenblattes
' in B2 Mailempfänger usw.
' in V2 Betreff
Dim wks As Worksheet
Application.ScreenUpdating = False
Set wks = ActiveSheet
Worksheets(Range("V1").Value).Copy
    Columns("B:B").Select
    Selection.Delete Shift:=xlToLef
    Range("B23").Select
ActiveWorkbook.SendMail wks.Range("B2").Value, wks.Range("V2").Value
Application.DisplayAlerts = False
ActiveWorkbook.Close savechanges:=False
Call SendenTabPaten1
End Sub



Sub SendenTabPaten1()
Dim wks As Worksheet
Application.ScreenUpdating = False
Set wks = ActiveSheet
Worksheets(Range("V1").Value).Copy
    Columns("B:B").Select
    Selection.Delete Shift:=xlToLef
    Range("B23").Select
ActiveWorkbook.SendMail wks.Range("B3").Value, wks.Range("V2").Value
Application.DisplayAlerts = False
ActiveWorkbook.Close savechanges:=False
Call SendenTabPaten2
End Sub


usw.

Vielen Dank für jede Hilfe
Grüße
Gisela
Bild


Betrifft: AW: E-Mail_Makro nicht, wenn Zelle leer ist von: u_
Geschrieben am: 04.04.2005 15:56:54

Hallo,

Sub SendenTabPaten()
' in V1 Name des Tabellenblattes
' in B2 Mailempfänger usw.
' in V2 Betreff
Dim wks As Worksheet
Application.ScreenUpdating = False
Set wks = ActiveSheet
If wks.Range("B4")<>"" then
Worksheets(Range("V1").Value).Copy
    Columns("B:B").Select
    Selection.Delete Shift:=xlToLef
    Range("B23").Select
ActiveWorkbook.SendMail wks.Range("B2").Value, wks.Range("V2").Value
Application.DisplayAlerts = False
ActiveWorkbook.Close savechanges:=False
End If
Call SendenTabPaten1
End Sub

Gruß


Bild


Betrifft: AW: E-Mail_Makro nicht, wenn Zelle leer ist von: Gisela
Geschrieben am: 04.04.2005 16:09:34

Hallo,
vielen vielen Dank. Genau das, was ich gesucht habe.
Grüße
Gisela


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Symbolleisten integrieren"