Udregning af differencer ved hjælp af macro

Sub Difference()

Set sh1 = Sheets("Ark1") 'ret til aktuel arknavn hvor tal er
Set sh2 = Sheets("Ark2") ' ret til arknavn hvortil tal skal flyttes
sh1.Select

Selection.SpecialCells(xlCellTypeConstants, 1).Select

For Each c In Selection
rk = sh2.Cells(sh2.Cells(65500, 1).End(xlUp).Row, 1).Row + 1
sh2.Cells(rk, 1) = c.Address
Next

sh2.Select
Range(Range("A2"), Range("A2").End(xlDown)).Copy
Range("B1").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
Application.CutCopyMode = False
Range("B2").Select

rk = sh2.Cells(65500, 1).End(xlUp).Row

For r = 2 To rk
For c = 2 To rk
Cells(r, c) = sh1.Range(Cells(r, "A")) - sh1.Range(Cells(1, c))
Next
Next

End Sub

virker kun med op til 255 værdier !!!

Tak,
super fedt. Den virker som den skal.
Sender du et sp, så jeg kan acceptere?

Mvh.
Mfynbo

ok velbekom