Zum Hauptinhalt springen

Wie fügt man Tausendertrennzeichen zu Zahlen in Word-Dokumenten hinzu?

Author: Sun Last Modified: 2025-08-06

Das Hinzufügen von Tausendertrennzeichen zu Zahlen in einem Word-Dokument kann die Lesbarkeit erheblich verbessern, insbesondere bei der Arbeit mit großen Zahlen. Während Microsoft Word keine direkte Funktion zum Hinzufügen von Tausendertrennzeichen bietet, gibt es effiziente Methoden, dies mit VBA (Visual Basic for Applications) oder einem praktischen Tool wie Kutools für Word zu erreichen.

In diesem Tutorial führen wir Sie durch die Schritte zum Hinzufügen von Tausendertrennzeichen zu Zahlen in Ihrem Word-Dokument sowohl mit VBA als auch mit Kutools für Word.

Tausendertrennzeichen mit VBA hinzufügen

Tausendertrennzeichen mit Kutools für Word hinzufügen good idea

Tausendertrennzeichen mit VBA hinzufügen

Das Einfügen von Tausendertrennzeichen in große Zahlen kann mühsam sein, besonders wenn Sie dies wiederholt tun müssen. Durch die Verwendung von VBA-Code können Sie diesen Prozess automatisieren, sodass Sie einfach eine Zahl auswählen und F5 drücken können, um die Trennzeichen sofort hinzuzufügen.

  1. Wählen Sie die Zahl aus, die Sie mit Tausendertrennzeichen formatieren möchten, und drücken Sie dann Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
  2. Klicken Sie auf Einfügen > Modul, und kopieren Sie den folgenden Code in das Modul Editor. 
    Sub InsertThousandSeparators()
    Dim selectedText As String
    Dim formattedText As String
    Dim decimalPos As Integer
    Dim wholePart As String
    Dim decimalPart As String
    Dim temp As String
    Dim i As Integer
    Dim charCount As Integer
    Dim trailingSpace As String
    Dim trailingParagraphMark As String
    
    If Selection.Type <> wdSelectionIP Then
        selectedText = Selection.Text
        trailingSpace = ""
        trailingParagraphMark = ""
        
        If Right(selectedText, 1) = " " Then
            trailingSpace = " "
            selectedText = Trim(selectedText)
        End If
        
        If Right(selectedText, 1) = Chr(13) Then
            trailingParagraphMark = Chr(13)
            selectedText = Left(selectedText, Len(selectedText) - 1)
        End If
        
        If IsNumeric(selectedText) Then
            decimalPos = InStr(1, selectedText, ".")
            
            If decimalPos > 0 Then
                wholePart = Left(selectedText, decimalPos - 1)
                decimalPart = Mid(selectedText, decimalPos + 1)
            Else
                wholePart = selectedText
                decimalPart = ""
            End If
            
            wholePart = Replace(wholePart, ",", "")
            
            temp = ""
            charCount = 0
            
            For i = Len(wholePart) To 1 Step -1
                temp = Mid(wholePart, i, 1) & temp
                charCount = charCount + 1
                
                If charCount Mod 3 = 0 And i > 1 Then
                    temp = "," & temp
                End If
            Next i
            
            wholePart = temp
            
            If decimalPart <> "" Then
                formattedText = wholePart & "." & decimalPart
            Else
                formattedText = wholePart
            End If
            
            Selection.Text = formattedText & trailingSpace & trailingParagraphMark
        Else
            MsgBox "Please select a valid number."
        End If
    Else
        MsgBox "Please select a number first."
    End If
End Sub
  3. Drücken Sie die F5-Taste, und die Tausendertrennzeichen werden zur ausgewählten Zahl hinzugefügt.

    Thousand separators are inserted into the selected number

  4. Um Trennzeichen zu einer anderen Zahl hinzuzufügen, wählen Sie einfach die neue Zahl aus und gehen Sie zurück zum Modulfenster und drücken Sie erneut F5.

Tausendertrennzeichen mit Kutools für Word hinzufügen

Wenn Sie Trennzeichen in mehrere Zahlen in einer Auswahl oder im gesamten Word-Dokument einfügen möchten, kann das Hilfsprogramm Tausendertrennzeichen hinzufügen von Kutools für Word diese Aufgabe mit nur wenigen Klicks lösen.

