Zum Hauptinhalt springen

Wie durchläuft man Zeilen, bis ein bestimmter Wert in Excel gefunden wird?

Author: Sun Last Modified: 2025-08-06

In einigen Fällen möchten Sie möglicherweise Zeile für Zeile durchgehen, bis ein bestimmter Wert in einem Arbeitsblatt gefunden wird. Hier stelle ich einen Makro-Code vor, der Ihnen hilft, Daten zu durchlaufen, bis ein bestimmter Wert gefunden wird.

Durchlaufen, bis bestimmter Wert gefunden wird


arrow blue right bubble Durchlaufen, bis bestimmter Wert gefunden wird

1. Drücken Sie die Tasten Alt + F11, 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 leere Modul ein.

VBA: Durchlaufen von Zeilen, bis ein bestimmter Wert gefunden wird

Sub LoopUntilSpecificValue()
'UpdatebyExtendoffice20161222
    Dim fStr As String
    Dim strActAddress As String
    Dim fbool As Boolean
    Dim cnt As Long, cntRow As Long
    Dim xRg As Range, yRg As Range, zRg As Range
    fbool = False
    strActAddress = ""
    cnt = 0
    On Error Resume Next
    Set zRg = ActiveSheet.UsedRange
    cntRow = zRg.Rows.Count
   
    Set xRg = Application.InputBox _
        (Prompt:="Range select..", Title:="Kutools for Excel", Type:=8)
    fStr = Application.InputBox _
        (Prompt:="Search string?", Title:="Kutools for Excel", Type:=2)
    Application.ScreenUpdating = False
    For Each yRg In xRg
       
        If yRg.Row > cntRow Then
            MsgBox "Value not found ", vbInformation, "Kutools for Excel"
            Application.ScreenUpdating = True
            Exit Sub
        End If
        If yRg.Value2 = fStr Then
            Application.ScreenUpdating = True
            yRg.Activate
            fbool = True
            strActAddress = yRg.Address
            MsgBox "Value found in cell " & strActAddress, vbInformation, "Kutools for Excel"
            
            Exit Sub
        Else
            cnt = cnt + 1
        End If
        
    Next yRg
    
    If cnt = xRg.Count Then
        MsgBox "Value not found ", vbInformation, "Kutools for Excel"
    End If
    Application.ScreenUpdating = True
End Sub

A screenshot showing the pasted code in the module window

3. Drücken Sie die F5 -Taste, und ein Dialogfeld wird angezeigt, in dem Sie eine Spalte zum Durchlaufen auswählen können. Siehe Screenshot:
A screenshot showing the input box for selecting a range to loop through in Excel

4. Klicken Sie auf OK, und geben Sie die Zeichenfolge ein, die Sie im zweiten erscheinenden Dialogfeld finden möchten. Siehe Screenshot:
A screenshot of the input box for entering the string to search for

5. Klicken Sie auf OK. Es wird den Bereich durchlaufen, bis der angegebene Wert gefunden wird.
A screenshot of the dialog showing the loop search result in Excel

Hinweis: Wenn kein übereinstimmender Wert gefunden wird, wird ein Dialogfeld angezeigt, das Sie darüber informiert, dass keine Übereinstimmung gefunden wurde.
A screenshot showing the dialog box notifying no value found in Excel

Die besten Office-Produktivitätstools

🤖 Kutools AI Aide: Revolutionieren Sie die Datenanalyse basierend auf: Intelligente Ausführung |  Code generieren  |  Benutzerdefinierte Formeln erstellen |  Daten analysieren und Diagramme generieren  |  Erweiterte Funktionen aufrufen
Beliebte Funktionen: Doppelte suchen, hervorheben oder markieren | Leere Zeilen löschen | Spalten oder Zellen ohne Datenverlust zusammenführen | Runden
Erweiterte SVERWEIS: SVERWEIS mit mehreren Kriterien | SVERWEIS für mehrere Werte | Mehrblatt-SVERWEIS | Fuzzy Match
Erweiterte Dropdown-Liste: Dropdown-Liste schnell erstellen | Abhängige Dropdown-Liste | Mehrfachauswahl-Dropdown-Liste
Spalten-Manager: Eine bestimmte Anzahl an Spalten hinzufügen | Spalten verschieben | Sichtbarkeit von ausgeblendeten Spalten umschalten | Bereiche & Spalten vergleichen
Hervorgehobene Funktionen: Gitterfokus | Entwurfsansicht | Erweiterte Formelleiste | Arbeitsmappen- & Blattmanager | AutoText-Bibliothek | Datumsauswahl | Daten zusammenführen | Zellen verschlüsseln/entschlüsseln | E-Mail senden nach Liste | Super Filter | Spezialfilter (Filtern nach Fett/Kursiv/Durchgestrichen...)…
Top15 Toolsets:12 Text-Tools (Text hinzufügen, Bestimmte Zeichen löschen, ...) | 50+ Diagramm typen (Gantt-Diagramm, ...) | 40+ praktische Formeln (Alter basierend auf dem Geburtsdatum berechnen, ...) | 19 Einfüge-Tools (QR-Code einfügen, Bild aus Pfad einfügen, ...) | 12 Konvertierungs-Tools (In Wörter umwandeln, Währungsumrechnung, ...) | 7 Konsolidieren & Aufteilen-Tools (Erweiterte Zeilen zusammenführen, Zellen aufteilen, ...) | ... und mehr
Nutzen Sie Kutools in Ihrer bevorzugten Sprache – unterstützt Englisch, Spanisch, Deutsch, Französisch, Chinesisch und über40 weitere Sprachen!

Steigern Sie Ihre Excel-Kompetenz mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über300 erweiterte Funktionen, um Ihre Produktivität zu steigern und Zeit zu sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen...


Office Tab bringt die Reiter-Oberfläche in Office und macht Ihre Arbeit so viel einfacher

  • Aktivieren Sie die Bearbeitung und das Lesen in Reitern in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Reitern desselben Fensters, anstatt in neuen Fenstern.
  • Steigert Ihre Produktivität um50 % und reduziert täglich Hunderte von Mausklicks!