Hallo zusammen,
ich muss mithilfe von VBA für meine Abteilung ein kleines Programm schreiben und komme gerade nicht wirklich weiter.
Der Zweck dieses Codeabschnitts liegt darin, gewisse Zeilen in eine Reihenfolge zu bringen.
Der Sortieralgorithmus an sich funktioniert mit einzelnen Zellen soweit gut, nur schaffe ich es nicht, das Ganze mit Zeilen anstelle von Zellen laufen zu lassen.
Vermutlich begehe ich Syntaxfehler, die ich leider selbst nach längerer Recherche nicht behoben bekomme.
Ich hoffe, ihr könnt mir da weiterhelfen.
Im Voraus schonmal vielen Dank und beste Grüße
Lukas
Mein Code sieht zurzeit so aus:
Sub Sort3()
Dim Zeile As Integer, a As Integer
Dim x As Range, y As Range
For a = 1 To 15 Step 1
Zeile = 2
For Each cell In Sheets("Ursprung").Range("S2:S1002")
If (Sheets("Ursprung").Cells(Zeile, 3) = "Demand" Or Sheets("Ursprung").Cells(Zeile, 3) = "Hotfix") And (Sheets("Ursprung").Cells(Zeile + 1, 3) = "Demand" Or Sheets("Ursprung").Cells(Zeile + 1, 3) = "Hotfix") Then
If Sheets("Ursprung").Cells(Zeile, 19).Value > Sheets("Ursprung").Cells(Zeile + 1, 19).Value Then
x = Sheets("Ursprung").Range(.Cells(Zeile, 1), .Cells(Zeile, 14))
y = Sheets("Ursprung").Range(.Cells(Zeile + 1, 1), .Cells(Zeile + 1, 14))
Sheets("Ursprung").Range(.Cells(Zeile, 1), .Cells(Zeile, 14)) = y
Sheets("Ursprung").Range(.Cells(Zeile + 1, 1), .Cells(Zeile + 1, 14)) = x
End If
End If
Zeile = Zeile + 1
Next
Next
End Sub
|