Wie kann ich nach dem Filtern in Excel automatisch nummerieren oder neu nummerieren?

Wie wir alle wissen, werden nach dem Filtern der Daten mit einer Liste von Seriennummern die Zeilennummern im Arbeitsblatt genauso angezeigt wie die ursprünglichen Nummern. Sie werden nicht automatisch neu nummeriert. Manchmal möchten Sie die Zeilen jedoch wie folgt in dem gefilterten Arbeitsblatt als Reihenfolge neu nummerieren. In diesem Artikel werde ich darüber sprechen, wie man nach dem Filtern in Excel automatisch nummeriert oder neu nummeriert.

Automatische Nummerierung oder Nachnummerierung nach Filterung mit VBA-Code

Automatische Nummerierung oder Nachnummerierung nach Filterung mit Kutools for Excel

Automatische Nummerierung oder Nachnummerierung nach Filterung mit VBA-Code

Im gefilterten Status können Sie das Autofill-Handle nicht anwenden, um die Zahlenfolge zu füllen. Sie können sie nur füllen, indem Sie die Zahlen einzeln eingeben. Dies ist jedoch mühsam und zeitaufwändig, wenn viele Zellen neu nummeriert werden müssen. Hier werde ich einen VBA-Code einführen, um diese Aufgabe zu lösen.

1. Halten Sie die Taste gedrückt ALT + F11 Tasten, und es öffnet die Microsoft Visual Basic für Applikationen-Fenster.

2. Klicken Sie Insert > Modulund fügen Sie das folgende Makro in das Feld ein Modulfenster.

VBA-Code: Automatische Nummerierung oder Nachnummerierung nach dem Filter

Sub Renumbering()
	'Updateby Extendoffice
	Dim Rng As Range
	Dim WorkRng As Range
	On Error Resume Next
	xTitleId = "KutoolsforExcel"
	Set WorkRng = Application.Selection
	Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)
	Set WorkRng = WorkRng.Columns(1).SpecialCells(xlCellTypeVisible)
	xIndex = 1
	For Each Rng In WorkRng
		Rng.Value = xIndex
		xIndex = xIndex + 1
	Next
End Sub

3. Nach dem Einfügen des Codes drücken Sie bitte F5 Wenn Sie die Taste drücken, um diesen Code auszuführen, wird ein Eingabeaufforderungsfeld angezeigt, das Sie daran erinnert, dass Sie Bereichszellen auswählen, die Sie automatisch nummerieren oder die Zeilen neu nummerieren möchten.

4. Dann klick OKund Ihre ausgewählten Bereichszellen wurden nacheinander wie im folgenden Screenshot neu nummeriert:

Hinweis: Dieser Code zerstört die ursprünglichen Serienzeilennummern, wenn Sie die Filterfunktion abbrechen. Sie müssen also zuerst Ihre Daten sichern.

Automatische Nummerierung oder Nachnummerierung nach Filterung mit Kutools for Excel

Wenn Sie installiert haben Kutools for Excel, mit seiner mächtigen Sequenznummer einfügen Mit dieser Funktion können Sie Sequenznummern nur schnell und einfach in die gefilterten Daten einfügen.

Nach der Installation Kutools for ExcelBitte gehen Sie wie folgt vor:

1. Wählen Sie die Zellen aus, die Sie für die gefilterten Daten neu nummerieren möchten.

2. Dann klick Kutoolen > Insert > Sequenznummer einfügen, siehe Screenshot:

3. Dann tauchte der auf Sequenznummer einfügen Dialogfeld, klicken Sie auf Neu Schaltfläche, siehe Screenshot:

4. Erstellen Sie dann die Sequenzlistennummern nach Bedarf im linken unteren Bereich, siehe Screenshot:

5. Klicken Sie nach dem Einstellen der Reihenfolge auf Verwenden Sie Klicken Sie auf die Schaltfläche, und das Sequenzelement wurde dem Dialogfeld hinzugefügt. Siehe Screenshot:

6. Und dann klick Füllbereich,  und die gefilterten Daten wurden sofort neu nummeriert. Siehe Screenshot:

Laden Sie Kutools for Excel jetzt herunter und testen Sie es kostenlos!

Demo: Automatische Nummerierung oder Neunummerierung nach Filterung mit Kutools for Excel

In Verbindung stehender Artikel:

Wie nummeriere ich zusammengeführte Zellen in Excel automatisch?

---

Die besten Tools für die Office-Produktivität

Kutools for Excel löst die meisten Ihrer Probleme und erhöht Ihre Produktivität um 80%

• Wiederverwendung: Schnell einfügen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
• Super Formelriegel (leicht mehrere Textzeilen und Formeln bearbeiten); Layout lesen (leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
• Zellen / Zeilen / Spalten zusammenführen ohne Daten zu verlieren; Inhalt geteilter Zellen; Kombinieren Sie doppelte Zeilen / Spalten... doppelte Zellen verhindern; Bereiche vergleichen...
• Wählen Sie Duplizieren oder Eindeutig Reihen; Wählen Sie Leere Zeilen (alle Zellen sind leer); Super Find und Fuzzy Find in vielen Arbeitsmappen; Zufällige Auswahl ...
• Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen zu mehreren Blättern; Aufzählungszeichen einfügen, Kontrollkästchen und mehr ...
• Text extrahieren, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen;; Paging-Zwischensummen erstellen und drucken; Inhalt und Kommentare zwischen Zellen konvertieren...
• Superfilter (Speichern und Anwenden von Filterschemata auf andere Blätter); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
• Kombinieren Sie Arbeitsmappen und Arbeitsblätter;; Tabellen basierend auf Schlüsselspalten zusammenführen; Daten in mehrere Blätter aufteilen; Batch-Konvertierung von xls, xlsx und PDF...
• Mehr als 300 leistungsstarke Funktionen. Unterstützt Office / Excel 2007-2021 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. 30-tägige kostenlose Testversion mit allen Funktionen. 60 Tage Geld-zurück-Garantie.

Lesen Sie mehr... Kostenfreier Download... Kauf... 

---

Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich

• Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
• Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
• Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!

Lesen Sie mehr... Kostenfreier Download... Kauf...