Wie kann ich Zeilen durchlaufen, bis ein bestimmter Wert in Excel gefunden wird?
In einigen Fällen möchten Sie möglicherweise die Zeilen einzeln durchlaufen, bis ein bestimmter Wert in einem Blatt gefunden wird. Hier stelle ich einen Makrocode vor, der Ihnen hilft, Daten zu schleifen, bis ein bestimmter Wert erreicht ist.
Durchschleifen bis zu einem bestimmten Wert
Durchschleifen bis zu einem bestimmten Wert
1. Drücken Sie Alt + F11 Tasten zum Aktivieren der Microsoft Visual Basic für Anwendungs Fenster.
2 Klicken Insert > ModulFügen Sie den folgenden Code in das Leerzeichen ein Modul.
VBA: Durchlaufen Sie die Zeilen bis zu einem bestimmten Wert
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
3. Drücken Sie F5 Mit dieser Taste wird ein Dialogfeld zum Auswählen einer Spalte zum Durchlaufen angezeigt. Siehe Screenshot:
4 Klicken OKGeben Sie die Zeichenfolge ein, die Sie im zweiten Dialogfeld finden möchten. Siehe Screenshot:
5. Klicken Sie auf OK. Die Auswahl wird durchlaufen, bis der angegebene Wert gefunden wurde.
Note: Wenn kein übereinstimmender Wert gefunden wird, wird ein Dialogfeld angezeigt, das Sie daran erinnert, dass kein übereinstimmender Wert gefunden wurde.
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, um die 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 Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
