cel nummering van recht naar linksd

[johnny1963]

van 1, 2, 3, 4, 5, 6, 7
8, 9, 10, 11, 12, 13, 14

naar 7, 6, 5, 4, 3, 2, 1
14, 13, 12, 11, 10, 9, 8,


ieder cijfer is één cel

en zo heb ik zelf 7 cellen horizontaal (dus 7 kolommen) en 96 rijen omlaag

zo heb ik 672 cellen maar ik will de numering veranderen
zoals boven beschreven.

ik gebruik word 2007

alvast bedankt

 

[gast0667]

Zoiets als dit:

Private Sub CommandButton1_Click()

'"Kolom1" is de verwijzing naar de eerste kolom.
'Idem voor "Kolom2 t/m Kolom7".

'Ik begin bij rij 1 (vRij is de variabele daarvoor).
'Als jij op een andere rij begint dan moet je deze waarde aanpassen.
'En dan vervolgens "+ 97" om de LOOP te eindigen.


vRij = 1    'Eerste Rij.


Do Until vRij = 97  'Eindigen van LOOP na rij 96.

A = Range("Kolom1").Cells(vRij).Value
B = Range("Kolom2").Cells(vRij).Value
C = Range("Kolom3").Cells(vRij).Value
D = Range("Kolom4").Cells(vRij).Value
E = Range("Kolom5").Cells(vRij).Value
F = Range("Kolom6").Cells(vRij).Value
H = Range("Kolom7").Cells(vRij).Value

Range("Kolom1").Cells(vRij).Value = H
Range("Kolom2").Cells(vRij).Value = F
Range("Kolom3").Cells(vRij).Value = E
Range("Kolom4").Cells(vRij).Value = D
Range("Kolom5").Cells(vRij).Value = C
Range("Kolom6").Cells(vRij).Value = B
Range("Kolom7").Cells(vRij).Value = A

vRij = vRij + 1

Loop

End Sub

Ik neem aan dat je alleen per rij de cijfers wilt omdraaien.