Zellen löschen ...
14.09.2004 03:59:15
Klaus
wenn ein neuer Tag beginnt, möchte ich (beim anwählen der Tabelle) das verschiedene Zellen in der Tabelle10 gelöscht werden. Das habe ich mit folgendem Code versucht:
----------------------------------------
Private Sub Worksheet_Activate()
Dim SdateQ As Date
Dim SdateÄ As Date
Worksheets("Dienstplan Wochentag (3)").Select
SdateQ = CDate(ThisWorkbook.BuiltinDocumentProperties("Last save time"))
Range("p5").Value = SdateQ
SdateÄ = Range("p7").Value
If SdateQ < SdateÄ Then
Range("b14:b17").ClearContents
Range("d14:d17").ClearContents
Range("f14:f17").ClearContents
Range("h14:h17").ClearContents
Range("j14:j17").ClearContents
Range("b28:b31").ClearContents
Range("d28:d31").ClearContents
Range("f28:f31").ClearContents
Range("h28:h31").ClearContents
Range("j28:j31").ClearContents
Range("b42:b45").ClearContents
Range("d42:d45").ClearContents
Range("h42:h45").ClearContents
Range("j42:j45").ClearContents
End If
ActiveSheet.Range("e1") = ""
ActiveWorkbook.Save
Range("e1").Select
End Sub
---------------------------
Der Code steht in "Tabelle10(Tabelle10)"
Wenn ich nun aber mittels Hyperlink auf dieses Blatt wechsle tut sich nix. Wenn ich das Blatt aber über die Registerkarten anwähle wird wie gewünscht gelöscht.
Es gibt Stimmen die sagen das es per Hyperlink nicht geht ...
Wer kann mir dabei helfen?
Für Euere Mühe besten Dank!
Klaus