Viele Benutzer verwenden Excel als einfachen Datenbankmanager, der Informationen in verschiedene Zeilen eines Arbeitsblatts eingibt. Während Sie mit Ihren Datentabellen arbeiten, müssen Sie möglicherweise die Reihenfolge der Zeilen in der Tabelle umkehren. Wenn Sie also eine Tabelle mit zehn Zeilen haben, werden die Zeilen von zehn auf eins anstatt von eins auf zehn verschoben.

In Excel gibt es keine intrinsische Funktion, mit der Sie Daten auf diese Weise spiegeln können. Sie können jedoch die Sortierfunktionen von Excel verwenden, um dasselbe zu erreichen, indem Sie die folgenden allgemeinen Schritte ausführen:

  1. Fügen Sie unmittelbar links von Ihrer Datentabelle eine neue Spalte ein.

  2. Geben Sie in die Zellen der neuen Spalte die Zahlen 1 durch die Anzahl der Zeilen in Ihrer Tabelle ein.

  3. Wählen Sie die Zeilen aus, aus denen Ihre Datentabelle besteht.

  4. Wählen Sie im Menü Daten die Option Sortieren. Excel zeigt das Dialogfeld Sortieren an.

(Siehe Abbildung 1.)

  1. Geben Sie in der Dropdown-Liste Sortieren nach an, dass Sie nach Ihrer neu erstellten Spalte sortieren möchten.

  2. Klicken Sie als Sortierart auf Absteigend.

  3. Klicken Sie auf OK. Excel ordnet Ihre Daten in umgekehrter Reihenfolge neu an.

Wenn Sie täglich viele Daten umdrehen müssen, kann die Verwendung der oben genannten Schritte ziemlich anstrengend werden. In diesem Fall möchten Sie möglicherweise ein Makro erstellen, um die Aufgabe für Sie zu erledigen. Das folgende Makro, FlipRows, erledigt den Trick:

Sub FlipRows()

Dim vTop As Variant     Dim vEnd As Variant     Dim iStart As Integer     Dim iEnd As Integer         Application.ScreenUpdating = False         iStart = 1         iEnd = Selection.Rows.Count         Do While iStart < iEnd             vTop = Selection.Rows(iStart)

vEnd = Selection.Rows(iEnd)

Selection.Rows(iEnd) = vTop             Selection.Rows(iStart) = vEnd             iStart = iStart + 1             iEnd = iEnd - 1         Loop         Application.ScreenUpdating = True End Sub

Um dieses Makro zu verwenden, müssen Sie nur die Zeilen auswählen, die gespiegelt werden sollen, und es ausführen. Das Makro ändert Ihre Daten nur, wenn Sie die Zeilen umdrehen. Mit anderen Worten, es werden keine Informationsspalten hinzugefügt.

Ein interessantes Merkmal dieses Ansatzes ist, dass Sie ihn schnell an das Umblättern von Datenspalten anpassen können. Sie müssen lediglich alle Vorkommen des Wortes „Zeilen“ in „Spalten“ ändern. Somit wird Folgendes zum neuen Makro:

Sub FlipColumns()

Dim vTop As Variant     Dim vEnd As Variant     Dim iStart As Integer     Dim iEnd As Integer         Application.ScreenUpdating = False         iStart = 1         iEnd = Selection.Columns.Count         Do While iStart < iEnd             vTop = Selection.Columns(iStart)

vEnd = Selection.Columns(iEnd)

Selection.Columns(iEnd) = vTop             Selection.Columns(iStart) = vEnd             iStart = iStart + 1             iEnd = iEnd - 1         Loop         Application.ScreenUpdating = True End Sub

Wählen Sie einfach die Spalten aus, die Sie spiegeln möchten, und führen Sie dann das Makro aus.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.

Dieser Tipp (2653) gilt für Microsoft Excel 97, 2000, 2002 und 2003.