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

Irgendwas funktioniert da noch nicht ich bekomme dann eine Fehler meldung

Fehler beim Kompilieren:
Mehrdeutiger Name: Workbook_SheetActivate


und hier mal so wie ich den Code nun eingefügt habe in "Diese Arbeitsmappe"


Private Sub Workbook_Open()
Dim wks As Worksheet
Dim Zelle As Range
Dim datMonat As Date

datMonat = Range("N1").Value 'hier die Zelle anpassen!!!

For Each wks In Worksheets
With wks
For Each Zelle In .Range(.Cells(1, 34), .Cells(.Rows.Count, 34).End(xlUp))
If IsDate(Zelle.Value) Then
If Zelle.Value < datMonat Then _
Zelle.EntireRow.ClearContents
End If
Next Zelle
End With
Next wks
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim Zelle As Range
Dim datMonat As Date

datMonat = Range("N1").Value 'hier die Zelle anpassen!!!

With ActiveSheet
For Each Zelle In .Range(.Cells(1, 34), .Cells(.Rows.Count, 34).End(xlUp))
If IsDate(Zelle.Value) Then
If Zelle.Value < datMonat Then _
Zelle.EntireRow.ClearContents
End If
Next Zelle
End With
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim Zelle As Range
With ActiveSheet
For Each Zelle In Range(.Cells(6, 34), .Cells(.Rows.Count, 34).End(xlUp))
If IsDate(Zelle.Value) Then
If Zelle.Value < Date Then _
Zelle.EntireRow.ClearContents
End If
Next Zelle
End With
End Sub


Ich hoffe das war so richtig! Ach so wie kann ich denn den Code in einem Bild dastellen? so wie du es gemacht hast?

 

Hi,

zweimal "Private Sub Workbook_SheetActivate(ByVal Sh As Object)" geht nicht!

 

Danke stimmt daran hat es gelegen.

Aber nun ist genau der Fall eingetreten der NICHT sein sollte!


Wenn hinter dem Personen Name der 31.01.09 steht löscht er mir den auch im JANUAR Tabellenblatt, und genau das soll nicht passieren sondern erst im Februar Tabellenblatt!

LG

 

Hi,

dazu kann ich auf die Schnelle nichts sagen, da ich von dem was bisher gelaufen ist, keine Ahnung habe, dazu müsste ich mich erst mal einlesen.

Warte einfach mal ab, was Uwe dazu zu sagen hat.

Schönes Rest-WE! *Smilie

 

Hi,
bin ja schon da (;-))).
Also ich hab's nochmal getestet, und bei mir wird im Januar der Eintrag 31.01.09 NICHT gelöscht. Also muss bei Dir noch irgendetwas falsch sein:
1. Der alte Code musste gelöscht werden, das heißt Dein Arbeitsblatt Klassenmodul müsste jetzt so ausssehen:
Code:

(übrigens um das so (s.o) darzustellen musst Du nur auf das zweite Icon von rechts über dem Antwortfenster klicken (Code einfügen) und den Code zwischen die HTML Tags kopieren.)
2. Aus Deinem mit Jeanie eingegfügten Bild kann man leider nicht erkennen was wirklich in N1 steht. So sollte es sein:
Du schreibst in N1 im Januar: 01.01.09 und im Februar 01.02.09. Das muss so in der Bearbeitungsleiste zu sehen sein. Die Zelle N1 formatierst Du dann BENUTZERDEFINIERT so:
MMMM JJJJ
Dadurch steht in der Zelle: Januar 2009, während in der Bearbeitungszeile immer noch 01.01.09 steht.
Wenn das beides so stimmt, sollte es eigentlich klappen. Sonst frag noch mal nach, und wenn möglich, lade die Datei hoch, statt ein Jeanie-Bild zu schicken, dann kann ich den Fehler eher finden, da ich testen kann.

 

Genau so habe ich das auch gemacht in der Bearbeitungsleiste steht so wie ich es eingegeben habe, 01.02.09 oder eben 01.01.09


Also jetzt scheint es zu klappen *wink.gif* habe das nun mal mit mehreren verschiedenen Daten ausprobiert und es sieht gut aus *wink.gif*

Ich danke dir für deine Hilfe sehr sehr gut dicke fettes Kompliment an dich *wink.gif*

Muss ich das nur noch mal in ruhe in meine Eigentliche Liste einarbeiten smile was auch nicht gerade einfach wird da die Ja schon fertig ist und immer weiter optimiert ist *wink.gif*

Vielleicht kannst du dir ja auch mal mein anderes Problem anschauen und mir dazu mal nen tipp geben. Da weiss ich nämlich absolut nicht weiter habe das zwei wochen versucht allein hin zu bekommen bevor ich hier geschrieben habe aber leider komme ich da nicht weiter!

LG und schönen rest sonntag dir noch!
Und vielen vielen dank!