Wie kann man Zeilen in Excel einfach per Drag & Drop oder durch Verschieben nach oben oder unten neu anordnen?

1. Markieren Sie die Zeile/Spalte
2. Bewegen Sie den Mauszeiger zur Begrenzung der Zeile/Spalte, so daß Sie den Vierwege-Pfeil-Cursor sehen (oder den Handcursor auf einem Mac).
3. Drücken Sie die Umschalttaste auf Ihrer Tastatur, klicken Sie dann auf die Zeile/Spalte und ziehen Sie sie.

Die Umschalttaste schiebt die Zeile/Spalte, anstatt die Ziel-Zeile/Spalte zu überschreiben.

Dies ist immer noch eine Ausschneiden/Einfügen-Methode, aber die einfachste Methode, die ich mir vorstellen kann.

4-Klick-Lösung: (z.B. Zeile 8 über Zeile 5 verschieben)

1. Klicken Sie mit der rechten Maustaste auf die Zeilennummer (z.B. Zeile 8), klicken Sie auf Ausschneiden (oder T)
2. Klicken Sie mit der rechten Maustaste auf die Zeilennummer (z.B. Zeile 5), klicken Sie auf Cut Cells einfügen** (oder E)

Hinweis: Dies funktioniert auch beim Verschieben mehrerer Zeilen.

Fügen Sie die folgenden Makros zu Ihrer Persönlichen Makro-Arbeitsmappe hinzu und weisen Sie ihnen Tastenkombinationen zu. Das Verhalten ahmt das Verhalten von Sublime Text nach: Zeile nach oben vertauschen & Zeile nach unten vertauschen.

Sub move_rows_down()
    Dim rOriginalSelection As Range
    Set rOriginalSelection = Selection.EntireRow
    With rOriginalSelection
        .Select
        .Cut
        .Offset(rOriginalSelection.rows.Count + 1, 0).Select
    End With
    Selection.Insert
    rOriginalSelection.Select
End Sub

Sub move_rows_up()
    Dim rOriginalSelection As Range
    Set rOriginalSelection = Selection.EntireRow
    With rOriginalSelection
        .Select
        .Cut
        .Offset(-1, 0).Select
    End With
    Selection.Insert
    rOriginalSelection.Select
End Sub

Im Umgang mit ähnlichen Fällen in der Vergangenheit, in denen ich nicht einfach nach einer Zeile sortieren konnte, fand ich einen Weg, eine Spalte mit einem Formelergebnis zu erzeugen, das etwas war, nach dem ich sortieren konnte.

Ich fand eine direktere Antwort auf Ihre Frage von this site :

Microsoft Word hat eine Funktion, die Excel fehlt. Jons Methode besteht darin, die Daten nach Word zu verschieben, den Word-Befehl zu verwenden und die Daten dann wieder in Excel einzufügen. Folgen Sie diesen Schritten:

1. Kopieren Sie den entsprechenden Zeilen- und Spaltenblock aus Ihrem Arbeitsblatt. Notieren Sie am besten die Größe des Bereichs, z.B. 118 Zeilen x 5 Spalten
2. Fügen Sie die Daten in ein Microsoft Word-Dokument ein, wo sie automatisch zu einer Tabelle werden und Ihre gesamte Formatierung beibehalten wird.

3. Verwenden Sie in Word die wenig bekannten Tastenkombinationen UMSCHALT-ALT-UP-ARROW und UMSCHALT-ALT-DOWN-ARROW, um Zeilen (oder ausgewählte Zeilenblöcke) sehr schnell nach Belieben nach oben und unten zu verschieben. Wählen Sie eine oder mehrere Zeilen aus. Sie können die gesamte Zeile oder nur einen Teil der Zeile auswählen, wie hier gezeigt.

4. Wenn Sie die Zeilen in der gewünschten Reihenfolge angeordnet haben, fügen Sie sie wieder in Excel ein, wobei Sie darauf achten müssen, dass Sie genau die gleiche Größe des kopierten Stücks überschreiben.

Verwenden Sie unter Mac beim Ziehen die Tastenkombination Befehl + Umschalt. In Fenstern sollte es wohl Win + Shift sein.

Versuchen Sie:

Umschalt + Leertaste oder Mausklick auf die Zeilennummer, um die Zeile auszuwählen

Strg + X, um auszuschneiden

Mausklick an der gewünschten Stelle

Strg + V, um sie einzufügen

Für Snobs wie mich, die nur die Tastatur benutzen wollen:

1. Markieren Sie die Zellen, die Sie verschieben möchten (muss dafür nicht unbedingt eine komplette Zeile sein):
2. Gehen Sie zu der Zelle direkt unter der Zelle, deren Inhalt Sie nach verschieben möchten 3. Drücken Sie Strg++.

Eine leichte Verbesserung gegenüber @wilsons Antwort:

Rechtsklick Zeilennummer (z.B. Zeile 8), drücken Sie “t” Rechtsklick Zeilennummer (z.B. Zeile 5), drücken Sie “e”

Die gemischte Verwendung von Maus und Tastatur beschleunigt es für mich wirklich.

Hier ist ein Sub, das auch für Spalten funktioniert; es kombiniert die Funktionalität für alle vier Richtungen:

Sub MoveRowsOrColumns(direction As String)
    Dim rOriginalSelection As Range

    Select Case direction
    Case "up", "down"
        Set rOriginalSelection = Selection.EntireRow
    Case "left", "right"
        Set rOriginalSelection = Selection.EntireColumn
    Case Else
        Debug.Assert False
    End Select

    With rOriginalSelection
        .Select
        .Cut
        Select Case direction
        Case "up"
            .Offset(-1, 0).Select
        Case "down"
            .Offset(rOriginalSelection.Rows.Count + 1, 0).Select
        Case "left"
            .Offset(0, -1).Select
        Case "right"
            .Offset(0, rOriginalSelection.Columns.Count + 1).Select
        End Select
    End With
    Selection.Insert
    rOriginalSelection.Select
End Sub

Dies ist die einfachste, die ich gefunden habe. Kann nicht wirklich ziehen und ablegen:

Um z.B. Zeile 3 vor Zeile 2 zu verschieben:

• Rechtsklick auf Zeile 3 (auf die Zahl 3 links) und Auswahl Ausschneiden
• Rechtsklick auf Zeile 2 (auf die Zahl 2) und Auswahl Ausgeschnittene Zellen einfügen