Herbers Excel-Forum - das Archiv

aktuelle Tabellen Mailen mit aktuellem datum

Bild

Betrifft: aktuelle Tabellen Mailen mit aktuellem datum
von: AndreasR
Geschrieben am: 20.09.2003 15:33:03
Hallo Exelfreunde

ich habe folgendes Makro mit dem ich in Lotes Notes aus einem aktiven Tabellenblatt herraus über eine Schaltfläche das aktuelle Tabellenblatt ohne Verknüpfungen sende.

Sub AktuelleTabelleMailenOhneVerknüpfungen()
Dim zelle As Range
Sheets("Tabelle1").Activate
ActiveWorkbook.ActiveSheet.Copy
Selection.SpecialCells(xlCellTypeFormulas, 23).Select
For Each zelle In Selection
zelle.Value = zelle.Value
Next zelle
ActiveWorkbook.SendMail _
Recipients:="Held-office@t-online.de", _
Subject:="Aktuelle Tabelle mailen"
ActiveWorkbook.Close savechanges:=False
End Sub


mein Problem ist, das ich bei der Codezeile Subject:= auch das aktuelle Datum mit reingeschrieben werden soll.
Das sollte dann in der e_Mail in der Zeile "Betreff" dannfolgendermaßen aussehen
Betreff: Aktuelle Tabelle vom: und hier sollte dann noch das aktuelle Datum stehen

kriegt das eventuell einer von euch hin obwohl heute wieder ein schöner heißer tag ist????

Gruß und noch ein schönes Wochenende und vielen dank für eure Bemühungen
Andreas
Bild

Betrifft: AW: Tabellen mailen mit aktuellem Datum
von: jinx
Geschrieben am: 20.09.2003 16:31:38
Moin, Andreas,

Bernd wird sich sicherlich freuen über die vielen Mails...

Bei OL2K reicht die folgende Änderung aus:
Subject:="Aktuelle Tabelle vom: " & Date

cu
jinx
Bild

Betrifft: AW: Tabellen mailen mit aktuellem Datum
von: Andreas
Geschrieben am: 20.09.2003 16:48:27
Danke werde es mal ausprobieren
Gruß Andreas
 Bild
Excel-Beispiele zum Thema " aktuelle Tabellen Mailen mit aktuellem datum"
Aktuellen Dateipfad aktualisieren Arbeitsmappe mit dem Namen des aktuellen Datums öffnen
Addition bis zum aktuellen Datum Aktueller Arbeitsblattname in Formel
Zur Zelle mit aktuellem Datum scrollen Aktuelle Zeit über UserForm eintragen und Rennzeit berechnen
Bei Eintrag in Spalte A aktuelle Zeile kopieren Über Schaltfläche neues Blatt mit aktuellem Datum einfügen
Aktuelle Geburtstage beim Öffnen der Arbeitsmappe anzeigen Daten der aktuellen Zeile im Kontextmenü anzeigen