Ähem, Jetzt bin ich derjenige der aufm Schlauch steht. Wo in deiner Auflistung zählst zwei dazu bzw. ziehst du 2 ab? Ich sehe nur eine Liste mit drei Spalten, wobei sich die erste und letzte um jeweils 1 verringert und die mittlere um 1 erhöht. Minuswerte die rausfliegen sollen, sind gar nicht enthalten. Aber durch den Else-Teil sollten evtl. vorhandene Minuswerte sowie Werte >45 automatisch rausfliegen. Was du mit den übrigen Werten zwischen 0 und 45 anstellst ist deine Sache. Ich hab dir ja gezeigt wie du jede Zelle im Bereich durchlaufen kannst und wie du auf den Zellinhalt (hier c) zugreifen kannst. Um nun einen Wert z.b. um 2 zu erhöhen brauchst du nur innerhalb der Schleife c.Value = c.Value + 2 (oder kurz: c = c + 2) machen und fertig ist es. Was auch immer du mit c vorhast, es ist der Inhalt der jeweiligen Zelle. Dabei wird im Bereich zeilenweise von links nach rechts vorgegangen.
Solltest du weitere Hilfe benötigen kannst du dich ja jederzeit nochmal melden.
Gruß Mr. K.