Office: Zelle zum Jahreswechsel automatisch nullen

Hallo, habe eine Zelle ( Zähler ), welcher zur Kundennummernvergabe dient. Wie schaffe ich es, dass sich diese Zelle bei Jahreswechsel automatisch nullt?

Gruß
Timi

 

Hallo!

Steht in der Zelle eine Formel oder nur ein Wert?

 

Hallo!

Der Aufwand, diese Zelle am 1. Januar händisch zu nullen, dürfte sich in Grenzen halten... :-D

Ansonsten kommt es darauf an, wie diese Zelle gefüllt wird.
Wenn es per VBA passiert, dann mit einer Abfrage, die das aktuelle Datum mit dem Datum des Vortags vergleicht:

If Year(Date) <> Year(Date - 1) Then Zelle = 0

 

Wäre dies auch per Formel möglich?

 

Hallo!

=WENN(JAHR(HEUTE())<>JAHR(HEUTE()-1);0;"was anderes")

 

Danke, hilft in einer Hinsicht schon weiter! Hätte auch selbst drauf kommen können! Ich Dummerchen! Manchmal sieht man vor lauter Wald die Bäume nicht.

Habe noch eine Frage und auch gleich eine Kurzform-Datei angehängt.

Gruß Timi

 

Hallo!

Mit einem VBA-Zeitstempel und einigen Hilfsspalten mit Formeln habe ich es (hoffentlich) hinbekommen.
Probleme gibt es allerdings, wenn Kunden wieder gelöscht werden.
Da ich nicht weiß, was diese besch... Datenmaske dann wirklich macht, habe ich dafür auch keine Lösung.

Ich möchte auch nochmal darauf hinweisen, dass Excel eine Tabellenkalkulation ist und keine Datenbank!
Solltest du also noch am Anfang der Anlegung stehen, dann solltest du dir verstärkt Gedanken über einen Wechsel zu Access machen.
Dort sind solche Aufgaben wesentlich komfortabler zu erledigen.

 

Hallo,
könntest Du " Kleines Beispiel " nochmals checken?
Beim neuen Kunden wird die 2008 nicht mitverkettet.
Gruß Timi

PS: Werde mir mal Gedanken betr. Access machen. Betr. Deiner Frage:
Kunden lösche ich nicht. Die bleiben drin, bis Excel anfängt zu kochen und mein Prozessor ins Grab hüpft! :lol:

 

Hallo!

Doch, aber leider erst, wenn du irgendeine manuelle Änderung im Blatt vornimmst, z.B. eine "1" in A1 schreibst, oder eine leere Zelle löschst.
Das Eintragen von Datensätzen über diese unsägliche Maske scheint noch nicht einmal ein Ereignis auszulösen...

 

Beim neuen Kunden wird die 2008 nicht mitverkettet.

Hallo,
das kleine Beispiel, welches ich Dir geschickt hatte, musste ich natürlich in meine Haupt-Datei einfügen.
Jetzt stelle ich fest, dass sich diese " 2008 " in einer ganz anderen Spalte auftut.
Meine verketteten Lieferanten-/Klienten-Nummern stehen in Spalte "U".
Die " 2008 " erscheint ganz frech in Spalte "AB", obwohl diese " 2008 " in "S" gehört!

Du scheinst diese Maske nicht zu mögen, höre ich aus Deinen Aussagen heraus. Könnte mir auch 'ne Userform zurechthämmern, doch die Maske ist halt mal da, machen wir's Beste draus!

Bist Du Dir zudem sicher, dass beim Jahreswechsel auch nur die Nummern ab Zeitpunkt des Wechsels sich verändern und nicht alle in der Spalte? - Nur zur Sicherheit!

Gruß Timi

 

Hallo!

Ja, das war wohl auch kaum zu überhören...
Im neuen Excel 2007 ist diese Funktion auch nicht mehr über die "normale" Struktur erreichbar; man muss sich den Button dafür manuell in die sogenannte Schnellstartleiste ziehen.
Kein gutes Zeichen, falls du längerfristig damit arbeiten möchtet...

Das hielte ich für äußerst sinnvoll!

Das Makro checkt nach Einträgen in der Nachnamen-Spalte (K)

Code:

For Each Zelle In Range("K2:K1000")

und trägt bei Bedarf das Jahr 5 Spalten weiter rechts ein.

Code:

Then Zelle.Offset(0, 5) = Year(Date)

Ja, ziemlich sicher! :-?
Aber da ich zu faul bin, mein Systemdatum zu Testzwecken auf 2009 umzustellen, überlasse ich diese Aufgabe dir...

 

PS: Müsste der Thread-Titel nicht eigentlich so heißen?

"Zelle zum Jahreswechsel automatisch einsen"

 

"Zelle zum Jahreswechsel automatisch einsen"

Der war nicht schlecht! RESPEKT!

"Einsen" hört sich aber nicht so gut an; daher "nullen". :lol:
Im Prinzip ist es jedoch "einsen".

Was hat das jedoch noch mit dieser Spalte A auf sich. Es stimmt, dass sich diese " 2008 " erst herstellt, wenn in Spalte A eine Zahl eingetragen wird.
Könnte dies durch ein Makro lösen, welches eine Zahl irgendwo in Spalte A reinschreibt und gleich wieder löscht.
Wäre dies sinnvoll odr gibt es Alternativen?

PS: Letzte Antwort war supergut erklärt!

Gruß Timi

 

Hallo!

Das Problem ist, dass das Makro offensichtlich nicht durch das Hinzufügen eines Datensatzes ausgelöst wird, obwohl ja eindeutig eine Änderung des Blatts vorgenommen wird und das ist ja der Sinn und Zweck eines "Worksheet_Change"-Ereignisses...
Es scheint ÜBERHAUPT KEIN Ereignis ausgelöst zu werden!

Die von dir angesprochene Änderung muss nicht in Spalte A erfolgen, sondern kann irgendwo stattfinden. Es reicht, wenn du auf (irgend-)einer leeren Zelle die "Entf"-Taste drückst.

Was Besseres fällt mir momentan echt nicht ein...

Du könntest zwar das Worksheet_Change in ein Worksheet_SelectionChange ändern, aber das wiederum würde bedeuten, dass das Makro bei jedem Zellwechsel ausgeführt wird und das wiederum könnte deine Tabelle ziemlich ausbremsen, wenn sie irgendwann einige Tausend Einträge enthält.
Dann bräuchtest du keine Zelle zu füllen oder zu löschen, sondern nur irgendeine neue Zelle auswählen.
Aber wie gesagt: geschwindigkeitsmäßig bedenklich...

 

Hab' das Ganze mit einem:
Schuß:

Range("B4").Select
Selection.ClearContents

verfeinert / garniert; mit etwas Sprühsahne auf dem Monitor abgerundet; und es sieht gut aus und funktioniert tadellos!

Wie gesagt, super Erläuterung Deinerseits.
Wo lernt man / Frau sowas? Eigenregie? Kurse? Bücher?
Was wäre Deinerseits zu empfehlen?
Fühle mich zwar hier sehr gut aufgehoben, möchte Euch jedoch auch nicht zu sehr auf die Nerven gehen!

Gruß Timi