folgende Frage:
habe in Zelle L9 das aktuelle Datum hionter legt
möchte jetzt in Zelle L11 eine laufende Nummer vergeben
Der Aufbau sollte folgendermaßen sein:
die ersten 4 Stelle das Jahr (2005)
die nächsten beiden Ziffern der Monat (01)
die letzten vier Ziffern fortlaufend von 0001 an
Hierbei ist notwendig, dass sich das Jahr und auch der Monat nach dem Systemjahr bzw Systemmonat ggf verändert und mit Beginn eines neuen Monats mit der Nummer 0001 wieder begonnen wird.
Makro oder kein Makro - das ist die Frage
Wer kann helfen
Dazu hab ich mal noch folgende Fragen:
unter welcher Bedingung verändern sich denn die letzten 4 Ziffern? Steht die fortlaufende Nummer immer in Zelle L11?
Die ersten 6 Stellen sind zumindest schon mal so hinzubekommen (abhängig vom aktuellen Tagesdatum):
=JAHR(L9)&WENN(ODER(MONAT(L9)=10;MONAT(L9)=11;MONAT(L9)=12);MONAT(L9);„0“&MONAT(L9))
Grüße,
Kerstin
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Die ersten 6 Stellen sind zumindest schon mal so hinzubekommen
(abhängig vom aktuellen Tagesdatum):
=JAHR(L9)&WENN(ODER(MONAT(L9)=10;MONAT(L9)=11;MONAT(L9)=12);MONAT(L9);„0“&MONAT(L9))
Hi Kerstin,
=JAHR(L9)&RECHTS(„0“&MONAT(L9);2)
Gruß
Reinhard
wo laufen sie denn hin? *g
folgende Frage:
habe in Zelle L9 das aktuelle Datum hionter legt
möchte jetzt in Zelle L11 eine laufende Nummer vergeben
Der Aufbau sollte folgendermaßen sein:
die ersten 4 Stelle das Jahr (2005)
die nächsten beiden Ziffern der Monat (01)
die letzten vier Ziffern fortlaufend von 0001 an
Hierbei ist notwendig, dass sich das Jahr und auch der Monat
nach dem Systemjahr bzw Systemmonat ggf verändert und mit
Beginn eines neuen Monats mit der Nummer 0001 wieder begonnen
wird.
Hi Bernd,
wie stellst du dir das fortlaufend vor? Innerhalb eines Tabellenblattes, automatisch bei jedem neu hinzugefügtem Tabelelnblatt, automatisch bei Öffnung einer Vorlage für die neue Mappe?
Gruß
Reinhard
Hallo Bernd,
da die fortlaufende Nummer immer in Zelle L11 berechnet werden soll, geht es nur per Makro.
Folgendes an einen Makro-Button in der Tabelle gebundene Makro löst diese Aufgabe.
Private Sub CommandButton1\_Click()
Dim NummerNeu As String, NummerAlt As String, MonatAlt As String, MonatNeu As String
Test = MsgBox("Soll neue Nummer berechnet werden?", vbOKCancel, "Nächste Serien-Nummer")
If Test = vbCancel Then Exit Sub
NummerAlt = Range("L11").Value
Datum = Range("L9").Value
MonatAlt = Mid(NummerAlt, 5, 2)
MonatNeu = Format(Month(Datum), "00")
If MonatNeu = MonatAlt Then
NummerNeu = Left(NummerAlt, 6) & Format(Val(Right(NummerAlt, 4)) + 1, "0000")
Else
NummerNeu = Year(Datum) & Format(Month(Datum), "00") & "0001"
End If
Range("L11").Value = NummerNeu
End Sub
Gruß
Franz
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hallo Kerstin und Reinhard,
oder auch
=JAHR(L9)&TEXT(MONAT(L9);"00")
Gruß
Franz
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hallo Kerstin und Reinhard,
dies scheint die kürzeste und eleganteste Methode zu sein
=TEXT(L9;"JJJJMM")
Gruß
Franz
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]