Laufzeitfehler 1004 beim öffnen von Vorlage



Excel-Version: 2000
nach unten

Betrifft: Laufzeitfehler 1004 beim öffnen von Vorlage
von: Claude
Geschrieben am: 11.04.2002 - 14:58:11

Ich habe eine Vorlage mit dem Namen Offerte.xlt auf unserem Firmennetz unter G:\Vorlagen gespeichert.
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

nach oben   nach unten

Re: Laufzeitfehler 1004 beim öffnen von Vorlage
von: Benoit
Geschrieben am: 11.04.2002 - 18:33:48

..weil Du auf deinem PC nicht über einem Netzwerk arbeitest.

Statt
Thisworkbook.Save
probiere
Application.Dialogs (xlDialogSaveWorkbook)

Viel Spass beim Probieren
Benoit


nach oben   nach unten

Re: Laufzeitfehler 1004 beim öffnen von Vorlage
von: Claude
Geschrieben am: 12.04.2002 - 11:27:31

Hallo Benoit,
habe abgeändert und nun siehts so aus

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
Application.Dialogs (xlDialogSaveWorkbook)
End Sub

erhalte Fehler beim Kompilieren:
unzulässige Verwendung einer Eigenschaft.

was habe ich falsch gemacht?

nach oben   nach unten

Re: Laufzeitfehler 1004 beim öffnen von Vorlage
von: Benoit
Geschrieben am: 12.04.2002 - 13:40:14

'tschldigung, Falsche bzw. unvollständige Infos meinerseits:

dialogAntw = Application.Dialogs(xlDialogSaveWorkbook).Show

So lautet im Hilfedatei von Excel.
dialogAntw wird in deinem Fall nicht gebraucht.

Info über eine Befehl: Cursor drauf positionieren und F1 drücken

Gruß
Benoit

nach oben   nach unten

Re: Laufzeitfehler 1004 beim öffnen von Vorlage
von: Claude
Geschrieben am: 15.04.2002 - 09:54:16

Hallo Benoit,
der Code sieht nun so aus:

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
Application.Dialogs (xlDialogSaveWorkbook)
End Sub

nun erhalte ich die Fehlermeldung:
Unzulässige Verwendung einer Eigenschaft

was mache ich falsch?
(wie Du sicher bemerkt hast bin ich totaler Anfänger)

Vielen Dank für deine Hilfe
Claude

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Laufzeitfehler 1004 beim öffnen von Vorlage"