Dezimaltrennzeichen ersetzen

[Joerg_de]

Hallo, 

ich verwende die Formel
=TEIL(A4;1;1)&","&TEIL(A4;3;2)
zum Umwandeln des ":"-Zeichens in ein "," bzw.
=TEIL(A4;1;1)&","&TEIL(A4;3;4)
zum Umwandeln des "."-Zeichens in ein ",".

Und 
=TEIL(A14;1;1)&"."&TEIL(A14;3;4) für den umgekehrten Fall, wenn ich nämlich ein
","-Zeichen durch ein "." ersetzen will.

Funktioniert alles mehr schlecht als recht und das ist noch geschmeichelt.

Was kann ich tun?

Danke und

schönen Gruß
Jörg

[WillWissen]

Moin,

nimm WECHSELN().

Arbeitsblatt mit dem Namen 'Tabelle1'
	A	B	C	D
3	Original	Ergebnis	Soll
4	0:0427	0,04	0,0427	0,0427
5	5:99	5,99	5,99	5,99
6	10:86	1,:8	10,86	10,86
7	100:87	1,0:	100,87	100,87

Zelle	Formel
D4	=WECHSELN(A4;":";",")

Verwendete Systemkomponenten: [Windows (32-bit) NT 10.00] MS Excel 2016

Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg

[Sigi.21]

Hallo Jörg,

oder eine kleine VBA-Fkt. für alle drei Varianten:

Function DezimalErsetzen(Zelle As Range) As Variant
Dim Txt As String
        Txt = Zelle.Text
        If InStr(Txt, ":") > 0 Then
            Txt = WorksheetFunction.Substitute(Txt, ":", ",")
            DezimalErsetzen = CDbl(Txt)
        ElseIf InStr(Txt, ".") > 0 Then
            Txt = WorksheetFunction.Substitute(Txt, ".", ",")
            DezimalErsetzen = CDbl(Txt)
        ElseIf InStr(Txt, ",") > 0 Then
            Txt = WorksheetFunction.Substitute(Txt, ",", ".")
            DezimalErsetzen = Txt
        Else
            DezimalErsetzen = Txt
        End If
End Function


Gruß
Sigi

[marose67]

Hallo Günter,

soweit war ich auch. ABER ...

Tabelle1

	A	B	C	D
9	0.0427	0,04	0,0427	#WERT!

Formeln der Tabelle

Zelle Formel B9 =TEIL(A9;1;1)&","&TEIL(A9;3;2) D9 =WECHSELN(A9;".";":";",")

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8
Da gibt es einen Fehler.

Gruß
Marcus

[WillWissen]

Hi Marcus,

schau dir mal die Syntax von WECHSELN() an.

   

[marose67]

Hallo Günter, das hat geholfen

Tabelle1

	A	B	C	D
3	Original	Ergebnis	Soll	Neu
4	0:0427	0,04	0,0427	0,0427
5	5:99	5,99	5,99	5,99
6	10:86	1,:8	10,86	10,86
7	100:87	1,0:	100,87	100,87
8
9	0.0427	0,04	0,0427	0,0427
10	5.99	5,99	5,99	5,99
11	10.86	1,.8	10,86	10,86
12	100.87	1,0.	100,87	100,87
13
14	0,0427	TEIL(A14;1;1)&"."&TEIL(A14;3;4)	0.0427	0.0427
15	5,99	5.99	5.99	5.99
16	10,86	1.,86	10.86	10.86
17	100,87	1.0,87	100.87	100.87

Formeln der Tabelle

Zelle Formel B4 =TEIL(A4;1;1)&","&TEIL(A4;3;2) D4 =WECHSELN(A4;":";",") B5 =TEIL(A5;1;1)&","&TEIL(A5;3;2) D5 =WECHSELN(A5;":";",") B6 =TEIL(A6;1;1)&","&TEIL(A6;3;2) D6 =WECHSELN(A6;":";",") B7 =TEIL(A7;1;1)&","&TEIL(A7;3;2) D7 =WECHSELN(A7;":";",") D8 =WECHSELN(A8;":";",") B9 =TEIL(A9;1;1)&","&TEIL(A9;3;2) D9 =WECHSELN(A9;".";",") B10 =TEIL(A10;1;1)&","&TEIL(A10;3;2) D10 =WECHSELN(A10;".";",") B11 =TEIL(A11;1;1)&","&TEIL(A11;3;2) D11 =WECHSELN(A11;".";",") B12 =TEIL(A12;1;1)&","&TEIL(A12;3;2) D12 =WECHSELN(A12;".";",") D14 =WECHSELN(A14;",";".") B15 =TEIL(A15;1;1)&"."&TEIL(A15;3;4) D15 =WECHSELN(A15;",";".") B16 =TEIL(A16;1;1)&"."&TEIL(A16;3;4) D16 =WECHSELN(A16;",";".") B17 =TEIL(A17;1;1)&"."&TEIL(A17;3;4) D17 =WECHSELN(A17;",";".")

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8

Lg
Marcus

[Jockel]

Hallo, das ist ja nur die halbe "Wahrheit" auf die Schnelle für beide "angesprochenen" Fälle..:

PHP-Code:

=WENN(ISTZAHL(SUCHEN(":";A4));WECHSELN(A4;":";",");WECHSELN(A4;",";".")) 


[Joerg_de]

Hallo,

vielen Dank, Marcus.

Und an euch alle!

Ich bin immer wieder erstaunt, wie viel Dynamik hier im Forum ist. Das offenbart sich besonders dann, wenn ich z.B. morgens gepostet hab und dann aus arbeitstechnischen Gründen vielleicht erst abends wieder reinschauen kann. Und dann nicht nur alles gelöst ist, sondern wenn es wie in diesem Fall auch noch die tollsten Varianten (VBA) und Extras (PHP-Code - das ist ja sowas von abgefahren...) gibt. 

Sowas macht echt Spaß.

Schönen Gruß
Jörg