NumberFormat mit 0 Dezimalstellen, aber Tausende separator "' "

Möchte ich zu den ganzen zahlen wie: 14'119'838 - es kann auch nur 0 sein. Wenn ich es versuchen:

Range("C3:H14").NumberFormat = "0"

Den Apostroph-tausend-Trennzeichen verschwindet. Wenn ich die NumberFormat auf "allgemein", es gibt keine Tausender-Trennzeichen.... Wie kann ich mit 0 Dezimalstellen, aber mit dem schönen Tausender-Trennzeichen?

Dank

InformationsquelleAutor dv3 | 2017-08-17
  1. 2

    Haben Sie, Ihre Telefonnummer zu ändern Fromat zu diesem:

    Range("C3:H14").NumberFormat = "#'###'##0"

    wenn Sie diese Range("C3:H14").NumberFormat = "#,##0" Formel erhalten Sie das englische Zahlenformat.
    Da frag man sich für das "" Seperartor Sie benötigen "#'###'##0" Anzahl Format, um die Schweizer Nummer Format.

    Code für die änderung der NumberFormat-von der Länge der Zahl

    For Each Rng In Range("a1:B5")

 Select Case Len(Rng.Value) 'hier Spalte A
    Case Is < 4: Rng.NumberFormat = "##0"

    Case 4 To 6: Rng.NumberFormat = "#'##0"

    Case 7 To 11: Rng.NumberFormat = "#'###'##0"

    End Select
    Next
    • Dies führt zu 2 Problemen: 1. ein paar Zellen sind 0, so dass nach der änderung des formats wird dies " '0 ". 2. Problem ist, dass dies ignoriert die zweite oder Millionen separator. z.B. 1234'567 ist nicht so schön
    • klicken Sie dann auf ändern "#'###'##0"
    • Ergebnisse in '343'424 für 343424. Ich denke, was dv3 will, ist, um loszuwerden, das überschüssige "'" am Anfang einer Zahl. Ich denke, es könnte getan werden, mit select case aber für die, die Sie ausführen müssen, um jede Zelle in einer Reihe, und es verringert sich die Leistungsfähigkeit sicher.
    • Du hast das problem genau richtig - Sie geben mir ein code snipped? Leistung ist Sekundär, da die Platte ziemlich klein ist
    • ok. ich habe einige code, der funktionieren sollte
    • funktioniert wunderbar - du hast das Häkchen 😉 thx

    InformationsquelleAutor Moosli
  2. 2

    Ändern Sie Ihre NumberFormat aus "0" zu:

    Range("C3:H14").NumberFormat = "#,##0"
    • Das gibt ihm den Englischen Zahlenformat. Aber er gefrage für die Schweizer Nummer Format.
    • sorry, wo in seinem post erwähnt ? Ich kann nicht finden jede Bezugnahme auf das Wort, Schwedisch
    • ersten der Schweiz <> Schweden... er fragte nicht direkt, aber er gab en Beispiel, wie die Zahlen Aussehen sollen. und im Titel fragt er für die thoussands separator mit einfachen Anführungszeichen nicht mit einem Komma
    • Gleiche wie der Kommentar in der anderen Antwort - ich möchte vermeiden das tausend-separator, wenn die Anzahl 0 ist. Auch ich brauche einen "millionsten" separator, wenn die Anzahl groß genug ist
    • Sie können versuchen, diese Lösung. Excel sollte cange das Format von selbst und Sie haben die richtige Nummer format.
    • sehen AntiDrondert Kommentar in der anderen Antwort

    InformationsquelleAutor Shai Rado
  3. 1

    Welp, sorry, ich bin zu spät, hier ist eine andere Lösung:

    Option Explicit
Sub again()
    Dim rng As Range
    set rng = ThisWorkbook.Worksheets("Sheet1").Range("C3:H14")
    Application.UseSystemSeparators = False
    Application.ThousandsSeparator = "'"
    rng.NumberFormat = "#,##0"
End Sub

    Wenn Sie andere Zahlenformate, die Sie nicht wollen, zu trennen, die mit "'"es nicht tun, da es ersetzt die Standard-Excel-separator mit "' "

    InformationsquelleAutor AntiDrondert
Schreibe einen Kommentar