Als Antwort auf diesen Beitrag
Hallo Daniel,
danke erstmal.
da kommen wir der Sache vielleicht schon näher. Zuerst einmal, es sind nach meiner Zählung zumindest, 32790. Ich habe lediglich die 4 Texte mitgezählt, die in der Spalte stehen, du vermutlich nicht. Bei diesen Texten handelt es sich um Daten aus dem 19. Jhdt., die bekanntlich von Excel nicht als Zahl/Datum sondern als Text interpretiert werden. Genau zu diesem Zweck sollte eigentlich der Codeteil
' Wenn Text "dd.mm.yyyy"
If InStr(v, ".") > 0 Then
Teile = Split(v, ".")
If UBound(Teile) = 2 Then
Tag = val(Teile(0))
Monat = val(Teile(1))
jahr = val(Teile(2))
DatumZuSortierwert = jahr * 10000# + Monat * 100# + Tag
Exit Function
End If
End If
dienen, damit diese trotzdem ein Ranking bekommen.
Wenn du jetzt darauf gestoßen bist, dass diese doch nicht ins Ranking einbezogen werden und deshalb der Quotient für das Makro <0,11 ist, wäre ich froh wenn man das ändern könnte.
Gruß
Christian
Bei den 4 Texten handelt es sich um 15.05.1898, 03.11.1896, 30.09.1887 und 31.10.1876