Weg aus einer Cells.FindNext Schleife
11.05.2004 11:31:03
Russi
kurze Problemschilderung:
Ich möchte in einer Excel-Tabelle im Sheet "Kunden" nach Begriffen aus dem Sheet "Suchbegriffe" suchen lassen. Ein Makro habe ich mir zusammenstellen können, Problem ist nur, dass ich aus dem Makro heraus den Sprung zum nächsten Suchbegriff, nach Durchlauf des vorherigen Suchbegriffes, nicht schaffe. Ziel ist, dass nach Durchlauf des ersten Suchbegriffes über alle Daten, auf Sheet "Suchbegriffe" der zweite bzw. nächste Suchbegriff ausgewählt wird...
Anbei das Makro zum besseren Verständnis...
-----
Option Explicit
Dim Eingabe As Variant
Dim introw, row As Long
Private Sub Suchen_Click()
On Error GoTo Errorhandler
Sheets("Suchbegriffe").Activate
introw = 2
Start:
While Sheets("Suchbegriffe").Cells(introw, 1).Value <> ""
Eingabe = Sheets("Suchbegriffe").Range("A2").Value
Sheets("Kunden").Activate
Cells.Find(What:=Eingabe, _
After:=ActiveCell, _
LookIn:=xlFormulas, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False).entirerow.Select
Markieren:
Selection.Cells(row + 1, 10).Value = Eingabe
Cells.FindNext(After:=Selection).entirerow.Select
GoTo Markieren
'Hier muss ein Befehl rein, der am Ende des Datenbereiches dafür sorgt, dass
'im Sheet "Suchbegriffe" in Spalte "A" der nächste Suchbegriff ausgewählt wird
'und die Cells.FindNext-Methode nicht in einer Schleife durchläuft
Sheets("Suchbegriffe").Activate
introw = introw + 1
GoTo Start
Wend
MsgBox "Aufbereitung abgeschlossen"
GoTo Ende
Exit Sub
Errorhandler:
MsgBox "Der Suchbegriff wurde nicht gefunden"
Ende:
End Sub
---
Für Feedback besten Dank
Andreas