Loop over celler i markering

Altså: det eneste jeg skal bruge er

startrække
Slutrække
startkolonne
slutkolonne

for den aktive markering

dim C as range
For each C in selection

if c.value = 0 then

end if
next

Forresten spurgte jeg om det engeng, her er Bak's svar:

Jeg sad lige og tænkte mig en funktion der gjorde det :-)
Denne funktion returner en variant med alle 4 oplysninger.
første kolonne, første række, sidste kolonne og sidste række i et hug.

Function RangeRowColumns(rtest As Range) As Variant
Dim st As String
Dim x As Integer
st = rtest.Address
st = Replace(st, ":", "")
RangeRowColumns = Split(st, "$")
End Function

Sub test_ny_funktion()
Dim var
Dim x As Integer
var = RangeRowColumns(Selection)
For x = 1 To UBound(var)
    Debug.Print var(x)
Next
End Sub

Perfekt svar - smid et svar!

et svar ;-))