Office: Punkte einfügen (Datum Problem)

Simela · 26. November 2005

Hallo,
habe eine Frage und dazu brauche ich eure Hilfe.

Wir bekommen eine vorgenerierte Excel Datei aus einer unseren Systemen von
unsere Firma immer zu.

Dabei sind Datum angaben vorhanden aber leider ohne Punkte und
dass in einer Englischer Formatierung.

Also so: 20051128 und ich würde es gerne aber so haben 28.11.2005

Und dass habe in vielen Zellen (B2:B500 und AF2:AF500)

Kann man das mit VBA lösen?

Gruß
*Sun
Simela

:)

Lumpensammler · 28. November 2005

Hallo, Simela,

geht auch ohne VBA ziemlich schnell:

Bereich B2:B500 im Namenfeld eingeben und Eingabe drücken
In B1 folgende Formel eingeben. =DATUM(LINKS(A1;4);TEIL(A1;3;2);RECHTS(A1;2))
Abschluß der Formel per Steuerung und Eingabe.

Umwandeln in Festwerte: Strg + C, Inhalte einfügen und Festwerte.

Für AF analog.

Gruß
LS

&lt; Peter &gt; · 28. November 2005

Hallo Simela,

oder ganz ohne Formel:

Daten - Text in Spalten und bei Schritt 3 des Assistenten Datum anhaken und das Format JMT auswählen

Simela · 28. November 2005

Ich danke euch beide,

Ich entscheide mich für das erste, da das zweite zu umständlich ist mit dem
Assistenten. (für eine einmalige sache ist es Super)

Liebe Grüße
*Sun
Simela

Dr.Nilson · 5. Dezember 2005

Guten Tag,

ich wollte deswegen kein extra Thread aufmachen, also stell ich meine Frage hier mal rein.

Ich habe eine Tabelle, mit ca. 0,5 Mio. Datensätzen. Das Datum ist ein Textfeld mit Jahr und Uhrzeit getrennt durch ein Leerzeichen.
Hier mal ein Bsp.

20050110 122326

Nun will ich ebenso wie der Threadersteller das ganze umformatieren, das am Ende
10.01.2005 12:23:26
rauskommt.

Mit dem Format befehl klappt das nicht. Könnt ihr mir bitte irgendwie helfen?
mfg

EDIT: Hab gerade mitbekommen, dass dies hier ja das Excel Forum is. Ich bräuchte aber ne Lösung im VBA.

Lumpensammler · 5. Dezember 2005

Hallo, Dr.Nilson,

was hat das Eine mit dem Anderen zu tun? Als Ansatz für die aktive Zelle:

Code:

Option Explicit

Sub Umwandlung()
' Spalte anpassen; hier Spalte A
Dim eineMatrix As Variant
Dim bZähler As Byte
Dim lZähler As Long
Dim lLetzte As Long

lLetzte = Range("A1").End(xlDown).Row
Application.ScreenUpdating = False
For lZähler = 1 To lLetzte
With Cells(lZähler, 1)
eineMatrix = Split(.Value, " ")
.Offset(0, 1).Value = _
DateSerial(Left(eineMatrix(0), 4), _
Mid(eineMatrix(0), 5, 2), _
Right(eineMatrix(0), 2))
.Offset(0, 2).Value = _
TimeSerial(Left(eineMatrix(1), 2), _
Mid(eineMatrix(1), 3, 2), _
Right(eineMatrix(1), 2))
End With
Next lZähler
Application.ScreenUpdating = True
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß
LS

Dr.Nilson · 5. Dezember 2005

Hi,

danke erstmal für die schnelle antwort. Ich hatte die Suchfunktion benutzt, um zu sehen, ob vieleicht jdm anderes so ein ähnliches Problem hat. Da hab ich diesen Thread gefunden und gleich mal mein Problem geschildert. Als ich mitbekommen hab, dass dies das Excel Forum is, wars zu spät. Ich meine natürlich VBA im Access02.

mfg

Lumpensammler · 5. Dezember 2005

Hallo, Dr. Nilsen,

den Split-Befehl gibt es auch ab Access2000, und die Berechnungen ergeben sich analog zu den Berechnungen in Excel. *wink.gif*

Gruß
LS

Office: Punkte einfügen (Datum Problem)

Punkte einfügen (Datum Problem)

Punkte einfügen (Datum Problem)

Punkte einfügen (Datum Problem)

Punkte einfügen (Datum Problem)

Punkte einfügen (Datum Problem) - Similar Threads - Punkte einfügen Datum

Dateinamen ohne Punkt und Dateiendung ermitteln

Summen bis bestimmten Punkt zusammenrechnen?

Umrechnen von Platzierung in Punkte (umgekehrte Reihenfolge)

Erbitte komplizierte Formel Wenn,dann oder wenn dies, dann

Email Speicherung via Drag and Drop macht aus einem Punkt einen Unterstrich im Dateinamen

Daten ab einem bestimmten Punkt in nächste freie Zeile einfügen

Aut. Punkt nach Text in Zelle einfügen