09.04.2017, 08:40
Hallo,
mir hatte gestern Stefan mit folgendem Programmierbefehl sehr geholfen:
Dim i%
i = ActiveCell.Value + 1
Range("A:A").Find(i, lookat:=xlWhole).Activate
In der Spalte A wird dabei also die Adresse gefunden, in der die um eins größere (oder auch um eins kleinere, dann natürlich mit -1 ) Zahl, als die in der aktiven Zelle steht.
Doch für mich taucht jetzt das nächste Problem dabei auf. Wieder habe ich in der Spalte A aufsteigende Zahlen. Nur muss sich dabei ja nicht zwangsläufig der Wert der einzelnen Zahlen jeweils um eins erhöhen.
Der Abstand von einer Zahl zur nächst höheren Zahl könnte ja auch 2, 5, oder 10000 sein.
Meine Frage also: Wie finde ich die nächstgrößere Zahl?
(ohne eine Schleife einzusetzen, dass bekomme ich noch selbst hin.)
mir hatte gestern Stefan mit folgendem Programmierbefehl sehr geholfen:
Dim i%
i = ActiveCell.Value + 1
Range("A:A").Find(i, lookat:=xlWhole).Activate
In der Spalte A wird dabei also die Adresse gefunden, in der die um eins größere (oder auch um eins kleinere, dann natürlich mit -1 ) Zahl, als die in der aktiven Zelle steht.
Doch für mich taucht jetzt das nächste Problem dabei auf. Wieder habe ich in der Spalte A aufsteigende Zahlen. Nur muss sich dabei ja nicht zwangsläufig der Wert der einzelnen Zahlen jeweils um eins erhöhen.
Der Abstand von einer Zahl zur nächst höheren Zahl könnte ja auch 2, 5, oder 10000 sein.
Meine Frage also: Wie finde ich die nächstgrößere Zahl?
(ohne eine Schleife einzusetzen, dass bekomme ich noch selbst hin.)