Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1332to1336
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
Inhaltsverzeichnis

Datum extrahieren

Datum extrahieren
17.10.2013 15:34:34
Hans
Hallo Zusammen,
aus einer Zelle mit Datum mit Zeit, soll in nur Datum umgewandelt werden.
Das löse ich so:
Sub test()
datum = Range("a5")
Range("b5") = Format(datum, "dd.mm.yyyy")
End Sub
Das Problem ist jetzt, dass B5 nicht als Datum, oder Zahl erkannt wird. Erst wenn ich B5 doppelklicke klappt es.
Zur besseren Veranschaulichung s.Datei.
https://www.herber.de/bbs/user/87685.xls
Danke schon mal für Eure hilfe.
Grüße
Hans

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datum extrahieren
17.10.2013 15:36:34
Hajo_Zi
Hallo Hans,
Du schreibst Text in die Zelle. Multiplikation mit 1 und entsprechendes Format.

AW: Datum extrahieren
17.10.2013 16:07:55
Hans
Hallo Hajo,
wenn ich
Range("b5") = Format(datum, "dd.mm.yyyy") * 1
dann kommt das datum ohne "komma"... also einfach die fortlaufende zahl des datums.

AW: Datum extrahieren
17.10.2013 16:37:47
selli
hallo hans,
wenn du es in der reihenfolge machst, die hajo vorgeschlagen hat sollte es funktionieren.
Range("b5") = Format(datum*1, "dd.mm.yyyy")
gruß
selli

AW: Datum extrahieren
17.10.2013 16:52:09
Hajo_Zi
du den Format Befehl wird es zu Text es reicht auch Cint(Range("b5"))
Gruß Hajo

Anzeige
AW: Datum extrahieren
18.10.2013 08:36:17
selli
hallo hajo,
ich dachte, er hat als ausgangsformat text und was am ende rauskommt wäre egal.
gruß
selli

AW: Datum extrahieren
17.10.2013 16:39:26
Hajo_Zi
Du Musst den gesamten Ausdruck multiplizieren
(Format(datum, "dd.mm.yyyy")) * 1
Gruß Hajo

AW: Datum extrahieren
17.10.2013 16:58:29
Hans
also egal wo ich mit 1 multipliziere - gleiches problem.
es klappt allerdings mit 'text in splaten':
Selection.TextToColumns Destination:=Range("B5"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True
ist jetzt nicht grad die elegante lösung :-)
trotzdem vielen lieben dank

Anzeige
AW: Datum extrahieren
17.10.2013 18:08:41
Hajo_Zi
nur wenige sehen Deine Datei und man sollte auch alle Beiträge lesen.
Gruß Hajo

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige