Excel Inhalt mehrere Zellen in einer Zeile nach einem Wert durchsuchen und den Inhalt dann ausgeben

Hallo,

für manche wahrscheinlich zimmlich einfach, aber ich komme nicht auf die Lösung.

Ich habe eine Excel Tabelle die sicherlich 150 Spalten und 1500 Zeilen hat. Nun muss ich nach einem bestimmten Wert in der gesamten Zeile suchen und wenn dieser egal in welcher Zelle gefunden wird, dann soll der komplette Inhalt dieser Zelle in eine andere leere Zelle ausgegeben werden. Hier mal ein Beispiel.

Ich suche nach den beiden Wörten "Hilfe Version". Ich weis aber, dass dieser Wert sicher in einer Zelle steht nur das hinter dem Wort "Version" immer noch ein weitere Text kommt den ich aber nicht kenne. Die ersten beiden Wörter sind immer gleich. Jetzt möchte ich eben nach diesen beiden Wörtern suchen und er findet diese in einer Zelle. Dort steht dann z.B. "Hilfe Version 5.77" drin, dann soll genau dieser Inhalt in eine leere Zelle geschrieben werden die ich vorgebe.

Kann mir da jemand helfen?

Gruß
Michael

Sub FindeWert()
dim result as Range
set result = Sheets(1).UsedRange.Find("Hilfe Version", LookIn:=xlValues, LookAt:=xlPart)  
if not result is Nothing then
  'Wert der gefundenen Zelle in Zelle A1 auf dem ersten Blatt schreiben  
  Sheets(1).Range("A1").Value = result.Value  
Else
  msgbox "Text wurde nicht gefunden"  
end if
End Sub