Laufende Nummernvergabe
06.11.2003 09:31:33
Scrooge
habe folgende VBA
Private Sub Workbook_Open()
Shetts("Tabelle1").Range("A1").Value = Sheets("Tabelle1").Range("A1") + 1
End Sub
Danke hierfür Galenzo
Mit diesem VBA Code wird erreicht das ich eine laufende Nummenvergabe auf meiner
Tabelle. Dies ist für mein Angebotsblatt. Jetzt möchte ich auch auf meinem Rechnungsblatt eine laufende Nummernvergabe einrichten.
Z.B. Ich schreibe ein Angebot mit der Nummer 1 und dann eine Rechnung die automatisch 2 heisst.
Ich hoffe ich habe mich verständlich ausgedrückt
Ich danke Euch im vorraus !!
Gruss Marko
P.S: Kann man auch anstatt einer Nummer ein Datum vergeben z.B.06-11-03/01...02...03....04