Schleife Zeile vertauschen
27.04.2016 14:45:57
Chris
ich habe folgendes Makro in VBA programmiert. Folgendes soll damit erzielt werden.
Wenn sich der Wert 1003 oder 1006 oder 1012 in Zeile i und Spalte 5 befindet und zusätzlich in Zeile j und Spalte 5 einer von den Werten steht außer der der bereits in Zeile i ist dann sollen diese beiden Zeilen vertauscht werden.
Das Makro sieht so aus:
Dim i As Integer
For i = 2 To Cells(65536, 2).End(xlUp).Row
j = i + 1
k = i + 2
a = "1003"
b = "1006"
c = "1012"
If Cells(i, 5) Cells(j, 5) And (Cells(i, 5) = a Or b Or c) And (Cells(j, 5) = b Or c) Then
quelle = Rows(j).Value
senke = Rows(k).Value
Rows(j).Value = senke
Rows(k).Value = quelle
End If
Next i
Problem ist jetzt dass Excel nicht die Werte erkennt und darüber hinaus die Zeilen nicht korrekt vertauscht. Was habe ich hier falsch gemacht?
Vielen Dank euch allen.
Gruß
Chris