Die Vorlage enthält folgendes Makro um die Zelle D99 mit dem erstell-Datum zu füllen und die OffertNr
bei jedem neuen öffnen um 1 zu erhöhen.
Option Explicit
Private Sub Workbook_Open()
If Tabelle1.Range("D99").Value = "" Then Tabelle1.Range("D99").Value = Date
With Range("OffertNr")
.Value = .Value + 1
End With
ThisWorkbook.Save
End Sub
Wenn ich nun über "Datei", "Neu" die Vorlage auswähle, erhalte ich folgende Fehlermeldung:
Eine Datei mit dem Namen 'Offerte1.xls' existiert schon an diesem Platz. Soll sie ersetzt werden?
wenn ich ja wähle, öffnet sich die Arbeitsmappe, die OffertNr wird aber nicht jedesmal um 1 erhöht.
wenn ich nein wähle, erhalte ich
Laufzeitfehler '1004'
Die Methode 'Save' für das Objekt '_Workbook' ist fehlgeschlagen.
Die gleiche Vorlage habe ich auf meinem privaten PC installiert und da funktioniert alles einwandfrei.
Kann mir jemand weiterhelfen?
Vielen Dank im Voraus
Claude