løkke

Sub test()
[cykel].Value = [bil].Value
End Sub

ok, måske var det ikke i vba du mente

I 1. celle i cykelkolonner kan du skrive =Bil og trække (kopiere) den nedad

Vil bruge VBA til dette

Kan det lade sig gøre i stil med [pris][bil].value = [pris][cykel].value

Sådan
[pris bil].value=[pris cykel].value

men mit første forslag tager hele dynen på een gang

Tak...du får dine fortjente point...

Hvordan får jeg det ind i en løkke med række som variabel

[bil].value = [cykel].value

Er det noget i still med

Cells([pris] + i,[bil).value  = Cells([pris] + i, [cykel).value

Hvad er det, du ønsker løkken skal gøre for dig ?
Her er et eksempel

Sub test3()
Dim i As Long
For i = 0 To 3
  [cykel pris].Offset(i, 0) = [bil pris].Offset(i, 0)
Next
End Sub

Tak :-)

Du får ekstra 500 points hvis du kan svare på følgende:

ActiveCell.Value = Cells(ActiveCell.Row, ActiveCell.Column + 1).Value

Kan du tilpasse overstående formel så jeg kan angive rækken og kolonnen med den repræsensative navne (Insert name defined) og benytte løkke som tager rækkerne som har fået defineret et navn (Insert name defined)

eks hvis rækkerne hedder hvid, brun, rød
og kolonnerne hedder person1, person2, person3


ActiveCell.Value = Cells(hvid, person1).Value

Det her er gratis :-)

enten
ActiveCell.Value = [hvid person1]
eller
ActiveCell.Value = Range("hvid person1").Value

Takker...giv et svar og jeg giver points

ok :-)