title image


Smiley Re: fortlaufende Nummerierung bei "speichern unter" - VBA?
Nun mußt du nur noch den Tabellennamen ("Tabelle1") austauschen falls du einen namen vergeben hast. z.B. ("Artikelanforderungsformular,")



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

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

End Sub
Man muß nur wissen wer was weiss!

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: