Speichern unter mit Datum

Question

Hallo
Ich habe eine Datei erstellt als Blanko Abrechnung, nach den eintragen verschiedener Werte soll diese Datei abgespeichert werden. Mit Datei speichern unter, neuem Dateinamen eine fortlaufende Nummer wird von Hand eingegeben. In dieser Datei möchte ich in einer Zelle z.b D17 das aktuelle Datum automatisch eingetragen haben.
Da dies sich vermutlich nur über eine VBA Lösung realisieren lässt, bräuchte ich wieder einmal Hilfe aus diesem Forum.

Mit freundlichen Grüßen
Hans

Answer 1

Halo hans.

ich hätte das nicht als Problem angesehen in der Zeile
Tabelle Range("D4")=Date
nach Tabelle einen Punkt zu machen statt der Leerstell. Ob das der Interne Name ist kann ich nicht sehen. Ansonstzen ist Tabelle durch meinen Vorsxchlag zu ersetzen, was ich auch nicht als Problem, ansehe.

Gruß hajo

Answer 2

Hallo Hajo
Habe das Gefühl du willst mich nicht verstehen :-(

Kenne mich leider nicht mit VBA aus.
Poste mir bitte den gesamten Code, und wie- als was ich ihn einfügen muss.

Ist das ein VBA Code oder soll ich es in eine Zelle schreiben.
Einfügen als Modul oder ..

Zunächst besten dank für deine Mühe.

Mfg
Hans

Answer 3

Halo Hans,

de4r Code gehört in ein Modul, Davor Sub Datum() und danach End Sub. Das Makro muss per Handhgestartet werden.
Oder Unter dieseArbeitsmapppe.

Option Explicit

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Worksheets("Tabelle3").Range("a1") = "" Then
Worksheets("Tabelle3").Range("a1") = Date
End If
End Sub

dann läuft es automatisch.

Gruß Hajo

Answer 4

Hallo Hajo

Besten dank für deine Hilfe.
Jetzt habe auch ich es, als Leihe, verstanden.

Mit freundlichen Grüßen
Hans