[Løst] Excel 2007 VBA RangeArray Variabel

[Bigelk]

Hei.

 

Jeg har en RangeArray B2, C2, D2

B3, C3 ,D3

B4, C4, D4

 

De har verdien 1 til 9.

 

Jeg vil gjerne at hvis min "activecell" er c3 (som har verdien 5) og jeg starter makroen så kommer tallet 5 fram i

B7. å hvis activecell er B2 så kommer tallet 1 i b7.

 

Men da uten og måtte deklarere hver eneste celle, har kommet et lite stykke på koden men står fast

Dim RangeArray As Variant
RangeArray = range("b2", "d4")
' Jeg ser da for meg at det blir noe sånt som dette, uten at jeg veit hva jeg snakker om.
if activecell = RangeArray then
  range("b7") = RangeArray
end if

 

Hilsen

 

Torbjørn

[Harald Staff]

Vel, du har en slags Variant. Googler du RangeArray får du ikke stort. Et celleområde er en Range.

 

Se om dette får deg i gang:

 

Dim X As Range

 

Set X = Range("B2:D4")

 

If Intersect(X, ActiveCell) Is Nothing Then

 

'utafor

 

Else

 

'innafor

 

End If

 

HTH. Beste hilsen Harald

[Bigelk]

Hei.

 

Takk for hjelpen Harald

 

Fungerte helt utmerket.

 

Dim X As range

Set X = range("B2:D4")

If Intersect(X, ActiveCell) Is Nothing Then

Exit Sub

Else

range("B7") = ActiveCell

End If

 

Hilsen

 

Torbjørn