Supportnet / Forum / Tabellenkalkulation

Hallo zusammen, ich bin relativ neu beim Thema EXCEL und Makros. Nun habe ich zur Aufgabe bekommen, ein bestimmtes Tabellenblatt aus der EXCEL-Datei "Ausfahrt" heraus an eine variable E-Mail-Adresse zu senden. In der zu bearbeitenden Datei "Ausfahrt" im Tabellenblatt "info" in Zelle F3 steht die zur Zeit gültige E-Mail-Adresse. Das Versenden des Tabellenblattes habe ich in der Vergangen wie folgt gemacht: Sub Blatt_senden() Sheets("Tabelle2").Copy ActiveWorkbook.SendMail "beispiel@mail.de", "Tabelle2" Application.DisplayAlerts = False ActiveWindow.Close Application.DisplayAlerts = True End Sub Doch jetzt ist die Empfänger-Adresse leider sehr häufig unterschiedlich und das ewige ändern des Makros "finde ich weniger toll". Kann mir jemand helfen? Danke Marivn marvin_der_koenig@freenet.de

Hallo Marvin,

leider kann ich es im Moment nicht testen, aber es könnte so gehen:

Sub Blatt_senden()
Dim Empfänger as String
Empfänger=Worksheets("info").Range("F4")
Sheets("Tabelle2").Copy
ActiveWorkbook.SendMail Empfänger, "Tabelle2"
Application.DisplayAlerts = False
ActiveWindow.Close
Application.DisplayAlerts = True
End Sub

MfG

JöKe

Hallo JöKe,

recht herzlichen Dank, das ergänzte Makro läuft.

Vielen Dank für die SCHNELLE Hilfe

Gruß Marvin

Empfänger=Worksheets("info").Range("F3")

Hallo Caro,

hat er wohl bemerkt ;-)

Hallo alle zusammen,

noch einmal herzlichen Dank für die Hilfe und Unterstützung.

Nun hat mein Vater mich aber auf eine andere Idee gebracht.

Ich versende das im Makro angegebene Tabellenblatt, siehe Makro:

Sub S1_senden()
Dim Empfänger As String
Empfänger = Worksheets("info").Range("F3")
Sheets("S1").Copy
ActiveWorkbook.SendMail Empfänger, "S1"
Application.DisplayAlerts = False
ActiveWindow.Close
Application.DisplayAlerts = True
End Sub

Nun müßte ich für alle Tabellenblätter je nach Bedarf versenden.
Dafür müßte ich in jedem Tabellenblatt das Makro entsprechend ändern.

Gibt es eine Möglichkeit, das das zur Zeit geöffnete Tabellenblatt versandt wird?

Ich danke Euch
Gruß Marvin

Hallo Marvin,

versuch es mal so:


ActiveWorkbook.SendMail Empfänger, ActiveSheet


Gruß

JöKe

Hallo JöKe,

ich habe die Zeile im Makro geändert, doch jetzt funktioniert gar nichts mehr.

Magst Du mir im Makro kenntlich machen, wo und wie ich die Zeile einsetzen sollte?

Danke Marvin

Hallo Marvin,

wie schon in AW 1 gesagt ich kann es im Moment nicht Testen.


Sub S1_senden()
Dim Empfänger As String
Empfänger = Worksheets("info").Range("F3")
ActiveSheet.Copy
ActiveWorkbook.SendMail Empfänger, ActiveSheet
Application.DisplayAlerts = False
ActiveWindow.Close
Application.DisplayAlerts = True
End Sub

Gruß

JöKe

Ergänzung:

ActiveWorkbook.SendMail Empfänger, ActiveSheet.Name

muss es wohl heißen.

Gruß