Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Prüfen ob Zeile sichtbar

Prüfen ob Zeile sichtbar
06.01.2009 10:22:01
Christian
Hallo,
kann mir jemand einen Tipp geben wie ich per VBA überprüfen kann ob die Zeile sichtbar ist oder nicht.
z.b. will eine Forschleife von 1 bis 100 durchlaufen lassen, wobei er nur die Zeilen nehmen soll die nach der Filterung noch sichtbar sind.
Vielen Dank schon mal für die Mühe.
Gruß
Christian
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Prüfen ob Zeile sichtbar
06.01.2009 10:40:00
Leonhard
Hallo Christian,
ich denke das solle funktionieren.
If Sheets("Tabelle1").Rows(2).EntireRow.Hidden = False Then MsgBox "Sichtbar" Else MsgBox "unsichtbar"
Gruß Leo
AW: Prüfen ob Zeile sichtbar
06.01.2009 11:04:00
Christian
Vielen Dank,
manchmal denkt man viel zu kompliziert. : )
Gruß
Christian
AW: Prüfen ob Zeile sichtbar
06.01.2009 13:02:00
Daniel
Hi
wenn du in einer gefilterten Datenbank nur die sichtbaren Zellen haben willst, dann geht das z.B. auch so:
Range("A2:A100").specialcells(xlcelltypeblanks).select
das entspricht der Excelfunktion BEARBEITEN - GEHE ZU - INHALTE - SICHTBARE
Gruß, Daniel
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Prüfen ob Zeile sichtbar in Excel


Schritt-für-Schritt-Anleitung

Um zu überprüfen, ob eine Zeile in Excel sichtbar ist, kannst Du VBA (Visual Basic for Applications) verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
  2. Füge ein neues Modul hinzu, indem Du mit der rechten Maustaste auf „VBAProject (DeinDateiname)“ klickst und „Einfügen“ > „Modul“ wählst.
  3. Kopiere und füge den folgenden Code in das Modul ein:
Sub CheckVisibleRows()
    Dim i As Integer
    For i = 1 To 100
        If Sheets("Tabelle1").Rows(i).EntireRow.Hidden = False Then
            MsgBox "Zeile " & i & " ist sichtbar"
        Else
            MsgBox "Zeile " & i & " ist unsichtbar"
        End If
    Next i
End Sub
  1. Schließe den VBA-Editor und kehre zu Excel zurück.
  2. Führe das Makro aus, indem Du ALT + F8 drückst, das Makro auswählst und auf „Ausführen“ klickst.

Damit kannst Du überprüfen, ob die Zeilen 1 bis 100 sichtbar sind oder nicht.


Häufige Fehler und Lösungen

  • Fehler: „Laufzeitfehler 1004: Die Zeile ist nicht sichtbar.“

    • Lösung: Stelle sicher, dass Du die richtige Tabelle ausgewählt hast. Überprüfe, ob die Zeilen gefiltert oder ausgeblendet sind.
  • Fehler: „Der VBA-Editor lässt sich nicht öffnen.“

    • Lösung: Dies könnte an den Excel-Einstellungen liegen. Stelle sicher, dass Makros aktiviert sind. Gehe zu „Datei“ > „Optionen“ > „Trust Center“ > „Einstellungen für das Trust Center“ und aktiviere Makros.

Alternative Methoden

Falls Du keine VBA-Programmierung verwenden möchtest, kannst Du auch die Excel-Funktion „Sichtbare Zellen auswählen“ nutzen. Hier ist eine einfache Methode:

  1. Wähle den Zellbereich aus, den Du filtern möchtest (z.B. A2:A100).
  2. Gehe zu „Start“ > „Suchen und Auswählen“ > „Gehe zu Spezial“.
  3. Wähle „Sichtbare Zellen“ aus und klicke auf „OK“.

Diese Methode ist besonders nützlich, wenn Du mit gefilterten Daten arbeitest und nur die sichtbaren Zellen bearbeiten möchtest.


Praktische Beispiele

Hier sind einige Beispiele, wie Du die Sichtbarkeit von Zeilen in verschiedenen Szenarien nutzen kannst:

  • Beispiel 1: Überprüfen, welche Zeilen nach einer Filterung sichtbar sind.
  • Beispiel 2: Zähle die sichtbaren Zeilen in einem bestimmten Bereich:
Sub CountVisibleRows()
    Dim count As Integer
    Dim i As Integer
    count = 0
    For i = 1 To 100
        If Sheets("Tabelle1").Rows(i).EntireRow.Hidden = False Then
            count = count + 1
        End If
    Next i
    MsgBox "Es sind " & count & " sichtbare Zeilen."
End Sub

Tipps für Profis

  • Nutze die SpecialCells-Methode, um schnell nur die sichtbaren Zellen zu arbeiten. Beispiel:
Range("A2:A100").SpecialCells(xlCellTypeVisible).Select
  • Du kannst auch benutzerdefinierte Filter in Excel verwenden, um nur die relevanten Daten anzuzeigen, bevor Du mit VBA arbeitest.

FAQ: Häufige Fragen

1. Wie kann ich alle sichtbaren Zeilen in einem bestimmten Bereich kopieren?
Du kannst die SpecialCells-Methode verwenden, um nur die sichtbaren Zeilen zu kopieren und in einen anderen Bereich einzufügen.

2. Funktioniert das auch in Excel 365?
Ja, der beschriebene VBA-Code und die Methoden funktionieren in Excel 365 und anderen Versionen von Excel, die VBA unterstützen.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige