Wie verhindert man die automatische Nummerierung in der doppelten Spaltenkopfzeile einer Excel-Tabelle?

Wenn Sie in Excel eine doppelte Spaltenüberschrift in einer Tabelle eingeben, fügt Excel automatisch eine fortlaufende Zahl hinzu – beispielsweise „Name“, „Name1“, „Name2“ – und diese Nummerierung lässt sich nicht entfernen, wie im folgenden Screenshot gezeigt. Um die automatische Nummerierung bei doppelten Spaltenüberschriften zu vermeiden, können Sie ein nachgestelltes Leerzeichen an die wiederholten Überschriften anhängen. Der folgende VBA-Code hilft Ihnen dabei, die Überschrift zu duplizieren und automatisch ein Leerzeichen am Ende hinzuzufügen, sodass sich die Bezeichnungen technisch unterscheiden, optisch jedoch identisch erscheinen.

Automatisches Hinzufügen von Leerzeichen am Ende zur Kopfzeile

Hinweis: Die in diesem Tutorial vorgestellten Methoden wurden in Excel 2021 getestet – bei anderen Excel-Versionen können Abweichungen auftreten.

1. Geben Sie die gewünschten zu wiederholenden Kopfzeilen in eine Spalte ein und drücken Sie anschließend Alt+F11, um das Fenster Microsoft Visual Basic für Applikationen zu öffnen.

2. Klicken Sie auf Einfügen > Modul, um ein neues Modul im Fenster Microsoft Visual Basic für Applikationen zu erstellen, und fügen Sie den folgenden Code darin ein.

VBA: Wiederholen und Leerzeichen am Ende hinzufügen

Sub repeat()
'UpdatebyExtendoffice20220927
    Dim xRg As Range
    Dim saveRg As Range
    Dim xIndex As Integer
    Dim xCount As Integer
    Dim k As Integer
    Dim xStr As String
    Set xRg = Application.InputBox("Select the cells that you want to repeat", "kte", , , , , , 8)
    xIndex = Application.InputBox("Enter the repeat times", "kte")
    Set saveRg = Application.InputBox("Select a cell to output", "kte", , , , , , 8)
    xStr = ""
    xCount = xRg.Cells.Count * xIndex
    Set saveRg = saveRg.Range("a1").Resize(1, xCount)
    k = 0
    For i = 1 To xIndex
        For j = 1 To xRg.Cells.Count
            k = k + 1
            saveRg.Cells(k).Value = xRg.Cells(j).Value + xStr
        Next
        xStr = xStr + " "
    Next
End Sub

3. Klicken Sie im Menüband auf die Schaltfläche Ausführen oder drücken Sie die Taste F5, um den Code auszuführen. Wählen Sie im ersten erscheinenden Dialogfeld die zu wiederholenden Kopfzeilen aus und klicken Sie auf OK.

4. Geben Sie im zweiten erscheinenden Dialogfeld die gewünschte Anzahl der Wiederholungen ein und klicken Sie auf OK.

5. Wählen Sie eine Zelle aus, in der die wiederholten Kopfzeilen erscheinen sollen, und klicken Sie auf OK.

Die Kopfzeilen wurden nun wiederholt und am Ende mit Leerzeichen ergänzt.

6. Markieren Sie die Kopfzeilen und kopieren Sie sie mit Strg+C. Fügen Sie sie anschließend mit Strg+Vin die gewünschte Tabelle wieder ein.

Nun sehen Sie, dass die Tabelle doppelte Spaltenüberschriften ohne Nummerierung enthält.

Entfesseln Sie die Magie von Excel mit KUTOOLS AI

• Intelligente Ausführung: Führen Sie Zelloperationen durch, analysieren Sie Daten und erstellen Sie Diagramme – alles ganz einfach per Sprachbefehl.
• Benutzerdefinierte Formeln: Erstellen Sie maßgeschneiderte Formeln, um Ihre Arbeitsabläufe optimal zu optimieren.
• VBA-Programmierung: Schreiben und implementieren Sie VBA-Code ganz mühelos.
• Formelinterpretation: Verstehen Sie komplexe Formeln spielend leicht.
• Textübersetzung: Überwinden Sie Sprachbarrieren direkt in Ihren Tabellenkalkulationen.

Erweitern Sie Ihre Excel-Fähigkeiten mit KI-gestützten Werkzeugen.Jetzt herunterladenund erleben Sie Effizienz wie nie zuvor!

---

Die besten Office-Produktivitätswerkzeuge

Kutools für Excel löst die meisten Ihrer Probleme und steigert Ihre Produktivität um 80 %

• Super-Formelleiste (müheloses Bearbeiten mehrerer Text- und Formelzeilen); Leseansicht (einfaches Lesen und Bearbeiten großer Zellmengen); Einfügen in Filterbereich...
• Zusammengeführte Zellen, Zeilen oder Spalten und deren Daten beibehalten; Zellen aufteilen – Inhalt erhalten;Doppelte Zeilen kombinieren und dabei Summe oder Mittelwert berechnen … Duplikate vermeiden – in Zellen;Bereiche vergleichen …
• Duplikate oder Eindeutige Zeilen auswählen;Leerzeilen auswählen (alle Zellen sind leer);Erweiterte und unscharfe Suche in vielen Arbeitsmappen; zufällige Auswahl …
• Exakte Kopie mehrerer Zellen, ohne Formelbezüge zu ändern; Automatische Erstellung von Bezügen auf mehrere Blätter; Aufzählungszeichen einfügen, Kontrollkästchen und vieles mehr …
• Favorisierte Formeln, Bereiche, Diagramme und Bilder schnell einfügen;Zellen mit Passwort verschlüsseln;Mailing-Liste erstellen und E-Mails versenden...
• Text extrahieren, Text hinzufügen, Zeichen an einer bestimmten Position entfernen,Leerzeichen bereinigen; Statistiken zu Arbeitsblättern erstellen und drucken;Umwandlung zwischen Zellinhalt und Kommentaren...
• Super-Filter (Speichern und Anwenden von Filterschemata auf andere Blätter); Erweitertes Sortieren nach Monat, Woche, Tag, Häufigkeit und mehr; Spezialfilter nach Fett, Kursiv …
• Arbeitsmappen und Arbeitsblätter kombinieren; Tabellen basierend auf einer Schlüsselspalte zusammenführen; Daten auf mehrere Blätter aufteilen; Batch-Konvertierung von XLS, XLSX und PDF...
• PivotTable-Gruppierung nach Kalenderwoche, Wochentag und mehr …Entsperrte anzeigen, Auswahl sperren farblich hervorheben;Zellen hervorheben, die Formeln oder Namen enthalten …

Weiterlesen...Vollständige Funktionen – 30-tägige kostenlose Testversion...Kaufen... 

---

Office Tab – bringt eine tabbasierte Oberfläche in Office und erleichtert Ihre Arbeit erheblich

• Aktiviert tabbasiertes Bearbeiten und Lesen in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
• Öffnen und Erstellen mehrerer Dokumente in neuen Registerkarten innerhalb desselben Fensters – statt in separaten Fenstern.
• Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!

Weiterlesen...Vollständige Funktionen – 30-tägige kostenlose Testversion...Kaufen...