Bestimmte Zellen automatisch täglich leeren wie? :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

[Excel 2007] Bestimmte Zellen automatisch täglich leeren wie?

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

Autor

Nachricht

matze54321
Newbie
Newbie

Anmeldedatum: 28.05.2008
Beiträge: 23

Verfasst am: 28.05.2008, 17:24

Hallo,

bin neu hier und bitte um Hilfe.
Habe ein kleines Problem und zwar habe ich mir mit Excel 2007 eine bestellliste erstellt. Alles wunderbar aber ich habe einige Zellen die automatisch am nächsten Tag wieder leer sein sollen. Habe schon ein Makro aufgenommen das funktioniert ja wohl aber wie kann ich es einstellen das das automatisch am nächten tag wieder leer ist?

Über Hilfe würde ich mich sehr freuen
Very Happy

MFG

matze

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5520

Verfasst am: 28.05.2008, 17:46

Hallo!

Dazu müsstest du einmalig(!) das aktuelle Datum in irgendeine Zelle schreiben, z.B. Z1.
Danach kommt es darauf an, wann und wie die Datumsabfrage erfolgen soll:
- Beim Öffnen der Mappe?
- Bei irgendeiner Änderung in der Mappe (weil z.B. mitternachtsübergreifend an der Mappe gearbeitet wird)?

Wenn du z.B. diesen Code ins Modul "DieseArbeitsmappe" packst, dann wird jeweils beim Öffnen der Mappe geprüft:

Code:

Private Sub Workbook_Open()
'Blattnamen bitte anpassen
With Sheets("Tabelle1")
'Das Datum in Z1 wird geprüft:
If .Range("Z1") < Date Then
'Die Inhalte der Bereiche A10:A20 und B20:B40 werden gelöscht:
.Range("A10:A20", "B20:B40").ClearContents
'Das Datum in Z1 wird aktualisiert:
.Range("Z1") = Date
End If
End With
End Sub

_________________

Viele Grüße vom Schatzi
------------------------
Dies ist meine Signatur und sie trägt eigentlich nichts zur Lösung deines Problems bei. Sollte sie es dennoch tun, dann bist du definitiv im falschen Forum...

Ein Feedback zum ursprünglichen Problem wäre trotzdem nett!
Windows XP, Office2000, Office2007

matze54321
Newbie
Newbie

Anmeldedatum: 28.05.2008
Beiträge: 23

Verfasst am: 28.05.2008, 18:48

Super Danke nich schlecht.

Ein Problem gibts noch. Ich habe angegeben A7:A46 u. E7:E46
Er hat aber B7:B46 auch gelöscht. Hab das so kopiert aber er macht das trotzdem

Hier zum vergleich

Private Sub Workbook_Open()
'Blattnamen bitte anpassen
With Sheets("Intensiv")
'Das Datum in I1 wird geprüft:
If .Range("I1") < Date Then
'Die Inhalte der Bereiche A10:A20 und B20:B40 werden gelöscht:
.Range("A7:A46", "e7:e47").ClearContents
'Das Datum in I1 wird aktualisiert:
.Range("I1") = Date
End If
End With
End Sub

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5520

Verfasst am: 28.05.2008, 18:57

Hallo!

Sorry, da waren ein paar Gänsefüßchen zuviel...

So muss es heißen:
.Range("A7:A46,E7:E47").ClearContents

Ein Feedback zum ursprünglichen Problem wäre trotzdem nett!
Windows XP, Office2000, Office2007

matze54321
Newbie
Newbie

Anmeldedatum: 28.05.2008
Beiträge: 23

Verfasst am: 28.05.2008, 19:27

Hallo,

hab das jetz so:

Private Sub Workbook_Open()
'Blattnamen bitte anpassen
With Sheets("Tabelle1")
'Das Datum in Z1 wird geprüft:
If .Range("I1") < Date Then
'Die Inhalte der Bereiche A10:A20 und B20:B40 werden gelöscht:
.Range("A7:A46,E7:E46").ClearContents
'Das Datum in Z1 wird aktualisiert:
.Range("I1") = Date
End If
End With
End Sub

Jetz macht er nichts mehr, löscht nichts, meldet aber auch keinen fehler.

Hänge die Datei mal in Anhang, wenn du möchtest kannst ja mal rein gucken ob du den fehler findest. Die Stückzahlen sollen einfach immer täglich an jedem neuen tag gelöscht werden

danke im voraus

Zuletzt bearbeitet von matze54321 am 28.05.2008, 19:43, insgesamt einmal bearbeitet

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5520

Verfasst am: 28.05.2008, 19:38

Hallo!

Momentan kann auch nichts passieren, da in I1 ja das heutige Datum steht...
Lösche mal die Formel in I1 und trage per Hand das gestrige Datum ein.
Speichere die Datei und öffne sie wieder: Et voilà!

