Sub likes_suchen()
Dim code As String
Dim start As Long
Dim ende As Long
Dim ergebnis As Long
code = Worksheets(1).Cells(1, 1)
start = InStr(1, code, "(wie ", vbTextCompare) + 5
ende = InStr(1, code, "andere auch)", vbTextCompare)
ergebnis = Trim(Mid(code, start, ende - start))
MsgBox Format(ergebnis, "#,##0")
End Sub