Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 17:25:38
bedingte Formatierung
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
16.10.2025 13:18:36
Übersicht von Excel Konstanten
16.10.2025 11:48:44
Makro von Excel in Word aufrufen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1252to1256
1252to1256
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datum überprüfen

Forumthread: Datum überprüfen

Datum überprüfen
reiner
hallo Leute,
https://www.herber.de/bbs/user/79404.xls
in "A1" ist ein beliebiges Datum eingetragen. Das Makro "Zerlegen" soll das Datum in 3 durch jeweils einen Punkt "." getrennte Bereiche aufteilen um sie später auf Plausibilität zu überprüfen. Mit dem Programmcode 
Datum = "(CDate(ActiveSheet.Cells(1, 1)))"
erhalte ich aber regelmäßig eine Fehlermeldung.
Ist hingegen das Datum Bestandteil des Programmcodes funktioniert zwar das Zerlegen ohne Probleme, ist jedoch unsinnig, da das Datum immer in "A1" eingetragen werden soll. Bitte beachten, "A1" ist "Text-Formatiert", die Formatierung darf nicht verändert werden da ansonsten weitere hier nicht dargestellte Berechnungen darauf aufbauen.
Hat jemand einen Vorschlag wie der Programmcode geändert werden muss?
mfg
reiner
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Datum überprüfen
16.03.2012 11:23:45
Oberschlumpf
Hi reiner
Schreib einfach 
Datum = Range("A1").Value

Mit CDate(...) übergibst du an Datum einen Datumswert.
Datum hast du aber als String deklariert.
Hilfts?
Ciao
Thorsten
hilft, danke
16.03.2012 11:45:32
reiner
o.T.
Datum zerlegen
16.03.2012 11:34:41
Erich
Hi,
vielleicht hilft das weiter: 

Option Explicit      ' immer zu empfehlen
Private Sub Zerlegen()
Dim myDatum As Date
Dim Var1$, Var2$, Var3$
myDatum = CDate(ActiveSheet.Cells(1, 1))
'  myDatum = CDate("01.03.2012")
'  myDatum = "01.03.2012"
Var1 = Format(myDatum, "dd")
Var2 = Format(myDatum, "mm")
Var3 = Format(myDatum, "yyyy")
End Sub
Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich
Anzeige
danke Erich
16.03.2012 11:54:49
reiner
o.T.
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige