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