ich versuche gerade diesen Code so anzupassen, dass er Folgendes tut:
In beigefügter Tabelle soll er in Spalte B (IPC) in jeder Zeile die ersten 4 Ziffern prüfen - wenn es immer die gleichen ersten vier Ziffern sind soll in Spalte C eine "1" ausgegeben werden. Wenn es unterschiedliche sind soll im besten Fall (falls möglich) die Anzahl der unterschiedlichen Kombinationen ausgegeben werden. (also z.B. in C4 eine "3" da drei unterschiedliche 4er Anfangskombinationen)
Sub Main()
Dim B As String
For i = 2 To Cells(Rows.Count, 2).End(xlUp).Row
Tx = Split(Cells(i, 2), Chr(10))
B = ""
For k = 0 To UBound(Tx)
If InStr(1, B, Left(Tx(i), 4)) = 0 Then B = B & "," & Left(Tx(k), 4)
Next k
Cells(i, 7) = Len(B) / 5
Next i
End Sub
Daniel und Fennek haben bereits Tips gegeben, aber ich komme hier leider alleine nicht weiter. Vielen vielen Dank !!
Rahel