Cellen ved siden af

adr2 = ActiveCell.Offset(1, 1).Address(RowAbsolute:=False, ColumnAbsolute:=False)

Hvis aktivcelle er A1 giver koden B2 som svar.

Kan jeg udvide lidt ?

With Worksheets("2003").Range("a1:a1000")
Set c = .Find(afd, LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
adr1 = c.Address(RowAbsolute:=False, ColumnAbsolute:=False)
End If
End With

Problemet er at jeg finder en celle ud fra en activ celle (afd)
adr1 er den første celle med afd.
Nu vil jeg gerne ha' cellen ved siden af.
Skal bruges til starten på en range.

Du har selvfølgelig allerede tjent pointsene !

Cellen ved siden af
adr1 = c.Address(RowAbsolute:=False, ColumnAbsolute:=False)

kan du finde med

adr2 = c.offset(0,1).Address(RowAbsolute:=False, ColumnAbsolute:=False)

Så bliver den samlede kode noget i stil med:

With Worksheets("ark1").Range("a1:a1000")
Set c = .Find(adr, LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
adr1 = c.Address(RowAbsolute:=False, ColumnAbsolute:=False)
adr2 = c.Offset(0, 1).Address(RowAbsolute:=False, ColumnAbsolute:=False)
Debug.Print adr2
End If
End With

Sorry! Debug.Print skulle selfølgelig ikke have været med.

Jeg takker igen

Velbekomme!