Zelle zum Jahreswechsel automatisch nullen :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

[Excel 2002] Zelle zum Jahreswechsel automatisch nullen

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Gehe zu Seite 1, 2 Weiter

Autor

Nachricht

timi
Besserwisser

Anmeldedatum: 12.03.2008
Beiträge: 56
Wohnort: 67742 Lauterecken

Verfasst am: 08.05.2008, 13:47

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

Gruß
Timi

gook
Schlauberger

Anmeldedatum: 25.11.2007
Beiträge: 209
Wohnort: Fridingen an der Donau

Verfasst am: 08.05.2008, 13:54

Hallo!

Steht in der Zelle eine Formel oder nur ein Wert?

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 4431

Verfasst am: 08.05.2008, 13:55

Hallo!

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

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

_________________

Viele Grüße vom Schatzi
------------------------
Bitte nimm dir die Zeit für eine (kurze) Rückmeldung, ob dir mein Beitrag geholfen hat oder nicht.
Andere User, die das gleiche (oder ein ähnliches) Problem haben, werden dir dankbar sein.

timi
Besserwisser

Anmeldedatum: 12.03.2008
Beiträge: 56
Wohnort: 67742 Lauterecken

Verfasst am: 08.05.2008, 14:05

Wäre dies auch per Formel möglich?

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 4431

Verfasst am: 08.05.2008, 14:11

Hallo!

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

timi
Besserwisser

Anmeldedatum: 12.03.2008
Beiträge: 56
Wohnort: 67742 Lauterecken

Verfasst am: 08.05.2008, 14:40

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

Kleines Beispiel eines weiteren Problems.xls

Beschreibung:

Download

Dateiname:

Kleines Beispiel eines weiteren Problems.xls

Dateigröße:

28.5 KB

Heruntergeladen:

11 mal

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 4431

Verfasst am: 08.05.2008, 15:38

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.

Kleines Beispiel eines weiteren Problems-1.xls

Beschreibung:

Download

Dateiname:

Kleines Beispiel eines weiteren Problems-1.xls

Dateigröße:

35.5 KB

Heruntergeladen:

10 mal

timi
Besserwisser

Anmeldedatum: 12.03.2008
Beiträge: 56
Wohnort: 67742 Lauterecken

Verfasst am: 08.05.2008, 17:35

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! Laughing

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 4431

Verfasst am: 08.05.2008, 17:42

Hallo!

Zitat:

Beim neuen Kunden wird die 2008 nicht mitverkettet.

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...

timi
Besserwisser

Anmeldedatum: 12.03.2008
Beiträge: 56
Wohnort: 67742 Lauterecken

Verfasst am: 08.05.2008, 22:26

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

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 4431

Verfasst am: 08.05.2008, 22:44

Hallo!

Zitat:

Du scheinst diese Maske nicht zu mögen, höre ich aus Deinen Aussagen heraus.

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...

Zitat:

Könnte mir auch 'ne Userform zurechthämmern

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)

Zitat:

Bist Du Dir zudem sicher, dass beim Jahreswechsel ...

Ja, ziemlich sicher! Confused

Aber da ich zu faul bin, mein Systemdatum zu Testzwecken auf 2009 umzustellen, überlasse ich diese Aufgabe dir... Razz

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 4431

Verfasst am: 08.05.2008, 22:52

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

"Zelle zum Jahreswechsel automatisch einsen"

timi
Besserwisser

Anmeldedatum: 12.03.2008
Beiträge: 56
Wohnort: 67742 Lauterecken

Verfasst am: 08.05.2008, 23:05

Der war nicht schlecht! RESPEKT!

"Einsen" hört sich aber nicht so gut an; daher "nullen". Laughing

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

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 4431

Verfasst am: 08.05.2008, 23:20

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...

timi
Besserwisser

Anmeldedatum: 12.03.2008
Beiträge: 56
Wohnort: 67742 Lauterecken

Verfasst am: 08.05.2008, 23:33

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

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Gehe zu Seite 1, 2 Weiter

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	3fache WENN-Funktion der gleichen Zel...	aGreZZor	Microsoft Excel Hilfe	2	03.05.2008, 16:43
	Zeillenumbruch in Zelle aufloesen	leMatze	Microsoft Excel Hilfe	1	02.05.2008, 17:59
	Querverweise automatisch aktualisieren	kot69	Microsoft Word Hilfe	1	30.04.2008, 13:09
	Leere Zelle soll nicht null werden - ...	ratfish	Microsoft Excel Hilfe	2	28.04.2008, 18:49
	Bedingte Formatierung; Zelle enthält ...	egonszepoks	Microsoft Excel Hilfe	2	25.04.2008, 14:11

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de