title image


Smiley Re: fortlaufende Nummerierung bei "speichern unter" - VBA?
Hallo,

das hört sich nach Netzwerk und mehreren Mitarbeitern (PCs) an.



> Das leere Formular ist eine Vorlage für Excel.

also eine Mustervorlage eine *.xlt?



> Die soll immer als Original benutzt werden.

Falls dein Formular also eine Mustervorlage ist, bekommt jeder immer

eine Kopie des Originals.

Falls aber dein Formular keine xlt ist sondern eine normale Excel-Datei xls

dann:



> Diese soll in der Zelle "A1" stehen...

dann so:





' unter "Diese Arbeitsmappe" speichern

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)    

' erhöht den Wert in Zelle A1 vor jedem Speichern um 1

  ThisWorkbook.Worksheets("Tabelle1").Cells(1, 1) = ThisWorkbook.Worksheets("Tabelle1").Cells(1, 1) + 1

End Sub  





Gruß

Alfons

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: