Hallo! Bei solchen Fehlern, bitte immer den Code posten. Der Code von Nobody passt, aber deine Umsetzung sieht man halt nicht. Also wenn du mit der Set Find arbeitest, meinst du bestimmt die Range.Find. Nutze sie so wie hier (einfach kopieren und anpassen).
https://msdn.microsoft.com/en-us/library/office/ff839746.aspx
Da gibt es auch eine .findnext DAmit kannst du auch weitere Treffer abfangen - bis zu dam Ziel bist.
FAlls du mit der ersten Methode arbeiten willst , also worksheetfunction.match dann so (bei 2 maligem Vorkommen, ggf. anpassen innerhalb einer Schleife)
reihegruppenname = Application.WorksheetFunction.Match(gruppenname, Range("A1:A150"), 0)
If suchename > 1 And reihegruppenname = 5 Then reihegruppenname = reihegruppenname + Application.WorksheetFunction.Match(gruppenname, Range("A" & reihegruppenname + 1 & ":A150"), 0)
msgbox reihegruppenname
Damit sollte es auch klappen. Du must halt beim zweiten Match die Range anpassen (erster Treffer + 1 ) und der Versatz ab wo du dann deine Range startest, zum Ergebnis hinzuaddieren (Versatz war der erste Treffer also 5).
VG
|