KutoolsforOffice — Eine Lösung, fünf leistungsstarke Tools.Mehr erreichen mit weniger Aufwand.März-Aktion: 20 % Rabatt

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

AutorSun Änderungsdatum

Das Hinzufügen von Tausendertrennzeichen zu Zahlen in einem Word-Dokument kann die Lesbarkeit erheblich verbessern – besonders bei großen Zahlenwerten. Obwohl Microsoft Word keine direkte Funktion zum Einfügen von Tausendertrennzeichen bereitstellt, lassen sich effiziente Lösungen mithilfe von VBA (Visual Basic for Applications) oder praktischen Tools wie Kutools für Word nutzen.

In diesem Tutorial zeigen wir Ihnen Schritt für Schritt, wie Sie Tausendertrennzeichen zu Zahlen in Ihrem Word-Dokument hinzufügen – sowohl mit VBA als auch mit Kutools für Word.

Tausendertrennzeichen hinzufügen mit VBA

Tausendertrennzeichen hinzufügen mit Kutools für Word gute Idee

Tausendertrennzeichen hinzufügen mit VBA

Das Einfügen von Tausendertrennzeichen in große Zahlen kann mühsam sein – besonders, wenn Sie dies immer wieder tun müssen. Mit einem VBA-Code automatisieren Sie den Vorgang im Handumdrehen: Wählen Sie einfach eine Zahl aus und drücken Sie F5, um sofort die Trennzeichen einzufügen.

  1. Wählen Sie die Zahl aus, die Sie mit Tausendertrennzeichen formatieren möchten, und drücken Sie anschließend Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
  2. Klicken Sie auf Einfügen>Modul, und kopieren Sie anschließend den folgenden Code in den 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 der ausgewählten Zahl hinzugefügt.

    Tausendertrennzeichen werden in die ausgewählte Zahl eingefügt

  4. Um einer weiteren Zahl ein Trennzeichen hinzuzufügen, wählen Sie einfach die neue Zahl aus, wechseln Sie zurück zum Modul-Fenster und drücken Sie erneut F5.

Tausendertrennzeichen hinzufügen mit Kutools für Word

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

Kutools für Word

Kutools für Word unterstützt Sie dabei, alltägliche Dokumentaufgaben mithilfe praktischer Werkzeuge direkt in Microsoft Word schneller zu erledigen – ganz ohne Programmierkenntnisse und komplizierte Einrichtung.

  • KI-gestütztes Schreiben, Überarbeiten, Übersetzen und Zusammenfassen
  • Stapelweise Suchen und Ersetzen über mehrere Dokumente hinweg
  • Word-Dokumente einfach zusammenführen und aufteilen
  • Stapelweise Konvertierung zwischen Word und PDF
HerunterladenMehr erfahren

Nach der Installation von Kutools für Wordführen Sie die folgenden Schritte aus:

  1. Um Tausendertrennzeichen hinzufügen auf alle Zahlen im gesamten Dokument anzuwenden, wählen Sie keine Daten aus und klicken Sie auf Kutools>Einfügen>Tausendertrennzeichen hinzufügen.
    Option „Tausendertrennzeichen hinzufügen“ auf der Registerkarte Kutools im Menüband
  2. Ein Dialogfeld erscheint und fragt, ob Sie diese Funktion auf das gesamte Dokument anwenden möchten. Klicken Sie auf Ja.
    Bestätigungsdialog mit der Meldung „Möchten Sie Tausendertrennzeichen zu allen Zahlen im gesamten Dokument hinzufügen?“
  3. Nun wurden allen Zahlen Tausendertrennzeichen hinzugefügt.
    Tausendertrennzeichen werden in alle Zahlen eingefügt

Hinweise:

  • Wenn Sie Tausendertrennzeichen hinzufügen zu Zahlen in einer bestimmten Auswahl hinzufügen möchten, wählen Sie zunächst den Bereich aus und klicken Sie dann auf Kutools>Einfügen>Tausendertrennzeichen hinzufügen.
    Tausendertrennzeichen werden in die Zahlen des ausgewählten Bereichs eingefügt
  • Um die Tausendertrennzeichen zu entfernen, klicken Sie auf Kutools>Entfernen>Alle Tausendertrennzeichen im ausgewählten Bereich entfernen.
    Option „Tausendertrennzeichen entfernen“ auf der Registerkarte Kutools im Menüband

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

Kutools für Word erweitert Microsoft Word um eine Vielzahl praktischer Werkzeuge und hilft Ihnen, Zeit zu sparen und repetitive Aufgaben bei der täglichen Dokumentenbearbeitung zu reduzieren.

HerunterladenMehr erfahren

Beste Office-Produktivitätswerkzeuge

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

🤖KUTOOLS KI-Funktionen: KI-Assistent / Echtzeit-Assistent / Super Polieren (Format beibehalten) / Super Übersetzen (Format beibehalten) / KI-Redaktion / KI-Korrekturlesen …

📘Dokument-Meisterschaft: Seiten aufteilen, Dokumente zusammenführen, Auswahl in verschiedenen Formaten exportieren (PDF/TXT/DOC/HTML …), stapelweise in PDF konvertieren …

✏Inhaltsbearbeitung: Stapelweises Suchen und Ersetzen in mehreren Dateien / Alle Bilder skalieren / Tabelle transponieren – Zeilen und Spalten tauschen / Tabelle in Text umwandeln …

🧹Mühelose Bereinigung: Fegen Sie überflüssige Leerzeichen/Abschnittsumbruch/Textfeld/Hyperlinks/ Weitere Entfernungs-Werkzeuge finden Sie in der EntfernenGruppe …

➕Kreative Einfügungen: Fügen Sie Tausendertrennzeichen/Kontrollkästchen/Optionsfeld/QR-Code/Strichcode/Mehrere Bilder/ Weitere Funktionen finden Sie in der Einfügen-Gruppe …

🔍Präzisionsauswahl: Wählen Sie gezielt bestimmte Seiten, Tabellen, Formen oder Überschriftenabsätze aus – und verbessern Sie Ihre Navigation mit weiteren Auswählen-Funktionen …

⭐Hervorragende Erweiterungen: Zu beliebigen Positionen navigieren / Wiederkehrenden Text automatisch einfügen / Zwischen Dokumentenfenstern wechseln / 11 Konvertierungswerkzeuge Konvertierungs- …

🌍Unterstützt über 40 Sprachen: Nutzen Sie Kutools in Ihrer bevorzugten Sprache – mit Unterstützung für Englisch, Spanisch, Deutsch, Französisch, Chinesisch und über 40 weitere!

Kutools for Word Registerkarten im Menüband
 
 

Office Tab– Bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher

  • Aktivieren Sie die tabbasierte Bearbeitung und das Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Tabs desselben Fensters – statt in separaten Fenstern.
  • Steigert Ihre Produktivität um 50 % und spart Ihnen täglich Hunderte von Mausklicks!

✨ Kutools for Office – Eine Installation, fünf leistungsstarke Werkzeuge!

Enthält Office Tab Pro·Kutools für Excel·Kutools für Outlook·Kutools für Word·Kutools for PowerPoint

📦 Alle 5 Werkzeuge in einem Paket erhalten | 🔗 Nahtlose Integration in Microsoft Office | ⚡ Zeit sparen und sofort die Produktivität steigern

Beste Office-Produktivitätswerkzeuge

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

Kostenlos herunterladenJetzt kaufenWeitere Informationen zu Kutools