Forskel mellem 2 celler

Hvis du har tallene i hver sin celler i række 1

marker cellerne med tallene og kør makroen

Værdierne skrives i A2 og B2

Sub MindsteAfstand()
Dim A As Variant
Forskel = 100000
A = Selection
col = Selection.Columns.Count
For T = 1 To col - 1
If A(1, T + 1) - A(1, T) < Forskel Then
B = A(1, T)
C = A(1, T + 1)
Forskel = A(1, T + 1) - A(1, T)
Cells(3, 1) = B
Cells(3, 2) = C
End If
Next
End Sub

Simpelhen imponerende, jeg bukker og takker.

s[ f[r du et svar <-((

Hmm ... jeg frygter lidt, at jeg har fået fumlet med min pointafgivning.
Kabbak, har du modtaget point?

Nå tilbage til dansk tastatur

husk at tallene skal komme stigende, ellers får vi minusværdier

ja jeg har fået :-)

Mange tak for ekstra imput, hvis de ikke gør, må jeg jo bare sortere dem ... :-)
Det her er helt perfekt, nu skal jeg bare lære at lave tilsvarende markroer.