VBA: Loop på markerede celler

Selection holder automatisk det område, som er markeret.

Så Selection.Address giver f.eks. automatisk adressen for området. Men det behøver man typisk ikke bruge, se Demo()

Sub Demo()
    Dim rCell As Range

    For Each rCell In Selection.Cells
        If rCell.Value = ??? Then
            ' bob bob
        End If
    Next rCell
End Sub

Jeg har brug for cellereferencen istedet for indholdet af cellen

hvad forstår du ved cellereferencen ?

rCell.Address ?

Det vil jeg tro, fx. A1 er en cellereference

Hele områdets adresse ind i en variabel

sTempAdr = Selection.Address


Her kommer en ny celle adresse ind i en variabel for hvert loop rutinen laver
Sub Demo()
    Dim rCell As Range
    Dim sTempAdr As String

    For Each rCell In Selection.Cells
        sTempAdr = rCell.Address
    Next rCell
End Sub

Hjalp det?

Tak