Hi
Ist es möglich, in Excel das Zahlenformat umzuwandeln?
Von 1.000,00 > 1,000.00, also in die englische Schreibweise.
Ich weiß, das man das mit dem Eingabeschema von Windows generell einstellen kann. Aber gibt es eine Möglichkeit in Excel?
Danke
Chris
P.S. Die Anfrage bezieht sich auf Excel 2000
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hi Chris!
Ist es möglich, in Excel das Zahlenformat umzuwandeln?
Von 1.000,00 > 1,000.00, also in die englische
Schreibweise.
Wenn du Zahlen hast, die du umwandeln willst, nimmst du einfach das Format #,##0.00. Wenn du allerdings Text hast, musst du zuerst den Text in Zahlen umwandeln. Das geht über Bearbeiten - Inhalte einfügen - Multiplizieren. Dort musst du dann noch die eins als Faktor in eine Zelle eingeben.
Gruß Alex
Geht leider nicht
Hi
Danke für die Antwort
Ich habe Zahlen. Aber die Einstellung über Sonderformat habe ich schon auspropiert. Geht leider nicht
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hi Chris!
Schick mir mal die Datei, ich werde sie mir am Nachmittag anschauen.
Gruß Alex
Hi Chris!
Schick mir mal die Datei, ich werde sie mir am Nachmittag
anschauen.Gruß Alex
Hallo Chris,
über Extras, Optionen, International, Behandlung von Zahlen, dann den Haken bei „Trennzeichen von Betriebssystem übernehmen“ entfernen, bei Dezimaltrennzeichen den Punkt eintragen und bei 1000er Trennzeichen das Komma eintragen.
Wirkt sich allerdings für alle Excel Dateien aus. Wenn das nicht gewünscht ist, Reinhard hatte vor kurzem etwas über VBA, für eine Arbeitsmappe.
Gruß Maria
Hi Chris!
Schick mir mal die Datei, ich werde sie mir am Nachmittag
anschauen.Gruß Alex
Da gibt es nicht viel zu schicken. Ich öffne ein neues Sheet und gebe in Zelle A1 z.b. 100000 ein. Jetzt soll nach einer Formatierung nicht 100.000,00 da stehen, sondern 100,000.00. Wie gesagt es geht um Excel2000 und über eine benutzerdefinierte Formatierung habe ich es nicht hinbekommen …
Danke nochmal
Hallo Maria,
über Extras, Optionen, International, Behandlung von Zahlen,
dann den Haken bei „Trennzeichen von Betriebssystem
übernehmen“ entfernen, bei Dezimaltrennzeichen den Punkt
eintragen und bei 1000er Trennzeichen das Komma eintragen.
das gibt es leider bei XL2000 nicht.
Wirkt sich allerdings für alle Excel Dateien aus. Wenn das
nicht gewünscht ist, Reinhard hatte vor kurzem etwas über VBA,
für eine Arbeitsmappe.
Code der das Dezimaltrennzeichen ändert? Weiß grad nicht welchen Code du meinen könntest.
Ansonsten muß das doch auch mit Formatbefehlen zu lösen sein *annehm*
Kenne mich mit den denen leider Null aus.
Gruß
Reinhard
Vba-Lösung um Zahlenformat zu wandeln Punkt Komma
Von 1.000,00 > 1,000.00, also in die englische
Schreibweise.
Ich weiß, das man das mit dem Eingabeschema von Windows
generell einstellen kann. Aber gibt es eine Möglichkeit in
Excel?
Hi Chris,
der Code überwacht automatisch Spalte E (=5te Spalte). Gelangt man dahin so wird die Zelle links davon , also in Spalte D, formatiert.
Alt+F11, dann Auswahl von Tabelle1 oder Modul1 durch Doppelklick, Code einfügen, ggfs die Spalten anpassen durch Anpassung von:
If Target.Column 5 Then Exit Sub
Editor schliessen.
Um dann mit dem formatierten Wert in D rechnen zu können, in Excel
=Wert2(D3)
eingeben.
Achja, Spalte D muss als Text formatiert sein. Bei der Eingabe in D ist nur das Komma erlaubt.
in Tabelle1:
Option Explicit
Private Sub Worksheet\_SelectionChange(ByVal Target As Range)
If Target.Column 5 Then Exit Sub 'A=1,B=2,...,E=5
If Not IsNumeric(Target.Offset(0, -1)) Then Exit Sub ' raus wenn n D keine Zahl
If Target.Offset(0, -1) = "" Then Exit Sub 'raus wenn D leer
If InStr(Target.Offset(0, -1), ".") Then Exit Sub 'raus wenn schon formatiert
Dim teil, n, z
teil = Split(Target.Offset(0, -1).Value, ",")
For n = Len(teil(0)) To 1 Step -1
z = z + 1
If z = 3 Then
teil(0) = Left(teil(0), n - 1) & "," & Mid(teil(0), n)
z = 0
End If
Next n
If Left(teil(0), 1) = "," Then teil(0) = Mid(teil(0), 2)
If UBound(teil) = 1 Then
Target.Offset(0, -1) = teil(0) & "." & teil(1)
Else
Target.Offset(0, -1) = teil(0) & ".00"
End If
End Sub
in Modul1 (wenn nicht vorhanden mit Einfügen–Modul erzeugen)
Option Explicit
Function Wert2(Zelle As Range) As Double
Dim teil, Wert2Text
teil = Split(Zelle.Value, ".")
teil(0) = Replace(teil(0), ",", "")
Wert2Text = teil(0)
If UBound(teil) = 1 Then Wert2Text = Wert2Text & "," & teil(1)
Wert2 = CDbl(Wert2Text)
End Function
Gruß
Reinhard
Von 1.000,00 > 1,000.00, also in die englische
Schreibweise.
Ich weiß, das man das mit dem Eingabeschema von Windows
generell einstellen kann. Aber gibt es eine Möglichkeit in
Excel?
Hallo Chris, hallo Reinhard,
ich habe folgenden Vorschlag (war bis eben off). Jedes einem Button zuweisen und nach Bedarf in am. bzw. deutsche Dezimaldarstellung umwandeln. (Bin leider noch nicht geübt in vba).
Sub Am_Dezimaldarstellung_ein()
With Application
.UseSystemSeparators = False
.DecimalSeparator = „.“
.ThousandsSeparator = „,“
End With
End Sub
Sub Am_Dezimaldarstellung_aus()
With Application
.UseSystemSeparators = True
End With
End Sub
Gruß Maria
ich habe folgenden Vorschlag (war bis eben off). Jedes einem
Button zuweisen und nach Bedarf in am. bzw. deutsche
Dezimaldarstellung umwandeln. (Bin leider noch nicht geübt in
vba).Sub Am_Dezimaldarstellung_ein()
With Application
.UseSystemSeparators = False
.DecimalSeparator = „.“
.ThousandsSeparator = „,“
End With
End SubSub Am_Dezimaldarstellung_aus()
With Application
.UseSystemSeparators = True
End With
End Sub
Jetzt wo ich’s lese fallen mir die Begriffe wieder ein, danke.
Gruß
Reinhard