Problem mit fortlaufender Rechnungsnummer
11.02.2004 06:47:57
EBI
Ich habe eine Rechnungsvorlage mit folgendem Makro geschrieben(Was
bewirken soll, dass,jedesmal wenn die Vorlage geöffnet wird in angegebener
Zelle der Wert um 1 inkrementiert):
Sub Auto_Open()
Dim neuenummer As Integer
Application.ScreenUpdating = False
Workbooks.Open Filename:="D:\Sicherung\Factura.xlt"
neuenummer = Cells(2, 1).Value
neuenummer = neuenummer + 1
Cells(2, 1).Value = neuenummer
ActiveWorkbook.Save
ActiveWorkbook.Close
Range("D14").Select
ActiveCell.Value = neuenummer
Application.ScreenUpdating = True
End Sub
Dazu folgendes: Es funktioniert alles perfekt, bis auf das Problemm, wenn ich aus der Vorlage
eine Rechnung.xls erstelle, diese speichere (im Excel Dokumentformat.xls) und wieder aufrufe
zu einer späteren Ansicht etc., dann wir das Makro jedenfalls ausgeführt.
Dies möchte ich aber verhindern und nur, wenn ich die Originalvorlage (MEINE RECHNUNG.XLT)starte,soll jenes
Makro zur Inkrementierung des Wertes(fortlaufende Rechnungsnr.) abgearbeitet werden!
Wer kann mir helfen?
Vielen Dank, für jeden Rat---------
Anzeige