So überprüfen Sie, ob eine Zeile in Excel ausgeblendet ist
In diesem Artikel erfahren Sie, wie Sie prüfen, ob eine Zeile in einem begrenzten Bereich oder auf einem Arbeitsblatt in Excel ausgeblendet ist.
Prüfen, ob eine Zeile in Ausgewählter Bereich mit VBA-Code ausgeblendet ist
Prüfen, ob eine Zeile in einem Arbeitsblatt mit VBA-Code ausgeblendet ist
Prüfen, ob eine Zeile in Ausgewählter Bereich mit VBA-Code ausgeblendet ist
Gehen Sie wie folgt vor, um zu prüfen, ob in einem Bereich Zeilen ausgeblendet sind, und um die Nummern der ausgeblendeten Zeilen zu ermitteln.
1. Wählen Sie den Bereich aus, in dem Sie nach ausgeblendeten Zeilen suchen möchten. Drücken Sie die Tasten Alt + F11, um das Fenster Microsoft Visual Basic für Applikationen zu öffnen.
2. Klicken Sie im Fenster Microsoft Visual Basic für Applikationen auf Einfügen > Modul. Anschließend kopieren Sie den unten stehenden VBA-Code in das Codefenster.
VBA-Code: Suche nach ausgeblendeten Zeilen in Ausgewählter 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 Sub3. Drücken Sie die Taste F5, um den Code auszuführen.
Anschließend wird ein Microsoft Excel-Dialogfeld angezeigt, das Ihnen die ausgeblendeten Zeilen wie im folgenden Screenshot zeigt.
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.
Prüfen, ob eine Zeile in einem Arbeitsblatt mit VBA-Code ausgeblendet ist
Der folgende VBA-Code hilft Ihnen, nach ausgeblendeten Zeilen in einem Excel-Arbeitsblatt zu suchen. Gehen Sie dazu wie folgt vor:
1. Öffnen Sie das Arbeitsblatt, in dem Sie nach ausgeblendeten Zeilen suchen möchten, und drücken Sie die Tasten Alt+F11, um das Fenster Microsoft Visual Basic für Applikationen zu öffnen.
2. Klicken Sie im Microsoft Visual Basic für Applikationen auf Einfügen > Modul. Kopieren Sie anschließend den unten stehenden VBA-Code in das Codefenster.
VBA-Code: Prü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 Sub3. Drücken Sie F5, um den Code auszuführen.
Anschließend wird ein Microsoft Excel-Dialogfeld angezeigt, das Ihnen die ausgeblendeten Zeilen im aktuellen Arbeitsblatt wie im folgenden Screenshot zeigt.
Hinweis: Wenn im ausgewählten Bereich oder im Arbeitsblatt keine ausgeblendeten Zeilen vorhanden sind, wird das Dialogfeld wie im folgenden Screenshot gezeigt angezeigt.
Verwandte Artikel:
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