Mir wurde gestern geholfen und foglendes Code geschrieben:
Option Explicit
Private Sub CommandButton1_Click()
Dim str1, str2, z, max, le1, le2, le, pos, txt
For z = 2 To 1000
max = 0
str1 = Cells(z, 1): str2 = Cells(z, 2)
If str1 "" Then
le1 = Len(str1): le2 = Len(str2)
For pos = 1 To le1
For le = 1 To le1 - pos + 1
txt = Mid$(str1, pos, le)
If InStr(str2, txt) > 0 Then
If Len(txt) > max Then
max = Len(txt)
Cells(z, 3) = txt
End If
End If
Next le
Next pos
End If
Next z
End Sub
aber wenn ich diesen Code auf 2500 Zeilen erweitere und die Spalten A, B und C --> D,E und F verschieben.
Und immer wenn ich das mach kommt ein Bug und ich erkenn nicht was das PRoblem ist.
Könnt ihr mir helfen?
Vielen Dank an Onur der mir gestern diesen Code zusammengebastelt hat!