[Løst] Excel 2007 VBA UsedRange

[Bigelk]

Hei.

 

Jeg vil finne brukt range i kolonne A med UsedRange, men får det ikke til.

Det er ikke noe problem å løse det på en annen måte, men lurer på om det er mulig med UsedRange?

 

 

    For Each cell In Sheets("Olfi").UsedRange
        i = i + 1
    Next cell
    MsgBox i 

 

Nå teller den alle celler med data i hele arket. er det mulig å få den til å telle i bare kolonne A?

 

Mvh

 

Torbjørn

[Harald Staff]

Hei Torbjørn

 

Bruk Intersect, som er snittet mellom to områder:

 

For Each Cel In Intersect(Sheets("Olfi").UsedRange, Sheets("Olfi").Columns(1))

 

Beste hilsen Harald

[Bigelk]

Tusen Takk Harald.

 

"Enkelt" og Genialt som vanlig

 

Mvh

 

Torbjørn