Wie schon gesagt: Das Datum brauchst du nur einmalig(!) einzutragen; danach wird es ja bei Tageswechsel vom Code eingetragen:
.Range("I1") = Date

Ein Feedback zum ursprünglichen Problem wäre trotzdem nett!
Windows XP, Office2000, Office2007

matze54321
Newbie
Newbie

Anmeldedatum: 28.05.2008
Beiträge: 23

Verfasst am: 28.05.2008, 19:43

Alles klar, denkfehler meinerseits. Super danke funktioniert.

Schnelle und kompetente Hilfe Very Happy

So muss es sein Mr. Green

matze54321
Newbie
Newbie

Anmeldedatum: 28.05.2008
Beiträge: 23

Verfasst am: 04.06.2008, 17:12

Hallo,

kann man das den auch so machen das das erst ab 10 Uhr geleert wird?

Danke im voraus!!

MFG

M.Vorwerk

gook
Schlauberger

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

Verfasst am: 04.06.2008, 18:40

Hallo!

Den Code in die Arbeitsmappe

Code:

Private Sub Workbook_Open()
If Time > TimeValue("10:00:00") Then
Call leeren
Else
Application.OnTime TimeValue("10:00:00"), "leeren"
End If
End Sub

Dann den in ein normales Modul

Code:

Sub leeren
'Blattnamen bitte anpassen
With Sheets("Tabelle1")
'Das Datum in Z1 wird geprüft:
If .Range("Z1") < Date Then
'Die Inhalte der Bereiche A10:A20 und B20:B40 werden gelöscht:
.Range("A10:A20, B20:B40").ClearContents
'Das Datum in Z1 wird aktualisiert:
.Range("Z1") = Date
End If
End With
End Sub

Gruß

matze54321
Newbie
Newbie

Anmeldedatum: 28.05.2008
Beiträge: 23

Verfasst am: 10.06.2008, 16:20

dann sagt vba

fehler beim komilieren

sub oder funktion nicht definiert

und markiert dann "call lerren".

Arbeitsmappe:

Private Sub Workbook_Open()
If Time > TimeValue("08:00:00") Then
Call leeren
Else
Application.OnTime TimeValue("08:00:00"), "leeren"
End If
End Sub

Arbeitsblatt:

Sub lerren()

With Sheets("Tabelle1")
If .Range("I1") < Date Then
.Range("A7:A46,E7:E46,I7:I18,J7:J18").ClearContents
.Range("I1") = Date
End If
End With

End Sub

was kann ich falsch gemacht haben?

mfg

matze

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5520

Verfasst am: 10.06.2008, 16:25

Hallo!

"Leeren" schreibt man mit doppel-e, nicht mit doppel-r !!!

Ein Feedback zum ursprünglichen Problem wäre trotzdem nett!
Windows XP, Office2000, Office2007

matze54321
Newbie
Newbie

Anmeldedatum: 28.05.2008
Beiträge: 23

Verfasst am: 11.06.2008, 08:08

Ok blöder Fehler.

Aber funzt trotzdem nicht er macht immer noch die gleiche Fehlermeldung. Muss ich den in meiner Tabelle noch irgendwo ne Zeit einfügen über die er das vergleichen kann?

mfg

matze

matze54321
Newbie
Newbie

Anmeldedatum: 28.05.2008
Beiträge: 23

Verfasst am: 11.06.2008, 08:14

noch mal ne ansicht

Unbenannt.JPG

Beschreibung:

Dateigröße:

140.84 KB

Angeschaut:

104 mal

gook
Schlauberger

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

Verfasst am: 11.06.2008, 08:23

Hallo!

Wie ich oben schon beschrieben habe:

Zitat:

Dann den in ein normales Modul

muss der Code in ein normales Modul und nicht in Tabellenblatt1.

MFG

matze54321
Newbie
Newbie

Anmeldedatum: 28.05.2008
Beiträge: 23

Verfasst am: 11.06.2008, 08:54

jo alles klar danke.

jetz gehts.....

bin nich so firm in vba

aber danke

mfg

matze

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

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	Aus Zellen in Liste	eccgiraffe	Microsoft Excel Hilfe	4	29.08.2008, 09:12
	Zellen vergleichen und auswerten	Christian 1969	Microsoft Excel Hilfe	8	26.08.2008, 12:33
	Daten kopieren und leere Zellen NICHT...	jani502	Microsoft Excel Hilfe	6	25.08.2008, 17:12
	Zahlen in Spalten automatisch auffüll...	Excelsuse	Microsoft Excel Hilfe	3	22.08.2008, 16:07
	Zellen diagonal teilen	Der_Senator	Microsoft Excel Hilfe	3	21.08.2008, 23:10

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