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

Suche im ausgeblendeten Tabellenbereich

Forumthread: Suche im ausgeblendeten Tabellenbereich

Suche im ausgeblendeten Tabellenbereich
19.07.2014 20:36:52
Holm

Hallo liebes Forum,
ich habe normalerweise die Zeilen 1000-1500 ausgeblendet, weil ich die selten benötige.
Wenn ich über die Such-Funktion nun einen bestimmten Begriff in der Tabelle suche und dieser befindet sich im ausgeblendeten Bereich, wird der Begriff nicht gefunden.
Kann man es irgendwie einstellen, dass ein Suchbegriff auch im ausgeblendeten Bereich gefunden wird bzw dass der ausgeblendete Bereich bei einem Suchergebniss dort drin automatisch eingeblendet wird?
Danke im Voraus!

Anzeige

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Suche im ausgeblendeten Tabellenbereich
19.07.2014 22:46:06
Ralf P.
Hallo,
mit der manuellen Suche findet der das nicht.
Im Makro mit Range.Find findet der das.
Gruß
Ralf

Das ist ein Irrtum, ...
20.07.2014 01:05:25
Luc:-?
…Ralf,
denn .Find entspricht dieser „manuellen Suche“! :-]
Werte in ausgeblendeten Bereichen findet man nur mit Fml (auch per VBA möglich) oder durch zellenweises Durchsuchen per PgmZyklus (sog Schleife → speziell For Each … In …). Alternativ können die Werte des SuchBereichs auch zuvor in eine der Array-Arten eingelesen bzw ein solches über die Bereichswerte gebildet wdn (u.a. per Dictionary), was die Suche beschleunigt.
Morrn, Luc :-?

Anzeige
AW: ich fürchte nicht!
21.07.2014 12:39:51
Ralf P.
Hallo luc,
kopiere ins direktfenster:
rows(5).Hidden=true: cells(5,5)="321" : ? cells.Find("321").Address : ? cells.Find("321").EntireRow.Hidden
[enter]
ergebnis:
$E$5
Wahr
Gruß
Ralf

Korrigiere mich: Dann aber entweder nur mit ...
21.07.2014 17:00:33
Luc:-?
…dieser rudimentären .Find-Parametrierung (für die anderen Angaben wdn dann Default-Werte angenommen), Ralf,
oder mit LookIn:=xlFormulas! Bei Verwendung von xlValues hierfür wird nichts gefunden (im DirektFenster gibt's bei entsprd Befehlsergänzung einen LaufzeitFehler)!
Darauf muss man dann aber auch erst mal kommen, auch, wenn man weiß, dass .Formulas stets auch einen einfachen WertEintrag zurückgibt, nicht nur Fmln! ;-)
Gruß, Luc :-?

Anzeige
AW: Korrigiere mich: Dann aber entweder nur mit ...
22.07.2014 09:34:10
Ralf P.
Das verhält sich doch recht eigentümlich..
Naja, wieder was gelernt.
Ich suche eigtl nicht in ausgeblendeten Bereichen.
Gruß
Ralf
Option Explicit
Sub luc_wills_wissen()
Dim Rng1 As Range
Dim Rng2 As Range
Dim Suche As Range
Cells.Delete
Set Rng1 = Cells(10, 8)
Set Rng2 = Rng1.Offset(2, 5)
Rng1 = "luc_wills_wissen"
Rng2.FormulaR1C1 = "=COUNTIF(R1C1:R10C8,""luc_wills_wissen"")"
Range(Rows(1), Rows(100)).Hidden = True
Set Suche = Nothing
Set Suche = Cells.Find("luc_wills_wissen") ', LookIn:=xlValues, lookat:=xlWhole, MatchCase:= _
True)
MsgBox "TextMatchSuche: " & Suche.Address & vbTab & Suche.Value
Set Suche = Nothing
Set Suche = Cells.Find("wills") ', LookIn:=xlValues, lookat:=xlPart, MatchCase:=True)
MsgBox "TextTeilSuche: " & Suche.Address & vbTab & Suche.Value
Set Suche = Nothing
Set Suche = Cells.Find("luc_wills_wissen", after:=Range("H10"), LookIn:=xlFormulas, lookat:= _
xlWhole, MatchCase:=True)
MsgBox "FormelMatchSuche: " & Suche.Address & vbTab & Suche.Value
Set Suche = Nothing
Set Suche = Cells.Find("wills", LookIn:=xlFormulas, lookat:=xlPart, MatchCase:=True)
MsgBox "FormelTeilSuche: " & Suche.Address & vbTab & Suche.Value
Set Suche = Nothing
End Sub

Anzeige
Allerdings kann auf diese Weise der Begriff ...
22.07.2014 00:43:44
Luc:-?
…auch manuell gefunden wdn, Ralf,
denn es handelt sich ja um die gleiche Methode… ;-)
Luc :-?

aber nur mit suchen in: Formeln...
22.07.2014 09:30:10
Ralf P.
.. gut zu wissen
Ralf

Das sagte ich ja; aber wenn ein FmlErgebnis ...
22.07.2014 14:05:59
Luc:-?
…gesucht wdn soll, Ralf,
muss definitiv xlValues verwendet wdn und dann wird das so nichts, warum auch immer MS die Methode so angelegt hat…
Gruß, Luc :-?

Anzeige
AW: Suche im ausgeblendeten Tabellenbereich
20.07.2014 01:12:18
Daniel
Hi
Wenn du nur innerhalb einer Spalte suchst, kannst du dir mit Application.Match Worksheetfunction.Match die Zeilennummer ermitteln lassen.
Das funktioniert ähnlich wie die Vergleich-Funktion in Excel und sucht daher auch in ausgeblendeten Zeilen.
Mit der Zeilennummer kannst du dann die Zelle auswählen.
Gruß Daniel

