verschuiven

[don42]

Beste allemaal

Wie heeft een antwoord op het volgende?
heb een paar namen gezet in kolom A
Nu wil ik (liefst met vba) verschuiven zoals in het voorbeeld

de naam van a1 naar c2
de naam van a2 naar c3
en de laatse naam natuurlijk naar a1
het aantal namen is variabel

ik doe een simpel voorbeeld er bij om het iets duidelijker te maken
het moet een roulering van diensten worden.
Bekijk bijlage roulering.xlsx

 

[Cobbe]

Kun je hier iets mee?

 

[don42]

Hoi Cobbe
het is een begin
Maar het moet veel vaker kunnen (52 x per jaar)
het blijft eigenlijk draaien elke 19 weken sta je naam op 1 (in dit voorbeeld)

 

[HSV]

Jammer dat ik de vraag niet begrijp.

 

[don42]

Ik zal het nog eens proberen uit te leggen wat ik graag wil
In kolom A komen ongeveer 30 namen te staan
dan zou ik graag dat in kolom C de zelfde namen staan maar dan 1 verschoven en de onderste boven aan
telkens 1 rij naar beneden en de laatse naam boven aan
ik weet niet hoe ik het anders moet uitleggen
en dat herhalen voor kolom E enz

 

[Cobbe]

Kijk eens of dit in de buurt komt.

 

[HSV]

Als ook:

Sub hsv()
Dim sn, arr, y As Long, i As Long, ii As Long, iii As Long, x As Long
sn = Cells(1).CurrentRegion
arr = Cells(1).CurrentRegion.Resize(, UBound(sn))
For i = 1 To UBound(sn)
    y = y + 1
        For ii = 1 To UBound(sn) - y
           arr(ii + y, i) = sn(ii, 1)
        Next ii
    
        For iii = UBound(sn) - i + 1 To UBound(sn)
           x = x + 1
           arr(x, i) = sn(iii, 1)
        Next iii
     x = 0
  Next i
 [b1].Resize(UBound(sn), UBound(sn) - 1) = arr
End Sub

 

[don42]

Hier kan ik verder mee
dank jullie voor de hulp
Don