ich habe Zwei Tabellenblätter. Auf dem ersten "Tabelle1" stehen nur Daten. Auf dem Zweiten steht nur ein Button "Senden". Wenn ich im zweiten Tabellenblatt den Button "Senden" betätige, wird das erste Tabllenblatt per Mail versandt. Code:
Sub Schaltfläche1_BeiKlick()
Sheets("Tabelle1").Copy
ActiveWorkbook.SendMail "E-Mail Adresse", "Dateiname"
Application.DisplayAlerts = False
ActiveWindow.Close
Application.DisplayAlerts = True
End Sub
Das funktioniert auch.
Ich möchte jetzt aber im ersten Blatt (Tabelle1) einen Zähler haben, der sich immer bei jedem senden um 1 erhöht. Ausserdem wäre es schön, wenn das Datum des letzten Sendens mit angezeigt würde. Somit könnte der Empfänger immer sehen welche aktuelle geänderte Version er gerade hat, da diese Tabelle mehrfach pro tag gesendet wird.
Geht das ?