hallo zusammen,

ich durchsuche einen Bereich(ganze Spalte A) nach dem minimalen wert, ist dieser wert positiv passt alles, ist er negativ soll diese zelle in der der wert steht geöscht werden, anschließend der neu entstandene bereich(also ganze Spalte A ohne diese eine Zelle) untersucht werden, was der minimale wert ist

das verfahren soll solange analog forgesetzt werden bis dieser minimale wert kleiner gleich 0 ist, also oben: wenn der neue wert wieder negativ ist, zelle löschen und bereich wieder untersuchen.

bisher habe ich folgendes:

dim VAR1 as Long
dim VAR2 as Long

VAR1 = ' Maximum
VAR2 = ' Minimum
zfound = True
Do Until zfound
If VAR2 >=0 Then
ActiveSheet.Cells(4,4).Value = VAR1
ActiveSheet.Cells(5,5).Value = VAR2
zfound = True
Else

' eure Idee ?

kann mir vllt jemand helfen?
danke

gruß sebal

^{*Threadedit* 10:10:37
Admininfo: Führ bitte einen Thread nicht fort indem du Weitere eröffnest, und vermeide Mehrfachanfragen. Die Datenbank und User werden es dir danken. Siehe FAQ 2.}