Supportnet / Forum / Tabellenkalkulation

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 [*][sup][i] *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 [u][url=https://supportnet.de/faqsthread/840]FAQ 2.[/url][/u][/i][/sup]

hallo,

sorry: 2.Absatz: soll natürlich größer gleich 0 heißen anstatt kleiner gleich 0

danke
gruß sebal

• in excel zellen verbinden, ohne inhalte zu löschen
• per VBA in EXCEL Buchstaben löschen
• inTabelle die freien Zellen löschen
• Makro-bestimmt Zellen löschen
• Zeilen mit leeren Zellen löschen