For Z = 2 To 1000:
a$ = Tabelle1.Cells(Z, 1)
If a$ <> "" Then
a$ = Tabelle1.Cells(Z, 1): le = Len(a$)
pos = InStr(a$, "excel")
If pos > 0 Then
b = 9
If b > (le - pos + 1) Then b = le - pos + 1
If b = 9 Then
z2 = 1
While Tabelle2.Cells(z2, 2) <> ""
z2 = z2 + 1
Wend
Tabelle2.Cells(z2, 2) = Mid(a$, pos, b)
End If
End If
End If
Next Z