Findet Maximum nicht mehr
18.09.2015 11:17:57
Stephan
ich habe folgendes Problem. Habe ca. 200 Excel Dateien mit mehreren Tabellen mit jeweils mehreren Tausend Zeilen.
Das Ziel ist es , die Zeilennummer des Maximums aus einer bestimmten Spalte zu finden.
kleiner Ausschnitt:
P = Application.Max(Workbooks(Dateiname).Sheets("B&K groß").Range("T:T"))
Set rng = Workbooks(Dateiname).Worksheets("B&K groß").Range("T:T").Find(P)
Dafür speichere ich mir zuerst das Maximum in einer Variable. Und danach suche ich wieder danach um den Bereich festzuhalten wodurch ich dann die Zeilennummer herauslesen kann.
Nur Wird bei der erneuten Suche des Maximums der Wert nicht immer gefunden. Warum? Die Werte in den Zellen sind sehr klein und haben oft mehr als 14 Nachkommastellen und sind als Standard formatiert. Habe es auch mit Cdec versucht, aber das hilft leider auch nicht wirklich weiter, weil manchmal dann die letzte Nachkommastelle geändert wird.
Jemand eine Idee?
Viele Grüße
Stephan