Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
592to596
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
592to596
592to596
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

E-Mail_Makro nicht, wenn Zelle leer ist

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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: E-Mail_Makro nicht, wenn Zelle leer ist
04.04.2005 15:56:54
u_
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ß
AW: E-Mail_Makro nicht, wenn Zelle leer ist
04.04.2005 16:09:34
Gisela
Hallo,
vielen vielen Dank. Genau das, was ich gesucht habe.
Grüße
Gisela
Anzeige

308 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige