find minimum
19.07.2006 11:17:02
felix
Ich hab geringe VBA Kenntnisse und auch ein kleines Problem:
Die Werte eines Bereiches (rngMyrange) werden weiterverarbeitet und 2 Spalten weiter rechts ausgeschrieben.
Ich würde nun gerne aus den berechneten Werten das Minimum rausfinden und dann die Zelle zwei Spalten rechts davon mit einem Wert (intId) beschreiben.
Ich hab gedacht, es müsste so gehen:
Cells.Find(WorksheetFunction.Min(rngMyrange.Offset(, 2))).Offset(, 2) = intId
Meinem Verständnis nach, müsste ich doch jetzt der Zelle, welche 2 Spalten weiter rechts vom Minimum des um 2 Spalten verschobenen Bereiches rngMyrange liegt, den Wert von intId zuweisen.
Was muss ich ändern? Wieso ist der Code falsch?
gruss
felix