Wert in Nachbarzelle um 1 erhöhen
30.11.2013 20:17:40
Howard
habe zwei Spalten: F1 - F10 und daneben G1 - G10
For Each a In Rang("F1:F10")
Select case a
case a = 2, 4, 5, 7, 9
a.Offset(,1) = 1
case Else
a.Offset(,1) = 0
Mit diesem Skript ( hier auszugsweise dargestellt ) werden Werte in der Spalte G
entweder auf 1 gesetzt ( wenn in F 2,4,5,7, oder 9 steht) oder aber auf 0 gesetzt.
Wie muß die Zeile a.Offset(,1) = 0 geändert werden, wenn die Zellen, in denen
a nicht 2,4, usw ist, nicht auf 0 gesetzt, sondern der Wert um 1 erhöht werden
soll?