Täglich fortlaufende Nummer in einer Zelle

Question

Hallo
ich habe folgendes Problem: ich möchte täglich eine fortlaufende Nummerierung in einer Zelle. Beginn der Nummerierung wenn eine Nachbarzelle "gefüllt" wird (d.h. dort eine Eintragung erfolgt), Ende der Nummerierung wenn diese Zelle wieder leer ist.
Würde mich sehr freunen, wenn mir jemand helfen könnte !
Viele Grüße Will

Answer 1

Hallo Will,
dein Problem habe ich nicht ganz verstanden.

ich möchte täglich eine fortlaufende

Wie soll das täglich mit eingebunden werden?

Mit VBA mal ein Beispiel:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim RaBereich As Range, RaZelle As Range
Set RaBereich = Range("B1:B1000")
Application.EnableEvents = False
For Each RaZelle In Range(Target.Address)
If Not Intersect(RaZelle, RaBereich) Is Nothing Then RaZelle.Offset(0, -1) = RaZelle.Offset(0, -1) + 1
If RaZelle.Offset(0, 0) = "" Then RaZelle.Offset(0, -1) = ""
Next RaZelle
Application.EnableEvents = True
Set RaBereich = Nothing
End Sub

Gruß
fedjo

Answer 2

Hallo Fedjo
vielen Dank für die Hilfe; bin leider Anfänger, mit VBA kenn ich mich nicht aus
Ich möchte nur, dass die Nummerierung einer Zelle beginnend mit 1 automatisch am nächsten Tag 2, am übernächsten Tag 3,.....usw zeigt.
Wenn in einer bestimmten Nachbarzelle etwas eingetragen wird soll die Nummerierung beginnen, wenn das Eingetragene dort gelöscht wird enden.
gr. Will

Answer 3

Hallo Will,
hab dir mal ein Muster erstellt.

Makro aktivieren
A1 wird beim öffen immer das Datum eingetragen
und gleich gespeichert.
Ist Datum gleich Heute, dann wird die Zahl in B1 erhöht, und bei jeden Eintrag oder Änderung in C1.
Wird C1 gelöscht, wird B1 auch leer, oder nicht?

Zellen ändern?
Tasten (Alt + F11) drücken.
"Diese Arbeitsmappe"
"Tabelle1"



Gruß
fedjo

Answer 4

Hallo fedjo
hat super geklappt !
Vielen herzlichen Dank
Will