Wie füllt man fortlaufende Zahlen nach unten aus und überspringt dabei ausgeblendete Zeilen in Excel?
Angenommen, Sie haben einen Filter Datenbereich, den Sie nach unten in die gefilterte leere Zelle ausfüllen möchten, wie im folgenden Screenshot gezeigt. In diesem Fall führt das Ziehen des Ausfüllkästchens im Allgemeinen nicht zu einem korrekten Ausfüllen der Zellen. In diesem Artikel werde ich einige nützliche Methoden zur Lösung dieser Aufgabe in Excel vorstellen.
 |  |  |
Nach unten ausfüllen Aufeinanderfolgende Zahlen und dabei ausgeblendete Zeilen überspringen – mit Kutools für Excel
Nach unten ausfüllen Aufeinanderfolgende Zahlen und dabei ausgeblendete Zeilen überspringen – mit Formel
Um fortlaufende Zahlen nur in die sichtbaren Zellen nach unten auszufüllen, hilft Ihnen eine einfache Formel. Gehen Sie dazu wie folgt vor:
1. Geben Sie diese Formel ein: =TEILERGEBNIS(103;$B$3:$B3) (B3 ist die sichtbare Zelle, die der Zelle entspricht, ab der Sie die Sequenznummer ausfüllen möchten) in die erste Zelle, in die Sie aufeinanderfolgende Zahlen eintragen möchten – in diesem Beispiel A3 – und drücken Sie anschließend die Eingabetaste, um die Zahl 1 zu erhalten (siehe Screenshot):
2. Wählen Sie dann die Zelle A3 aus und ziehen Sie das Ausfüllkästchen nach unten bis zu den Zellen, in die Sie aufeinanderfolgende Zahlen einfügen möchten (siehe Screenshot):
Nach unten ausfüllen Aufeinanderfolgende Zahlen und dabei ausgeblendete Zeilen überspringen – mit VBA-Code
Der folgende VBA-Code hilft Ihnen ebenfalls, fortlaufende Zahlen ausschließlich in sichtbare Zellen einzufügen. Gehen Sie dazu wie folgt vor:
1. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic für Applikationen zu öffnen.
2. Klicken Sie auf Einfügen > Modul, und fügen Sie den folgenden Code in das Modul-Fenster ein.
VBA-Code: Nach unten ausfüllen Aufeinanderfolgende Zahlen und dabei ausgeblendete Zeilen überspringen:
Sub FillValue()
'updateby Extendoffice
Dim xRg As Range
Dim xCell As Range
Dim xTxt As String
Dim xVal As Long
Dim I As Long
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the data range", "Kutools for Excel", xTxt, , , , , 8)
Set xRg = xRg.SpecialCells(xlVisible)
Debug.Print xRg.Address
If xRg Is Nothing Then Exit Sub
For Each xCell In xRg
xVal = xVal + 1
xCell = xVal
Next
End Sub
3. Drücken Sie anschließend die Taste F5, um diesen Code auszuführen. Es erscheint ein Eingabefeld, das Sie auffordert, den Datenbereich auszuwählen, den Sie ausfüllen möchten (siehe Screenshot):
4. Klicken Sie danach auf die Schaltfläche OK, und aufeinanderfolgende Zahlen wurden ausschließlich in die sichtbaren Zellen eingetragen.
Nach unten ausfüllen Aufeinanderfolgende Zahlen und dabei ausgeblendete Zeilen überspringen – mit Kutools für Excel
Die beiden oben genannten Methoden füllen fortlaufende Zahlen nur in sichtbare Zellen ein. Möchten Sie jedoch eine durchgehende Sequenz wie AA-0001-BB, AA-0002-BB, AA-0003-BB… erstellen, stoßen diese Methoden an ihre Grenzen. Keine Sorge: Mit der Kutools für Excel-Funktion Sequenznummer einfügen erledigen Sie das schnell und mühelos.
Nach der Installation von Kutools für Excelgehen Sie wie folgt vor:
1. Wählen Sie die Zellen aus, in die Sie fortlaufende Zeichenfolgen einfügen möchten.
2. Klicken Sie auf Kutools > Einfügen > Sequenznummer einfügen. Klicken Sie im Dialogfeld Sequenznummer einfügen auf die Schaltfläche Neu (siehe Screenshots):
 | |  |
3. Geben Sie im erweiterten Dialogfeld Ihre gewünschten Einstellungen im unteren linken Bereich ein – und sehen Sie sich gleichzeitig die resultierende Sequenz im unteren rechten Bereich in der Vorschau an (siehe Screenshot):
4. Klicken Sie nach der Vornahme der Einstellungen auf die Schaltfläche Hinzufügen, um diesen neuen Eintrag in der obigen Liste zu speichern (siehe Screenshot):
6. Wählen Sie anschließend den von Ihnen erstellten Eintrag aus und klicken Sie auf die Schaltfläche Bereich ausfüllen. Die fortlaufenden Zeichenfolgen wurden nun ausschließlich in die sichtbaren Zellen eingefügt (siehe Screenshot):
Laden Sie Kutools für Excel jetzt herunter und testen Sie es kostenlos!
Demo: Nach unten ausfüllen Aufeinanderfolgende Zahlen und dabei ausgeblendete Zeilen überspringen – mit Kutools für Excel
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins