datum
18.10.2017 20:37:52
Micha
Ich habe eine Tabelle, die nach bestimmtem Datum nicht mehr funktionieren darf.
in Spalten k1:k31 aller Arbeitsblätter sind Datum Vorhanden.
Ich habe es mit folgendem Code versucht. Es klappt leider nicht.
<pre>Sub Datumchek()
If DateValue(ActiveSheet.Range("K1:K31").Value) > 43101(sprich 1.1.2018) Then
ActiveSheet.Range("K1:K31") = "die Tabelle darf nicht mehr benutzt werden"
End If
End Sub</pre>
Ich kann kein VBA. Diesen Code habe ich aus dem Internet.
Weiß jemand, wie es geht, bzw. was ich falsch mache.
LG
Micha