ich versuche gerade eine Spalte zu durchlaufen in der sich Zeichenketten befinden und diese zu vergleichen und anschließend herauszufinden, wie häufig diese in der Spalte vorkommen.
Die Zeichenketten setzten sich aus Zahlen zusammen: 001-00043-00800 usw.
Ich möchte nun vergleichen ab Zeichen 4 - 15, wie oft sich in der Spalte Zeichenketten ab Zeichen 4-15 wiederholen, unabhängig also von Zeichen "001-"
Bis jetzt habe ich es geschafft herauszufinden, welche gesamten Zeichenkette sich in der Spalte wiederholen also Zeichen 1-15 und dieses wird mir dann in Spalte E ausgegeben.
Kann mir jmd helfen & mir auch erklären wie ich die Häufigkeit feststellen kann?
Bisher mache ich es so:
Sub test()
Dim lZeile, i, Zähler As Double
Dim Treffer(100000) As String
lZeile = Sheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row
Zähler = 0
For i = 1 To lZeile
If IsError(Application.Match(Cells(i, 1), Treffer(), 0)) Then
Zähler = Zähler + 1
Treffer(Zähler) = Cells(i, 1)
End If
Next
For i = 1 To Zähler
Cells(i, 5) = Treffer(i) 'Liste wird in Spalte E zurückgeschrieben
Next
End Sub
Meine Datei habe ich angehängt:
https://www.herber.de/bbs/user/126594.zip
Vielen Dank für eure Hilfe!