+- Office-Fragen.de (https://office-fragen.de)
+-- Forum: Microsoft Office (https://office-fragen.de/forum-1.html)
+--- Forum: Excel (https://office-fragen.de/forum-2.html)
+--- Thema: tägliche aufsteigende Nummerierung (/thread-28801.html)
tägliche aufsteigende Nummerierung - Simon_Woerle - 26.05.2023
Servus, ich hätte eine Frage.
Ist es möglich eine aufsteigende Nummerierung einzustellen, die sobald man einen Makro (Button) auslöst (drückt) aufsteigend höher geht. (z.b. aktuelle Nummer "23" -> Makro wird ausgelöst -> Nummer wird zu "24"). Die Nummerierung sollte jedoch zum Tageswechseln (00:00 Uhr) automatisch wieder auf Nummer "1" zurückspringen. (also eine tägliche aufsteigende Nummerierung)
RE: tägliche aufsteigende Nummerierung - RPP63 - 27.05.2023
Moin!
Ja, das ist möglich.
Nur wozu?
Ist es denn so schwierig, ohne Rechnerunterstützung hochzuzählen?
Du wirst ja sicherlich eine Spalte mit Datum haben.
Dann musst Du prüfen, ob Date > MAX(Datumsspalte ist)
Falls ja: Nummer = 1
Falls nein: neue Nummer = letzte Nummer + 1
Beispieldatei?
Gruß Ralf
RE: tägliche aufsteigende Nummerierung - RPP63 - 27.05.2023
Mal eine Lösung vorweg.
Du brauchst in jedem Fall ein Journal.
Bei mir ist das Tabelle 1
A1: DateTime
B1: Nummer
Code:
Sub Eins_Hoch()
Dim letzteZeile&
With Tabelle1
letzteZeile = .Cells(.Rows.Count, 1).End(xlUp).Row
If Date > WorksheetFunction.Max(.Columns(1)) Then
.Cells(letzteZeile + 1, 2) = 1
Else
.Cells(letzteZeile + 1, 2) = .Cells(letzteZeile, 2) + 1
End If
.Cells(letzteZeile + 1, 1) = Now
End With
End SubRE: tägliche aufsteigende Nummerierung - Simon_Woerle - 28.05.2023
Danke für deine Rückmeldung.
Tatsächlich kenn ich mich leider nur sehr schlecht mit Makros etc. aus.
Ich lese mich seit letzter Woche immer mehr in die Thematik ein.
Ich hab im Anhang mal die Darstellung geschickt, damit man es nicht besser vorstellen kann.
So nun zum Thema.
Sobald die Eingegebenen Daten gebucht werden, werden alle Daten über ein Makro in den Reiter "Arbeitsvorrat" automatisch eingebucht und entsprechend umgeschrieben, jedoch wurde ich gerne wie beschrieben pro Buchung eine aufsteigende Nummerierung einfügen in der Spalte "F".
Diese soll wie beschrieben zum Tageswechsel wieder neu anfangen.
Wie kann ich daher den Makro wie beschrieben einbringen, damit dieser in der Spalte "F" die aufsteigende Nummerierung einbringt.
Vielen Dank nochmals für die Hilfe.
RE: tägliche aufsteigende Nummerierung - steve1da - 29.05.2023
Zur Info, geht jetzt hier weiter:
https://www.ms-office-forum.net/forum/showthread.php?t=385834