Das Archiv des Excel-Forums

email versenden die letzte

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: email versenden die letzte
von: jhaustein

Geschrieben am: 21.09.2003 08:13:08

hallo sonntagsgemeinschaft

folgendes prob

ich habe folgendes script

Sub AktiveTabelleAlsEMailVersenden()
Dim Empfänger As String
Dim iMax As String
iMax = Cells(Rows.Count, 1).End(xlUp).Offset(0, 1).Row
For i = 1 To iMax
Empfänger = Sheets("Tabelle1").Cells(i, 1).Value
Sheets("Tabelle2").Activate
ActiveWorkbook.ActiveSheet.Copy
ActiveWorkbook.SaveAs ActiveSheet.Name & ".xls"
ActiveWorkbook.SendMail Recipients:=Empfänger, _
Subject:="SerienMail"
ActiveWorkbook.Close savechanges:=False
Next
End Sub


dieses verschickt allerdings nur eine tabelle
wie bekomme ich es hin, dass es nur einen bestimmten zellbereich versendet und dann auch wirklich als plaintext nur einfügt und nicht die ganze tab bversendet

;-) jörg
Bild


Betrifft: AW: email versenden die letzte
von: Willie
Geschrieben am: 21.09.2003 10:22:08

Hallo Jörg
Wenn es dir reicht, dann kann ich dir morgen früh ab 6Uhr ein Makro ins Forum stellen,
dass das kann!
Gruß
Willie


Bild


Betrifft: AW: email versenden die letzte
von: jhaustein
Geschrieben am: 21.09.2003 11:41:30

das reicht - super vielen dank - ich warte dann in diesem thread


Bild


Betrifft: AW: email versenden die letzte
von: Willie
Geschrieben am: 22.09.2003 06:34:12

Guten Morgen Jörg hier wie versprochen! Hast du dir die Seite von Ramses angeschaut
die ist doch auch für dich wie angegossen! oder?
Gruß Willie und noch einen schönen Tag!


Sub BereichAlsEMailVersenden()
Dim Empfänger As String
Dim Bereich As Range
Application.SheetsInNewWorkbook = 1
Empfänger = InputBox("Geben Sie den Empfänger des e-Mails ein!")
If Empfänger = "" Then Exit Sub
Set Bereich = Application.InputBox("Wählen Sie den Bereich aus Sie den versenden möchten", Type:=8)
Range(Bereich.Address).Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
ActiveWorkbook.SaveAs "TEST.xls"
Application.Dialogs(xlDialogSendMail).Show _
Empfänger, "markierter Bereich"
End Sub



Bild


Betrifft: AW: email versenden die letzte
von: jhaustein
Geschrieben am: 22.09.2003 09:33:22

hi und ebenfalls guten morgen

vielen dank für deine mail und deine hilfe -

gruss
jörg


Bild


Betrifft: AW: email versenden die letzte
von: Ramses
Geschrieben am: 21.09.2003 10:29:27

Hallo

schau mal hier vorbei

http://www.office.gmxhome.de/_excel_outlook.htm

Sollte dein Bedüfnis abdecken.

Gruss Rainer


 Bild

Excel-Beispiele zum Thema " email versenden die letzte"

Arbeitsmappe als Email versenden download Arbeitsmappe zeitgesteuert per Email an einen Verteiler versenden download
Tabellenblattbereich als Email versenden download Aus Excel heraus eine Email ohne Arbeitsmappenanlage versenden download
Eine Tabelle periodisch mit dem Standard-Emailprogramm versenden download Inhalt einer Tabelle periodisch mit Outlook versenden download
Excel-Zellinhalte in Worddokument einlesen um per Email versenden download Inhalt von Zelle A1 mit Outlook versenden download
In Abhängigkeit von einem Formelwert Mail mit Outlook versenden download Beim Öffnen der Arbeitsmappe Email versenden download
Ausgewählten Bereich als interaktive Tabelle versenden download Nachricht versenden und zur Nachverfolgung kennzeichnen download
Mehrfachauswahl per Outlook versenden download Arbeitsblatt an variable Email-Adresse per Outlook versenden download
Arbeitsmappen gem. Liste an Email-Adressen versenden download Letzte nichtleere Zelle ermitteln download
Letzter Wert in Zeile download Letztes Speicherdatum eintragen download
Letzter Wert aus einem Bereich download Letztes Speicherdatum in die Fußzeile aller Tabellenblätter download
Formel bis zur letzten Zeile der Nebenspalte kopieren download Letzte Zelle mit Inhalt suchen download
Letzte Zelle einer Spalte mit Inhalt aus geschlossener Arbeitsmappe download Letzte Verknüpfung in einem Tabellenblatt löschen download
Letztes Zeichen der Werte einer Zellauswahl hoch-/tiefstellen download Den jeweils letzten Wert einer Zahlenreihe als Multiplikator download
Laufzeit von Windows seit letzten Start ermitteln download Text aus letzter Zelle mit Inhalt in UserForm-TextBox anzeigen download
Artikelnummern suchen und jeweils letzte Fundstelle listen download Mit ShortCut STRG+END zur tatsächlich letzten Zelle download
Bestimmung der ersten und letzten Zelle eines Filters download Nur die letzte Seite drucken download
Die letzte Zeile des aktiven Blattes in andere Arbeitsmappe download Alle Formate jenseits der letzten benutzten Zelle löschen download
Letzte Zeile mit einem bestimmten Anfangsbuchstaben markieren download Entfernen der letzten beiden Zeichen in Listenelementen download
Ermittlung der jeweils letzten 5 Datensätze download In jeder Zeile einer Textdatei 1. und letztes Zeichen entfernen download
Zeile mit letzter Fundstelle an letzte Position der Liste download