Microsoft Excel

Herbers Excel/VBA-Archiv

weitersuchen

Betrifft: weitersuchen von: stef26
Geschrieben am: 01.07.2015 08:03:05

Hallo Zusammen,
hab mak ne Frage...

Ich suche mit folgenden Code nach der Zeilennummer:

ZeileFound = Application.Match(Sheets("Arbeitsplätze").Cells(i, 2), wbZiel.Sheets("SAP-Auswertung").Range(wbZiel.Sheets("SAP-Auswertung").Cells(1, 2), wbZiel.Sheets("SAP-Auswertung").Cells(40, 2)), 0)
If IsError(ZeileFound) Then GoTo Weiter
If wbZiel.Sheets("Arbeitsplätze").Cells(i, 2) = wbZiel.Sheets("Arbeitsplätze").Cells(i - 1, 2) Then
xxxxxxx hier soll nächste ZeileFound gesucht werden
End If

Wie muss ich die Zeile xxxx anpassen, damit er mir die nächste Zeilennummer ausgibt, in der die nächste Übereinstimmung gefunden wurde ?

Gruß
Stefan

 

Beiträge aus den Excel-Beispielen zum Thema "weitersuchen"