Thema Datum  Von Nutzer Rating
Antwort
Rot Verschieben ganzer Zeilen in Excel-Tabelle
 17.05.2018 13:27:23 Lukas
NotSolved
17.05.2018 16:12:02 Gast46878
NotSolved

Ansicht des Beitrags:
Von:
Lukas		 Datum:
17.05.2018 13:27:23		 Views:
1008		 Rating:
     
Antwort:
  Ja
Thema:
Verschieben ganzer Zeilen in Excel-Tabelle

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:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
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

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Verschieben ganzer Zeilen in Excel-Tabelle
 17.05.2018 13:27:23 Lukas
NotSolved
17.05.2018 16:12:02 Gast46878
NotSolved