E-Mail_Makro nicht, wenn Zelle leer ist
04.04.2005 15:36:02
Gisela
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