Wie kann man überprüfen, ob eine Zeile in Excel ausgeblendet ist?

Dieser Artikel beschreibt, wie man überprüft, ob eine Zeile in einem bestimmten Bereich oder Arbeitsblatt in Excel ausgeblendet ist.

Überprüfen Sie mit VBA-Code, ob eine Zeile im ausgewählten Bereich ausgeblendet ist
Überprüfen Sie mit VBA-Code, ob eine Zeile im Arbeitsblatt ausgeblendet ist

Überprüfen Sie mit VBA-Code, ob eine Zeile im ausgewählten Bereich ausgeblendet ist

Gehen Sie wie folgt vor, um zu überprüfen, ob Zeilen im ausgewählten Bereich ausgeblendet sind und die Nummer der ausgeblendeten Zeile zu finden.

1. Wählen Sie den Bereich aus, den Sie auf ausgeblendete Zeilen überprüfen möchten. Drücken Sie die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Klicken Sie im Fenster Microsoft Visual Basic for Applications auf Einfügen > Modul. Kopieren Sie dann den folgenden VBA-Code in das Codefenster.

VBA-Code: Überprüfen auf ausgeblendete Zeilen im ausgewählten Bereich

Sub HiddenRowsInRange()
'Update by Extendoffice 2018/5/15
    Dim I As Long
    Dim xStr As String
    Dim xOne, xTwo As Long
    Dim xRg, xRgVsb, xRgItem As Range
    On Error Resume Next
    Set xRg = Range("A1:A100")
    Set xRgVsb = xRg.SpecialCells(xlCellTypeVisible)
   If xRg.Count <> xRgVsb.Count Then
        For I = 1 To xRgVsb.Areas.Count - 1
            Set xRgItem = xRgVsb.Areas.Item(I)
            xOne = xRgItem.Rows(xRgItem.Rows.Count).Row
            xTwo = xRgVsb.Areas.Item(I + 1).Rows(1).Row
            xStr = xStr & Str(xOne + 1) & " --" & Str(xTwo - 1) & ","
        Next
        xStr = Left(xStr, Len(xStr) - 1)
        MsgBox "Hidden rows in selected range are:" & xStr
    Else
        MsgBox "No rows hidden"
    End If
End Sub

3. Drücken Sie die Taste F5, um den Code auszuführen.

Dann erscheint ein Microsoft Excel-Dialogfeld, das Ihnen die ausgeblendeten Zeilen wie im folgenden Screenshot angezeigt.

Entfesseln Sie die Magie von Excel mit Kutools AI

• Intelligente Ausführung: Führen Sie Zellenoperationen durch, analysieren Sie Daten und erstellen Sie Diagramme – alles angetrieben durch einfache Befehle.
• Benutzerdefinierte Formeln: Erstellen Sie maßgeschneiderte Formeln, um Ihre Arbeitsabläufe zu optimieren.
• VBA-Codierung: Schreiben und implementieren Sie VBA-Code mühelos.
• Formelinterpretation: Verstehen Sie komplexe Formeln mit Leichtigkeit.
• Textübersetzung: Überwinden Sie Sprachbarrieren in Ihren Tabellen.

Erweitern Sie Ihre Excel-Fähigkeiten mit KI-gestützten Tools. Laden Sie jetzt herunter und erleben Sie eine Effizienz wie nie zuvor!

Überprüfen Sie mit VBA-Code, ob eine Zeile im Arbeitsblatt ausgeblendet ist

Der folgende VBA-Code kann Ihnen helfen, nach ausgeblendeten Zeilen in einem Arbeitsblatt in Excel zu suchen. Gehen Sie wie folgt vor.

1. Öffnen Sie das Arbeitsblatt, das Sie auf ausgeblendete Zeilen überprüfen möchten, und drücken Sie die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Klicken Sie im Fenster Microsoft Visual Basic for Applications auf Einfügen > Modul. Kopieren Sie dann den folgenden VBA-Code in das Codefenster.

VBA-Code: Überprüfen, ob eine Zeile im Arbeitsblatt ausgeblendet ist

Sub HiddenRowsInSheet()
'Update by Extendoffice 2018/5/15
    Dim I As Long
    Dim xStr As String
    Dim xOne, xTwo As Long
    Dim xRg, xRgVsb, xRgItem As Range
    On Error Resume Next
    Set xRg = ActiveSheet.UsedRange
    Set xRgVsb = xRg.SpecialCells(xlCellTypeVisible)
    Debug.Print xRgVsb.Address
    If xRg.Count <> xRgVsb.Count Then
        For I = 1 To xRgVsb.Areas.Count - 1
            Set xRgItem = xRgVsb.Areas.Item(I)
            xOne = xRgItem.Rows(xRgItem.Rows.Count).Row
            xTwo = xRgVsb.Areas.Item(I + 1).Rows(1).Row
            xStr = xStr & Str(xOne + 1) & " --" & Str(xTwo - 1) & ","
        Next
        xStr = Left(xStr, Len(xStr) - 1)
        MsgBox "Hidden rows in active sheet are:" & xStr
    Else
        MsgBox "No rows hidden"
    End If
End Sub

3. Drücken Sie die Taste F5, um den Code auszuführen.

Dann erscheint ein Microsoft Excel-Dialogfeld, das Ihnen die ausgeblendeten Zeilen im aktuellen Arbeitsblatt wie im folgenden Screenshot angezeigt.

Hinweis: Wenn keine ausgeblendeten Zeilen im ausgewählten Bereich oder Arbeitsblatt vorhanden sind, erhalten Sie das Dialogfeld wie im folgenden Screenshot gezeigt.

Verwandte Artikel:

• Wie kann man überprüfen, ob das erste Zeichen in einer Zelle ein Buchstabe oder eine Zahl in Excel ist?