Microsoft Excel 2007
Mit der Eigenschaft Cells(Zeile, Spalte) kann man auf einzelne Zellen eines Range- Objektes zugreifen: Range("a1:c3").Cells(2,2) ist die Zelle B2. Schreiben Sie eine Routine, die aus einer aufsteigenden Zahlenreihe (A1:A100) das Zahlenpaar mit der geringsten Differenz findet. Geben Sie die Position des Zahlenpaares aus!
Diese Aufgabe muss ich lösen und ein funktionierendes Programm schreiben in VBA. Ich bin der Programmiersprache nicht sehr gewachsen, jedoch habe ich mir Gedanken gemacht wie ein solches Programm auszusehen hat.
Meine Idee:
Differenz = ZelleA2 - ZelleA1
Das ist dann die ausgangsdifferenz.
Danach zelleA3 - zelleA2 /////// also If Differenz < ZelleA3 - ZelleA2
Dann ist Differenz = ZelleA3 - Zelle A4
Kann jemand der sich mit VBA auskennt mir helfen dieses Progrämmchen zu schreiben?
Vielen Dank im Vorraus
Jan
|