Das heisst ich ändere eine Zelle in der Tabelle oder erweiter diese um eine Zeile oder Spalte und der Zähler erhöht sich um 1. Schön wäre auch das Datum der letzten Änderung.
Danke
Frank
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo errHdl
Application.EnableEvents = False
Cells(1, 1) = Cells(1, 1) + 1
Cells(1, 2) = Date
errHdl:
Application.EnableEvents = True
End Sub
Gruß
Sub Schaltfläche1_BeiKlick()
Sheets("Tabelle1").Copy
ActiveWorkbook.SendMail "Mail-Adresse", "Dateiname"
Application.DisplayAlerts = False
ActiveWindow.Close
Application.DisplayAlerts = True
End Sub
Sub Schaltfläche1_BeiKlick()
Sheets("Tabelle1").Copy
ActiveWorkbook.SendMail "Mail-Adresse", "Dateiname"
Application.DisplayAlerts = False
ActiveWindow.Close
Application.DisplayAlerts = True
End Sub
Sub Schaltfläche1_BeiKlick()
With Sheets("Tabelle1")
.Cells(1,1)=.cells(1,1)+1
.Copy
End With
ActiveWorkbook.SendMail "Mail-Adresse", "Dateiname"
Application.DisplayAlerts = False
ActiveWindow.Close
Application.DisplayAlerts = True
End Sub
Gruß