Wie füllt man Sequenznummern nach unten ein und überspringt dabei ausgeblendete Zeilen in Excel?

Angenommen, Sie haben einen gefilterten Datenbereich, in den Sie Sequenznummern in die gefilterten leeren Zellen einfügen möchten, wie im folgenden Screenshot gezeigt. In diesem Fall wird das Ziehen des Ausfüllkästchens die Zellen im Allgemeinen nicht korrekt ausfüllen. In diesem Artikel werde ich über einige gute Tricks sprechen, um diese Aufgabe in Excel zu lösen.

Sequenznummern mit Formel nach unten ausfüllen und ausgeblendete Zeilen überspringen

Sequenznummern mit VBA-Code nach unten ausfüllen und ausgeblendete Zeilen überspringen

Sequenznummern mit Kutools für Excel nach unten ausfüllen und ausgeblendete Zeilen überspringen

Sequenznummern mit Formel nach unten ausfüllen und ausgeblendete Zeilen überspringen

Um Sequenznummern nur in sichtbare Zellen einzufügen, kann eine einfache Formel helfen. Bitte gehen Sie wie folgt vor:

1. Geben Sie diese Formel ein: =TEILERGEBNIS(103;$B$3:$B3) (B3 ist die sichtbare Zelle, die der Zelle entspricht, in die Sie mit dem Ausfüllen der Sequenznummer beginnen möchten) in die erste Zelle, in die Sie die Sequenznummern einfügen möchten, A3 in diesem Fall, und drücken Sie dann die Eingabetaste. Sie erhalten eine Zahl 1, siehe Screenshot:

2. Wählen Sie dann die Zelle A3 aus und ziehen Sie den Ausfüllkästchen nach unten in die Zellen, in die Sie die Sequenznummern einfügen möchten, siehe Screenshot:

Sequenznummern mit VBA-Code nach unten ausfüllen und ausgeblendete Zeilen überspringen

Der folgende VBA-Code kann Ihnen auch helfen, die Sequenznummern nur in sichtbare Zellen einzufügen. Gehen Sie bitte wie folgt vor:

1. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Klicken Sie auf Einfügen > Modul und fügen Sie den folgenden Code in das Modulfenster ein.

VBA-Code: Sequenznummern nach unten ausfüllen und 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 dann die Taste F5, um diesen Code auszuführen, und ein Hinweisfenster erscheint, das Sie auffordert, den Datenbereich auszuwählen, den Sie ausfüllen möchten, siehe Screenshot:

4. Klicken Sie dann auf die Schaltfläche OK, und die Sequenznummern wurden nur in die sichtbaren Zellen eingefügt.

Sequenznummern mit Kutools für Excel nach unten ausfüllen und ausgeblendete Zeilen überspringen

Die beiden oben genannten Methoden können Ihnen nur helfen, die Sequenznummern in die sichtbaren Zellen einzufügen. Wenn Sie jedoch eine Sequenz wie AA-0001-BB, AA-0002-BB, AA-0003-BB… ausfüllen möchten, werden die obigen Methoden nicht funktionieren. Aber keine Sorge, Kutools für Excel’s Funktion „Sequenznummer einfügen“ kann Ihnen helfen, dies schnell und einfach zu erledigen.

Nach der Installation von Kutools für Excel gehen Sie bitte wie folgt vor:

1. Wählen Sie die Zellen aus, in die Sie die Sequenzzeichenfolgen einfügen möchten.

2. Klicken Sie auf Kutools > Einfügen > Sequenznummer einfügen. Im Dialogfeld „ Sequenznummer einfügen“ klicken Sie auf die Schaltfläche Neu, siehe Screenshots:

3. Erweitern Sie im erweiterten Dialogfeld die Einstellungen entsprechend Ihren Bedürfnissen im linken unteren Bereich. Gleichzeitig können Sie die Sequenz im rechten unteren Bereich anzeigen, siehe Screenshot:

4. Nachdem Sie die Einstellungen abgeschlossen haben, klicken Sie auf die Schaltfläche Hinzufügen, um dieses neue Element in der obigen Listenbox zu speichern, siehe Screenshot:

6. Wählen Sie dann das erstellte Element aus und klicken Sie auf die Schaltfläche Bereich ausfüllen. Die Sequenzzeichenfolgen wurden nur in die sichtbaren Zellen eingefügt, siehe Screenshot:

Jetzt Kutools für Excel herunterladen und kostenlos testen!

Demo: Sequenznummern mit Kutools für Excel nach unten ausfüllen und ausgeblendete Zeilen überspringen