Schönen guten Tag Gast, 

so Leid es mir tut, aber dennoch muss ich dich stören und hoffe und bitte zugleich um Hilfe, denn leider klappt es nicht - ich erhalte einen Fehler:  

"Laufzeitfehler -'1004' : Die Match-Eigenschaft des Worksheet-Function-Objektes kann nicht zugeordnet werden" 

Vorab: Das ganze lässt mir keine Ruhe, daher habe ich früher von der Arbeit Schluss gemacht und mich sofort wieder rangesetzt. 

Ich bleibe bei dem Beispiel. Gehen wir mal davon aus, dass der Wert der Variablen Finanzpartner = "Hallo Welt" ist. 
Innerhalb meiner aktiven Tabelle suche ich in einem Bereich (A5: A150) ob ein Teil des Wortes ("Welt") in dem benannten Bereich vorkommt. Dies versuche ich mit der mir von dir freundlicherweise zur Verfügung gestellten Codezeile (siehe Zeile 6 im Code unten) zu ermöglichen. Wenn ein Teil des Wortes gefunden wurde, soll die Zeilennummer in der das Wort gefunden wurde in der Variablen "reihebetrieb" gespeichert werden. 
 

  spalte = Cells(3, Columns.Count).End(xlToLeft).Column
            
                'sucht die zugehörige Reihe des entsprechenden Betriebs
                drittesuche = Application.CountIf(ActiveSheet.Range("A5:A150"), betriebsnummer)
                If drittesuche > 0 Then
          
                reihebetrieb = Application.WorksheetFunction.Match("*" & finanzpartnername, ActiveSheet.Range("A5:A150"), 0)
                Else
                End If

Wenn eine obige Bedingung (hier nicht im Text zu sehen) zutrifft soll der Wert der Variablen "Spalte" auf die letzte Spalte gesetzt werden. Das klappt und ist auch ganz gut so. 
Mit der  "Count if..." suche ich nun ob innerhalb der Range A5:A150 die Betriebsnummer vorkommt, ja kommt vor, wert der Variablen der dritten Suche ist 1. 1 > 0 alles klar.

Nun zu dem Problem: Um nun die Reihe zu ermitteln, in welcher ein Teil des Wortes ("Welt") vorkommt wende ich die "modifizierte Match-Funktion" an. Ich erhalte den obigen Fehler. 

Zur Info: Das Wort "Welt" kommt defakto defintiv in dem Bereich A5 bsi A150 vor. Da ich leider nicht weiß, wie ich hier weiter komme bzw. woher der Fehler resultiert wende ich mich hoffnungsvoll an dich. Kannst du mir einen Rat / Tipp geben? Ich bin leider völlig ratlos ....