Office: Bestimmte Zellen automatisch täglich leeren wie?

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
:-D
MFG

matze

 

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

 

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

 

Hallo!

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

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

 

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

 

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

 

Alles klar, denkfehler meinerseits. Super danke funktioniert.

Schnelle und kompetente Hilfe :-D So muss es sein :mrgreen:

 

Hallo,

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

Danke im voraus!!

MFG

M.Vorwerk

 

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ß

 

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

 

Hallo!

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

 

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

 

noch mal ne ansicht

 

Hallo!

Wie ich oben schon beschrieben habe:

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

MFG

 

jo alles klar danke.

jetz gehts.....


bin nich so firm in vba

aber danke

mfg

matze