Datum

Titel

24.04.2024 14:48:50

"Eingabefeld" zwischen zwei Zeilen geht nicht weg.

24.04.2024 14:40:10

Zeilenumbrüche in Textbox zählen

24.04.2024 14:06:20

Gesamte Column löschen, wenn Column-Bereich leer

24.04.2024 13:44:05

Bezeichnung Tabellenblatt aus Zelle für Formel auslesen

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

124to128

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

fortlaufende Nummer nach Monat und Jahr

Forumthread: fortlaufende Nummer nach Monat und Jahr
4 Beiträge zu diesem Forumthread
Anzeige
328 Threads zu ähnlichen Themen
Top 100 Forumthreads

30.05.2002 15:19:51

olly

Hi Leute!

Folgendes Problem übersteigt meine Kentnisse: möchte in einer Zelle in einem Rechnungsformular eine fortlaufende Nummer erzeugen, wobei nur der erste Teil der Zahl foltlaufend, der zweite Teil der Monat und der dritte Teil das Jahr ist.
Also als Beispiel 0105/02, 0205/02 usw.
Vorab besten Dank
Olly

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Re: fortlaufende Nummer nach Monat und Jahr

30.05.2002 15:37:08

Olly
Re: fortlaufende Nummer nach Monat und Jahr

30.05.2002 16:01:17

Ramses
Re: fortlaufende Nummer nach Monat und Jahr

30.05.2002 19:32:18

Olly
Probiers mal so...

30.05.2002 21:34:05

Ramses

Re: fortlaufende Nummer nach Monat und Jahr

30.05.2002 15:37:08

Olly

Noch was:
es ist die 2000er Version und das Umschalten zur nächsten Nummer soll mit dem Starten des Druckvorgangs erfolgen.
Olly

Re: fortlaufende Nummer nach Monat und Jahr

30.05.2002 16:01:17

Ramses

Hallo Du,

Setze diesen Code unter "Diese Arbeitsmappe" im VB-Editor.
"Diese Arbeitsmappe" muss natürlich dein Rechnunsformular sein:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim OldNR As String
Dim TempNr As Integer
'Deine Nummer steht in A1
OldNR = Range("A1").Value
'die eigentliche Nummer extrahieren und mit 1 multiplizieren
'damit damit gerechnet werden kann
TempNr = Left(OldNR, Len(OldNR) - 5) * 1
'Neue Nummer in A1 eintragen
Range("A1").Value = (TempNr + 1) & Format(Now(), "MM") & "/" & Format(Now(), "YY")
End Sub

Code eingefügt mit Syntaxhighlighter 1.12

Jetzt wird bei jedem Druckvorgang die Rechnungsnummer erhöht

Re: fortlaufende Nummer nach Monat und Jahr

30.05.2002 19:32:18

Olly

Habe ich gemacht, passiert aber nix. Muss ich den Code mit evtl. mit Syntaxhighlighter einfügen? Oder genügt ein normaler Kopiervorgang?

Probiers mal so...

30.05.2002 21:34:05

Ramses

Hallo,

wahrscheinlich hast du nur eine einzige Zeile.
Kopier das mal ob es dann besser geht.
Wenn nicht, schreib den Code einfach ab. Der Code funktioniert schon:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim OldNR As String
Dim TempNr As Integer
'Deine Nummer steht in A1
OldNR = Range("A1").Value
'die eigentliche Nummer extrahieren und mit 1 multiplizieren
'damit damit gerechnet werden kannTempNr = Left(OldNR, Len(OldNR) - 5) * 1
'Neue Nummer in A1 eintragen
Range("A1").Value = (TempNr + 1) & Format(Now(), "MM") & "/" & Format(Now(), "YY")
End Sub