Eintrag in Zelle sofort kontrollieren ob sein darf
30.06.2004 17:22:02
Mandy
dank diese Forums habe ich hier eine gute Sache zusammen bekommen,
wodurch nach Einträgen an Feiertagen gesucht wird. Da dies so von
meinem Guru nicht gewollt ist soll ich die Lösung verändern, wobei
ich leider nicht weiß wie. Hier erst mal der alte Code:
Sub WE_loeschen()
Hauptmodul.PW_entf
Dim iIndxA As Long
Dim iIndxI As Integer
Application.ScreenUpdating = False ' kein Bildschirm Update
For iIndxA = 2 To Range("A65536").End(xlUp).Row ' von 1 bis Ende
If Weekday(Range("B" & iIndxA).Value) = 1 Or _
Weekday(Range("B" & iIndxA).Value) = 7 Then ' Sonnabend/Sonntag ?
Range(Cells(iIndxA, 3), Cells(iIndxA, 256)).ClearContents
End If
Next iIndxA ' nächster Eintrag
Application.ScreenUpdating = True ' Bildschirm Update zulassen
Hauptmodul.PW_setzen
End Sub
Nun soll das aber nur den gerade gemachten Eintrag kontrollieren und
nicht die ganze Seite. Wie kann ich den Code dahingehend umstellen?
Wäre schön, wenn mir jemand helfen kann, meinen Guru zufrieden zu stellen.
Gruß Mandy