Kutools für Word,ausgestattet mit KI 🤖, bietet über 100 praktische Funktionen, um Ihre Aufgaben zu vereinfachen.

Nach der Installation von Kutools für Word folgen Sie diesen Schritten:

  1. Um Tausendertrennzeichen zu allen Zahlen im gesamten Dokument hinzuzufügen, wählen Sie keine Daten aus, und klicken Sie auf Kutools > Einfügen > Tausendertrennzeichen hinzufügen.
    Add Thousand Separator option on the Kutools tab on the ribbon
  2. Ein Dialogfenster erscheint, das fragt, ob Sie diese Funktion auf das gesamte Dokument anwenden möchten, klicken Sie auf Ja.
    Confirmation dialog saying 'Do you want to add thousand separators to all numbers in the whole document?'
  3. Jetzt wurden allen Zahlen Tausendertrennzeichen hinzugefügt.
    Thousand separators are inserted into all numbers

Hinweise:

  • Wenn Sie Tausendertrennzeichen zu Zahlen in einer bestimmten Auswahl hinzufügen möchten, wählen Sie zuerst den Abschnitt aus und klicken Sie dann auf Kutools > Einfügen > Tausendertrennzeichen hinzufügen.
    Thousand separators are inserted into numbers in the selected range
  • Um die Tausendertrennzeichen zu entfernen, klicken Sie auf Kutools > Entfernen > Alle Tausendertrennzeichen im ausgewählten Bereich entfernen.
    Remove Thousand Separators option on the Kutools tab on the ribbon

Demo: Tausendertrennzeichen zu Zahlen in einem Word-Dokument hinzufügen

Entdecken Sie die Kutools / Kutools Plus-Registerkarte in diesem Video von Kutools for Word. Nutzen Sie 100+ Funktionen und dauerhaft kostenlose KI-Dienstprogramme. Laden Sie es jetzt herunter!

Die besten Produktivitätstools für das Büro

Kutools für Word – Steigern Sie Ihr Word-Erlebnis mit über 100 bemerkenswerten Funktionen!

🤖 Kutools AI-Features: KI-Assistent / Echtzeit-Assistent / Super Polieren (Format beibehalten) / Super Übersetzen (Format beibehalten) / KI-Redaktion / KI Korrekturlesen...

📘 Dokumenten-Beherrschung: Seiten teilen / Dokumente zusammenführen / Auswahl in verschiedenen Formaten exportieren (PDF/TXT/DOC/HTML...) / Stapelweise Konvertierung nach PDF...

✏ Inhaltsbearbeitung: Stapelweise Suchen und Ersetzen über mehrere Dateien / Alle Bilder skalieren / Tabellenzeilen und -spalten transponieren / Tabelle in Text umwandeln...

🧹 Mühelos bereinigen: Entfernen Sie ganz einfach zusätzliche Leerzeichen / Abschnittsumbrüche / Textfelder / Hyperlinks / Weitere Entfernen-Werkzeuge finden Sie in der Gruppe Entfernen...

➕ Kreative Einfügungen: Tausendertrennzeichen einfügen / Kontrollkästchen / Optionsfelder / QR-Code / Barcode / Mehrere Bilder / Entdecken Sie weitere Funktionen im Bereich Einfügen...

🔍 Präzise Auswahl: Bestimmen Sie gezielt bestimmte Seiten / Tabellen / Formen / Überschriftenabsätze / Verbessern Sie die Navigation mit weiteren Auswählen -Funktionen...

⭐ Herausragende Verbesserungen: Navigieren Sie zu beliebigen Standorten / Automatisches Einfügen von wiederkehrendem Text / Umschalten zwischen Dokument-Fenstern /11 Konvertierungswerkzeuge...

🌍 Unterstützt über40 Sprachen: Nutzen Sie Kutools in Ihrer bevorzugten Sprache – unterstützt Englisch, Spanisch, Deutsch, Französisch, Chinesisch und mehr als40 weitere!

Kutools and Kutools Plus tabs on the Word Ribbon
👉 Möchten Sie diese Funktionen ausprobieren? Laden Sie Kutools für Word jetzt herunter! 🚀
 

Die besten Produktivitätstools für das Büro

Kutools für Word – 100+ Werkzeuge für Word

Kostenloser Download Jetzt kaufen Mehr erfahren über Kutools