tägliche aufsteigende Nummerierung

[Simon_Woerle]

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)

[RPP63]

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

[RPP63]

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 Sub

[Simon_Woerle]

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.

[steve1da]

Zur Info, geht jetzt hier weiter:
https://www.ms-office-forum.net/forum/sh...p?t=385834