Speichern als xlsb
02.07.2019 22:04:32
Matthias
habe für einen Bekannten eine Honorarnote im Excel erstellt. Er öffnet die Vorlage und speichert dann jede Honorarnote separat ab.
Per Workbook.Open zählt die Rechnungsnummer bei jedem öffnen hinauf.
Das Datum ist mit =Heute() verlinkt und per Before.Safe wird das Datum in einen Wert umgewandelt.
Nun mein Problem: Die Rechnungsnummer zählt nun auch hinauf, wenn die separat abgespeicherte HN für den Kunden XY geöffnet wird. Natürlich könnte ich ihm sagen, er soll die HN einfach als xlsb speichern, lieber aber würde ich dies automatisiert machen.
Könnte mir hier bitte jemande weiterhelfen?
Das Speichern selbst erfolgt über einen Button hinter dem folgender Code ist:
Sub Speichern()
ActiveWorkbook.Save
Dim strDateiname As String
ChDrive "c:\"
strDateiname = ("Honorarnote " & Range("G15").Formula)
Application.Dialogs(xlDialogSaveAs).Show (strDateiname)
End Sub
Zur Erklärung: Es ist eine Vorlage und bevor die Datei geschlossen wird, wird die =HEUTE Formel in einen Wert umgewandelt. Deswegen habe ich das Speichern auf einen Button verlagert wodurch ich zuerst per ActiveWorkbook.Safe die Vorlage speichere und ihm dann die Honrarnote per Speichern unter abspeichern lasse. Wenn er sie dann schließt ist der Datum-Wert nur in der separat gespeicherten HN vorhanden, nicht aber in der Vorlage.
Müsste den code jetzt noch adaptieren, dass es als Datei ohne Makros abgespeichert wird.
Danke und LG
Anzeige