Anzeige
AW: Suche im ausgeblendeten Tabellenbereich
20.07.2014 09:36:37
Hajo_Zi
oder der Code mit Find.
Option Explicit
Sub SuchenAusgeblendet()
Dim RaFound As Range
Set RaFound = Columns(1).Find("Erledigt", Range("A" & Rows.Count), xlFormulas, _
xlWhole, , xlNext)
If Not RaFound Is Nothing Then
MsgBox RaFound.Row
End If
End Sub

Anzeige
AW: Suche im ausgeblendeten Tabellenbereich
20.07.2014 12:33:01
Holm
Hallo,
danke für eure Vorschläge!! :-)
Wenn wir das Problem:
https://www.herber.de/forum/messages/1371229.html
hinbekommen, wäre die Suche im ausgeblendeten Bereich hinfällig, da ja die "belegten" Zellen dann automatisch eingebelendet und damit für die normale Suche verfügbar wären.
Gruß Holm

Anzeige
AW: Suche im ausgeblendeten Tabellenbereich
20.07.2014 19:16:57
Adis
Hallo
im Forum steht ein kleines Beispieldatei für eine andere Anfrage
https://www.herber.de/bbs/user/91578.xls
Ich habe die Spalten A-E mal ausgeblendet. Das Programm laueft.
Es ist nur ein Beispiel wie man an versteckte Daten kommen kann.
gruss Adis

Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Infobox / Tutorial

Suche im ausgeblendeten Tabellenbereich in Excel


Schritt-für-Schritt-Anleitung

Um in ausgeblendeten Tabellenbereichen in Excel zu suchen, kannst du die .Find-Methode in VBA verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:

  1. Öffne den Visual Basic for Applications (VBA) Editor mit ALT + F11.

  2. Füge ein neues Modul hinzu: Rechtsklick auf "VBAProject", dann "Einfügen" > "Modul".

  3. Kopiere den folgenden Code in das Modul:

    Option Explicit
    Sub SucheInAusgeblendetenBereichen()
        Dim Suche As Range
        Set Suche = Cells.Find("Suchbegriff", LookIn:=xlFormulas)
    
        If Not Suche Is Nothing Then
            MsgBox "Gefunden in: " & Suche.Address
        Else
            MsgBox "Begriff nicht gefunden."
        End If
    End Sub
  4. Ersetze "Suchbegriff" durch den gewünschten Suchbegriff.

  5. Schließe den VBA-Editor und führe das Makro aus.


Häufige Fehler und Lösungen

  • Fehler: "Begriff nicht gefunden"
    Lösung: Stelle sicher, dass du LookIn:=xlFormulas verwendest, wenn du auch in ausgeblendeten Zellen suchen möchtest.

  • Fehler: Laufzeitfehler beim Ausführen des Makros
    Lösung: Überprüfe, ob die Zellen tatsächlich versteckt sind und ob der Suchbegriff korrekt eingegeben wurde.


Alternative Methoden

Es gibt verschiedene Methoden, um in ausgeblendeten Bereichen zu suchen:

  1. Application.Match oder WorksheetFunction.Match: Diese Funktionen können verwendet werden, um die Zeilennummer des gesuchten Wertes zu finden, selbst in ausgeblendeten Zeilen.

    Dim Zeile As Variant
    Zeile = Application.Match("Suchbegriff", Columns(1), 0)
    If Not IsError(Zeile) Then
       MsgBox "Gefunden in Zeile: " & Zeile
    End If
  2. Zellenweises Durchsuchen: Du kannst auch eine Schleife verwenden, um manuell durch die Zellen zu gehen, selbst wenn sie ausgeblendet sind.


Praktische Beispiele

Hier sind einige Beispiele, wie du die oben genannten Methoden in deinem Excel-Dokument umsetzen kannst:

  1. VBA-Suche in einer bestimmten Spalte:

    Sub SucheInSpalte()
        Dim RaFound As Range
        Set RaFound = Columns(1).Find("Erledigt", LookIn:=xlFormulas)
        If Not RaFound Is Nothing Then
            MsgBox "Gefunden in Zeile: " & RaFound.Row
        End If
    End Sub
  2. Verwendung von Application.Match:

    Sub MatchBeispiel()
        Dim Zeile As Variant
        Zeile = Application.Match("Suchbegriff", Range("A:A"), 0)
        If Not IsError(Zeile) Then
            MsgBox "Wert gefunden in Zeile: " & Zeile
        Else
            MsgBox "Wert nicht gefunden."
        End If
    End Sub

Tipps für Profis

  • Optimiere deine Suche: Verwende LookIn:=xlFormulas, um sicherzustellen, dass auch Werte in ausgeblendeten Zellen gefunden werden.
  • Verwende Dictionaries: Du kannst die Werte der ausgeblendeten Bereiche in ein Dictionary einlesen, um die Suche zu beschleunigen.
  • Automatisiere die Sichtbarkeit: Entwickle ein Makro, das die ausgeblendeten Zellen bei einem gefundenen Wert automatisch einblendet.

FAQ: Häufige Fragen

1. Kann ich auch nach formatierten Zellen suchen?
Ja, du kannst die LookIn-Parameter anpassen, um nach formatierten Zellen zu suchen.

2. Ist diese Methode in allen Excel-Versionen verfügbar?
Die .Find-Methode und die Nutzung von VBA sind in den meisten modernen Excel-Versionen verfügbar, einschließlich Excel 2010 und neuer.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige