Eingabe auf Datum prüfen

[dertommy]

Hallo!

Ich habe folgenden VBA Code und möchte diesen um folgendes erweitern. Ich möchte, dass er überprüft, ob es sich bei der Eingabe um ein Datum handelt.

Hier mein bestehender Code:

Code:

If Target.Column = 1 Then  'in Spalte A sich was ändert'

    .Range("P1").Value = .Range("P1").Value + 1

End If

Ich hoffe, dass mir jemand helfen kann.

LG
Thomas

[Der Steuerfuzzi]

Hallo,

im Prinzip ist es schwierig, auf ein gültiges Datum zu prüfen, da in Excel jede Positive Ganzzahl zwischen 1 und 2.958.465 ein gültiges Datum wäre.

Die Eingabe, die überprüft werden soll, erfolgt in P1? wie ist die Zelle formatiert? Was wird genau eingegeben (ein Text, eine Zahl, ...)?

[ReginaR]

Hallo Thomas,
warum dafür VBA bemühen? Ich würde für die Zelle eine Datenüberprüfung einrichten (Reiter Daten, Gruppe Datentools, Datenüberprüfung).

Gruß Regina

[dertommy]

Hallo!

Nein, ich gebe in der Spalte A untereinander reihenweise ein Datum ein und dann zählt er laufend in P1.
Nun möchte, dass er nur zählt, wenn ich in der Spalte A ein Datum eingebe.

[Der Steuerfuzzi]

Mach mal bitte eine Beispieldatei, damit man das besser einordnen kann.

[dertommy]

Anbei die gewünschte Datei.

Danke euch jetzt schon.

[Der Steuerfuzzi]

Die Spalte ist als Datum formatiert und es sind keine anderen Eingaben gemacht als Daten. Was könnte also on der Zelle stehen, was kein Datum ist und was soll passieren, wenn kein Datum in einer Zelle steht?

Was bezweckt der Code eigentlich? Die Anzahl der Datumseingaben in Spalte A zählen?

[dertommy]

ja, er soll nur in P1 zählen, wenn ein Datum eingegeben wurde. Wird z.B. eine Zelle aus der Spalte A gelöscht, darf er nicht zählen.

[snb]

Schau mal:

[dertommy]

Hallo snb!

In deinem Excel kann ich leider keinen VBA Code finden!