Datum-Format Abfrage in VBA
20.06.2007 16:24:00
Damir
Folgendes Problem habe ich:
In der Arbeitsmappe kann ich mit folgendem Befehl überprüfen ob der Inhalt ein Datum ist
bzw. ob das Datum-Format in der Zelle aktiv ist:
IF ( CELL("format";B1)="D1";"Datum";"Kein Datum")
Wie kann man das mit einem Makro/VBA überprüfen ?
Folgender Abschnitt funktioniert leider nicht (als Beispiel):
For Each c In ActiveSheet.Range("A1:A1000").Cells
If c.NumberFormat = "Date" Then c.Value = Format(c.Value, "YYYYMMDD")
Next
Dagegen der Abschnitt unten funktioniert korrekt (ob die Zelle die Formatierung "General" hat:
For Each c In ActiveSheet.Range("A1:A1000").Cells
If ((c.Value "") And (c.NumberFormat = "General")) Then c.Value = c.Value & "0000"
Next
Hat jemand hier eine Idee ?
Danke und Gruss
Damir