WCM Forum

WCM Forum (http://www.wcm.at/forum/index.php)
-   Software (http://www.wcm.at/forum/forumdisplay.php?f=5)
-   -   Datumsformat EXCEL (http://www.wcm.at/forum/showthread.php?t=69465)

creibl 10.09.2002 13:00

Datumsformat EXCEL
 
Hallo!

Folgendes Problem: Wie kann ich ein EXCEL ein Datum umformatieren, ohne dass zB aus 020910 910 wird??? Die Spalte ist als Text formatiert.

Es handelt sich hierbei um ca. 50.000 Datensätze.

Ist: zB: 20020910

Soll: zb: 020910

Hab es schon auf mehrere Arten probiert, aber komme nicht hin.

Hat jemand eine Idee??????

mfg
chris

Michi B 10.09.2002 14:22

sind die zellen als datum oder als text/zahl formatiert?

creibl 11.09.2002 09:27

Sind als Text formatiert!

Mittlerweile habe ich das Problem schon gelöst mithilfe der RECHTS Funktion!!

mfg

Michi B 11.09.2002 09:40

hättest du auch mit bearbeiten - ersetzen lösen können

creibl 11.09.2002 10:35

Nicht wirklich, da es in dieser Tabelle weiters noch eine Spalte gibt wo eine 13stelliger Zahlencode (EAN) eingetragen ist. Sollte zufällig die Zahl 2002 oder 2001 , .... im EAN vorkommen wird sie dort auch durch 02 oder 01 .... ersetzt.

Und was noch dazukommt, dass führende Nullen danach nicht mehr angezeigt werden. aus 020910 wird dann 20910, also nicht ganz dasselbe.

Habe es zuerst auch so probiert.

Michi B 11.09.2002 14:31

natürlich markierst du die spalte in der das datum drinnen ist, damit die änderungen nicht in der ganzen tabelle stattfinden...
du ersetzt dann 2002 auf 02
und kannst dann die spalte benutzerdefiniert formatieren, damit alle daten 6-stellig angezeigt wird, dann kommt raus: 020910

Sector 11.09.2002 20:41

versuche mit "Daten/Text in Spalten" den zu verändernden Teil abzutrennen, dann zB. mit suchen/ersetzen nach deinen Wünschen umzuwandeln und mit der Formel zB. =A1&B1 wieder zusammenzufügen.

Hoffe, ich habe mich verständlich ausgedrückt.

Seidl 11.09.2002 21:13

Wäre gar nicht so schwer gewesen
 
Seht euch doch mal VB ein wenig an.
Ist viel leichter als die meisten anscheinend glauben und Makros sind ja doch öfters hilfreich.

Leider habe ich diesen Beitrag zu spät gelesen um helfen zu können aber hier trotzdem ein Makro welches das Problem hätte lösen können.

Sub Makro1()
Dim X As Integer
For X = 1 To 1000 ' Zeile 1 bis 1000
With Worksheets(1).Cells(X, 1) ' 1.Blatt, 1.Spalte, X.Zeile
If Len(.Value) > 6 Then ' mehr als 6 Zeichen
.Value = Right(.Value, 6) ' 6 Zeichen von rechts
End If
End With
Next X
End Sub

Wie gesagt, ist gar nicht so schwer wie manche vielleicht denken.

so long
Seidl


Alle Zeitangaben in WEZ +2. Es ist jetzt 08:39 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
© 2009 FSL Verlag