Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.04.2024 23:32:21
Darstellung im IMAGE sehr schlecht
15.04.2024 21:08:34
PDF mit Makro erstellen mehrere Sheets
15.04.2024 18:38:39
Arbeitszeiten Vorlage ergänzen
15.04.2024 17:34:30
Fehlende Zeilen automatisch nach Zeiten ergänzen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1252to1256
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige