Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
332to336
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
332to336
332to336
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Laufende Nummernvergabe

Laufende Nummernvergabe
06.11.2003 09:31:33
Scrooge
Hallo Forum,

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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Laufende Nummernvergabe
10.11.2003 11:09:33
Bernhard
Hi Marko,

ich verstehe Dein Problem nicht ganz.
Nummer der Rechnung = Nummer des Lieferscheins + 1

Sheets("RECHNUNG").Range("A1").Value = Sheets("ANGEBOT").Range("A1") + 1

2. Frage:

Sub rechnungsdatum ()
Datum = date
Sheets("RECHNUNG").Range("A1").Value = Datum & "....Deine Werte"
End Sub


Bernhard

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige