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
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 |
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
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
Hallo Günter, das hat geholfen
Zitat: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
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;",";"."))
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