Ich habe eine Tabelle welche durch VBA in eine 11 x 11 Matrix eingelesen wird. Nun möchte ich Spalten verschieben. In meinem Beispiel soll nun also Spalte 6 an die Stelle von Spalte 2 geschoben werden. Dafür müssen alle Spalten von 2-5 um einen Platz nach recht verschoben werden. Anschliessend wird Spalte 6 in die nun freigewordene Spalte 2 eingefügt. Hier der dazu von mir geschriebene Code... Leider funktioniert das schieben nicht und ich verstehe überhaupt nicht wieso. Ich würde mich über eure Hilfe sehr freuen!
LG ANTON
Sub InitialPopulation()
Dim rnd_nach As Integer
Dim rnd_von As Integer
rnd_nach = 2
rnd_von = 6
Dim vek_von(1 To 11, 1 To 1)
Dim OSM(1 To 11, 1 To 11)
Range("AF7:AO17").Interior.Color = RGB(255, 255, 255)
Range("AF7:AO17").Value = ""
' OSM DATEN SPEICHERN
For j = 1 To 11
For u = 1 To 11
OSM(u, j) = Range("T7:AD17").Cells(u, j).Value
Next u
Next j
' Ausgewählte Spalte zwischenspeichern
For i = 1 To 11
vek_von(i, 1) = Range("T7:AD17").Cells(i, rnd_von).Value
Next i
' Spalten verschieben
If rnd_von > rnd_nach Then
For p = 11 To 1
If p rnd_nach Then
For k = 1 To 11
OSM(k, p) = OSM(k, p - 1)
Next k
End If
Next p
End If
'If rnd_von = rnd_von And q