Office: (Office 2007) Datumsprüfung und dann wert in Zelle löschen!

Hallo

Habe folgendes Problem

In der Spalte A habe ich den Namen. In B auch Daten und von C bis AI sind auch noch mal daten vorhanden.

In Spalte AH steht ein Datum. Nun möchte ich es so haben das er mir an dem Angegebenem Datum die Daten löscht die sich in der Zeile befinden!

Wie bekomme ich das hin, denn so würde ich mir das Manuelle löschen und vergleichen der Daten sparen können was eine unheimliche Arbeitserleichterung wäre

Über hilfe und rat würde ich mich freuen!

:)

 

Hi,
test mal das hier (Sicherheitskopie!!):
Code:

Das Datum das gelöscht werden soll muss in AJ1 stehen. Das kann man natürlich anpassen. Sag wie, und ich werde es versuchen

 

Also das Datum würde in Spalte AH stehen von Zeile 6 bis 122 in etwa, wobei die Zeilen natürlich mehr oder weniger werden!

Das ganze müsste ich auf verschiedenen Arbeitsblättern ( Januar09, Februar09, ... Dezember09) ausführen, so das wenn im April die Daten gelöscht werden, dann natürlich die Daten im Januar Arbeitsblatt aber noch vorhanden sind.

Ich versuche mal eine Grafik dazu Hoch zu laden!

Januar 09

	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q	R	S	T	U	V	W	X	Y	Z	AA	AB	AC	AD	AE	AF	AG	AH	AI
1
2
3
4			Tag																																Personal Gesamt heute:
5	Name	Stufe	1	2	3	4	5	6	7	8	9	10	11	12	13	14	15	16	17	18	19	20	21	22	23	24	25	26	27	28	29	30	31	Datum
6	Mustermann	6					X	X	X	X	X																							01.03.09	0
7	Schreiben	6					X	X	X	X	X																							31.04.09
8	Mirdochegal	6					X																											28.02.10
9	Gutdrauf	6					U	U	U	U	SU																							13.03.09
10	Langweilig	6							X	X	X																							14.07.09
11	Weissnichtmehr	6							X																									01.03.10
12	Dümmer	6							X		X																							01.03.10
13	Schreier	6							X	X	X																							31.04.10

Zelle	Formel
AI6	=INDEX(126:126;1;TAG(HEUTE())+3)

Excel Tabellen im Web darstellen >>

 

Sodele ich habe das Makro mal probiert.

Also die Zeile löscht er vollständig, das war nicht das was ich wollte, sondern eigentlich nur den INHALT der Zeile.

Desweiteren sollte das automatisch passieren, das ging auch nicht so richtig musste dies auch Manuell machen, also Makro ausführen.

Sorry bin ein VBA NOOB gestehe ich auch und bin gerade erst mal angefangen mich mal in VBA ein wenig ein zu lesen damit ich überhaupt mal folgen kann!

 

Hi,
wenn nur der Inhalt gelöscht werden soll denn so:
.....
If Cells(L, 34).Value = datLoeschDatum Then _
Cells(L, 34).EntireRow.ClearContents
.....
Dazu wäre das Rückwärtsdurchlaufen der Schleif zwar nich nötig, aber es stört auch nicht (STEP -1).
Was mir nicht klar ist: WO steht das Datum (Kriterium) das angibt, welche Zeilen gelöscht werden sollen? Mir scheint da "reden wir aneinander vorbei", ich weiß aber nicht wie?

 

Also
wie du siehst habe ich in Spalte AH ein DATUM stehen, und wenn DAS DATUM WAS DORT STEHT erreicht ist, möchte ich das der Zellinhalt NICHT mehr da steht.

Angenommen dort steht der 28.02.2009 dann möchte ich das auf dem Tabellenblatt für März also ab 01.03.2009 der Inhalt dieser Zelle dort nicht mehr vorhanden ist, sprich gelöscht.

Ich hoffe du hast jetzt verstanden was ich meine.


Als erklärung geht es darum, das das Personal ab diesem Datum nicht mehr zu verfügung steht und somit auch nicht mehr in einer Anwesenheitsliste geführt werden muss.

Aber soweit funktioniert das schon, der ZEILENINHALT wird jetzt gelöscht, nun wäre es noch schön wenn das automatisch passieren würde, also ich das makro nicht erst starten muss.

 

