Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema ListBox
BildScreenshot zu ListBox ListBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema SpinButton
BildScreenshot zu SpinButton SpinButton-Seite mit Beispielarbeitsmappe aufrufen

Datenreihe zyklisch verschieben

Betrifft: Datenreihe zyklisch verschieben von: Daniel
Geschrieben am: 11.08.2004 18:32:36

Hallo,

ich möchte gerne mittels Parameter automatisch die Zellinhalte einer Datenreihe zyklisch verschieben.
Beispiel:
Zahlenfolge in einer Reihe(od. Spalte): 22 33 44 55 66 77 88
Parameter = 2 (d.h. alle Werte um 2 nach rechts verschieben)
Gewuenschtes Resultat (in neuer Reihe od. Spalte): 77 88 22 33 44 55 66
Wie kann man das bewerkstelligen ?
Besten dank im voraus.
Daniel

  


Betrifft: AW: Datenreihe zyklisch verschieben von: Hans W. Hofmann
Geschrieben am: 11.08.2004 21:12:37

Mit einer Arrayformel wie
Function Shift(count As Integer, Feld As Range)
'(C)oded by hw Arrayformel über die Spalten
Dim n, i As Integer, j As Integer
ReDim a(1, 1 To Feld.count)
a = Feld
For j = 1 To count
    n = a(1, 1)
    For i = 1 To Feld.count - 1
        a(1, i) = a(1, i + 1)
    Next
    a(1, Feld.count) = n
Next
Shift = a
End Function

Gruß HW



 

Beiträge aus den Excel-Beispielen zum Thema "Datenreihe zyklisch verschieben"