Hi,
ok, das "Zauberwort" war "erreicht ist". Bis jetzt war nicht klar, dass das AKTUELLE Datum eine Rolle spielt. Also:
Das sieht dann anders aus.
Du musst diesen Code nicht ein allgemeines Modul einfügen, sondern in das Klassenmodul des Arbeitsblattes. Dazu brauchst Du nur im VBA Editor im Projektfenster auf Diese Arbeitsmappe (natürlich bei der richtigen Datei (VBA Project (richtige_Datei)) doppelklicken.
In dem Fenster das dann aufgeht [Diese Arbeitsmappe (Code)] fügst Du dann diesen Code ein:
Code:

Der Code wird jedesmal ausgeführt, wenn ein Blatt aktiviert wird!!!
Er löscht den Inhalt jeder Zeile, in der das Datum, das in der Spalte AH steht älter als das aktuelle Datum ist.
Bitte teste das ausführlich und mach auf jedenfall vorher Sicherheitskopien ohne Makro, oder mit deaktivierten Makros. Ich übernehem keine Garantie für Datenverluste (:-).
Ich hoffe ich habe Dich jetzt richtig verstanden und mein Code funktioniert so wie Du es Dir vorgestellt hast.

 

Also ich habe das jetzt mal probiert und im VBA Editor

in DieseArbeitsmappe unter Workbook eingefügt, gespeichert und ausprobiert,

aber leider muss ich sagen das nichts passiert smile.

Habe das datum auch von hand geändert und gehen tut es nicht.

Habe mal das bild angehängt

 

Hi,
also eingefügt ist der Code wohl richtig.
Ich gehe auch davon aus dass die Makros in Deiner Datei aktiviert sind!?
Wenn das der Fall ist sollte folgender Test eigentlich klappen:
Trage in einerm Blatt der Datei in z.B. Zelle AH7 das Datum 1.1.2009 ein.
trage in AF7 und AG7 irgendetwas ein (sdfjasödl).
Jetzt aktiviere ein anderes Blatt (klick auf einen anderen Reiter) und dann wieder das Blatt mit den Einträgen. Die müssten jetzt gelöscht sein.
Wenn das nicht klappt, lade am besten mal Deine Datei (evtl. abgespeckt und anonymisiert) hoch, dann schau ich mir das mal an.
(übrigens, falls Du eine ander Spalte ansprechen willst: die 34 sagt aus das die 34. Spalte, das ist AH geprüft werden soll).

 

Jop danke

der fehler lag darin das ich kein neues Blatt aktiviert hatte *wink.gif* sondern auf dem Blatt geblieben bin!

Was nun aber das Problem ist das er die Daten aus der aktuellen Liste löscht.

Zur erklärung.

Ich habe als Arbeitsblätter Januar bis Dezember
Das ganze ist eine Anwesenheitsliste, und wenn nun bei einer Person das Datum steht 28.02.2009 möchte ich es so haben das diese Person dann ab dem 01.03.2009 also ab dem März Arbeitsblatt nicht mehr erscheint aber auf dem Januar und Februar Blatt vorhanden bleibt.

Frage noch dazu was muss ich an dem Script ändern damit davon die Komplette Spalte AH betroffen ist und nicht nur ab AH Zelle7 da bin ich gerade ein wenig irritiert!Sorry habe es schon gefunde die 6 dementsprechend ändern!

Ich hoffe du kannst mir folgen.

So wie es jetzt ist wird die Person ja auch von den vorherigen Blättern gelöscht, da die Daten aber aufbewahrt werden müssen wäre das Fatal wenn dann die Person auch im Januar und Februar gelöscht werden würde du verstehst

 

Hi,
ok, jetzt bin ich ziemlich sicher, dass ich es kapiert habe. Am einfachsten wäre es, wenn Du in jedem Blatt in einer bestimmten Zelle das Datum des Ersten des jeweiligen Monats stehen hättest. Entweder in einer versteckten Zelle zusätzlich, oder Du schreibst es in der Überschrift, die ja sicherlich vorhanden ist, in eine einzelne Zelle (also zum Beispiel 01.03.09) und Formatierst die Zelle entsprechend. Also z.B.:
Format: MMMM______________________Zelle:März
Format: MMMM JJJJ__________________Zelle: März 2009
Format: "Übersicht für" MMMM JJJJ_____Zelle:Übersicht für März 2009
Auf diese Zelle würde ich mich dann im Code beziehen. Im Folgenden Code habe ich mal angenommen es wäre F7. Das kannst Du einfach anpassen:
Code:

Der Code gehört, wie vorhe ins Klassenmodul des Arbeitsblattes. Was passiert ist Folgendes:
Sowohl wenn die Datei geöffnet wird (Private Sub Workbook_Open()), als auch wenn das Blatt gewechselt wird (Private Sub Workbook_SheetActivate(ByVal Sh As Object), werden ALLE Blätter der Datei durchsucht, ob in AH Datümer stehen, die vor dem Datum in Zelle F7 in dem jeweiligen Blatt liegen und die Zeilen werden geleert.
Es wäre auch möglich den Code laufen zu lassen, sobalt in bestimmten Zellen des Blattes etwas geändert wird. Das müsstest Du noch überlegen. Du kannst auch eins der beiden Subs löschen, wenn Du möchtest.
Teste mal ausgiebig (Sicherheitskopie) und schreib ob's klappt.

 

Muss das unbedingt in einer Zelle sein mit dem Datum?

Ansonsten würde ich nämlich in der Zelle H2 dann März 2009 rein machen wenn das auch funktionieren würde das könnte ich dann Quasi unauffällig mit der Überschrift Tarnen so zu Sagen

dann würde ganz oben stehen Tagestärke und dann eine Zeile Tiefer eben März 2009 bzw dementsprechend für den Monat, wo das Arbeitsblatt ist, desweiteren ist jedes Arbeitsblatt ja auch mit dem Monatsnamen versehen also Januar09 Februar09 usw.

 

Hi,
lies Dir noch mal genau meinen Vorschlag mit der Formatierung durch.
Wenn Du in H2 reinschreibst:
01.01.09
und diese Zelle dann über Format/ Zellen /benutzerdefinierte Formatierung so formatierst:
MMMM JJJJ
dann steht in dieser Zelle:
März 2009
und ich kann die Zelle im Code ansprechen. Es ginge NOTFALLS auch über die Blattnamen, wäre aber aufwendiger und nicht so sicher.
Bis gleich (:-)

 

So hier bekommst du nun mal die Tabellen das du siehst ob das jetzt so ist wie du meinst.

Bei N1 befindet sich nun Quasi die Formatierung von dem Datum "Januar 2009"
Das wäre das Januar Tabellenblatt, und das andere wäre das Februar Tabellenblatt


Januar 09

	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q	R	S	T	U	V	W	X	Y	Z	AA	AB	AC	AD	AE	AF	AG	AH	AI
1				Tagesstärke										Januar 2009
2			Tag																																Personal Gesamt heute:
3	Name	Stufe	1	2	3	4	5	6	7	8	9	10	11	12	13	14	15	16	17	18	19	20	21	22	23	24	25	26	27	28	29	30	31	Datum
4
5	Schreiben	6					X	X	X	X	X																							31.04.09
6	Mirdochegal	6					X																											28.02.10
7	Gutdrauf	6					U	U	U	U	SU																							13.03.09
8	Langweilig	6					5	5	5																									14.07.09
9	Weissnichtmehr	6							X																									01.03.10
10	Dümmer	6							X		X																							01.03.10
11	Schreier	6							X	X	X																							31.04.10

Excel Tabellen im Web darstellen >>

 

Das ist das Andere Tabellenblatt *wink.gif*



Februar 09

	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q	R	S	T	U	V	W	X	Y	Z	AA	AB	AC	AD	AE	AF	AG	AH	AI	AJ	AK
1				Tagesstärke										Februar 2009
2			Tag																																Personal Gesamt heute:
3	Name	Stufe	1	2	3	4	5	6	7	8	9	10	11	12	13	14	15	16	17	18	19	20	21	22	23	24	25	26	27	28	29	30	31	Datum
4
5	Schreiben	6					X	X	X	X	X																							31.04.09
6
7	Gutdrauf	6					U	U	U	U	SU																							13.03.09
8
9	Weissnichtmehr	6							X																									01.03.10
10	Dümmer	6							X		X																							01.03.10
11	Schreier	6							X	X	X																							31.04.10

Excel Tabellen im Web darstellen >>