Zellinhalte in Excel vertauschen?

Von: http://www.extendoffice.com/documents/excel/860-excel-swap-contents-of-two-cells.html

Manchmal müssen zwei aneinandergrenzende Zellen vertauscht werden. Das kann man leicht manuell machen. Schauen Sie sich den folgenden Screenshot an, ich möchte die Zellen A4 und B4 vertauschen, bitte gehen Sie wie folgt vor:

1. Wählen Sie die Zelle, die Sie tauschen möchten. In diesem Beispiel wählen Sie die Zelle A4.

2. Drücken Sie die Umschalttaste, und setzen Sie den Cursor an den rechten Rand.

3. Ziehen Sie dann den Cursor an den rechten Rand der Zelle B4.

4. Wenn dort “工” angezeigt wird, lassen Sie die Maus los.

5. Und die beiden Zelleninhalte sind vertauscht.

Mit dieser Methode können wir auch zwei benachbarte Zeilen oder Spalten vertauschen.

Für den speziellen Fall von benachbarten gleich großen rechteckigen Bereichen können Sie die in dieser Antwort auf eine ähnliche Frage beschriebene Methode verwenden.

1. Wählen Sie den rechten oder unteren Bereich
2. Drücken Sie die Tastenkombination Strg+X
3. Wählen Sie den angrenzenden Bereich (d. h. direkt darüber oder links davon)
4. Drücken Sie Strg+ + (die Taste + befindet sich normalerweise über der Taste =, so dass dies mit Strg+Umschalt+= übersetzt werden kann)

Hinweis: Sie können das gleiche Verfahren verwenden, um ganze benachbarte Zeilen oder Spalten zu vertauschen.

Mit einfach meine ich entweder eine Tastenkombination oder einen Menüpunkt, ohne das Kopieren in temporäre Zellen oder das Schreiben von VBA-Skripten oder etwas Ähnliches. Ich suche nach einer Möglichkeit, einfach zwei Zellen zu markieren und auf einen Menüpunkt zu klicken oder eine Tastenkombination zu drücken, die den Inhalt der Zellen vertauscht.

Warum diese Einschränkung? Das Erstellen eines Makros macht dies trivial. Soweit ich weiß, kann es nicht anders gemacht werden. Sie können das Makro einer Taste oder einem Hotkey zuweisen.

Sub Swap()     
    If Selection.Count <> 2 Then     
         MsgBox "Select 2 cells (only) to swap."     
         Exit Sub     
    End If     
    Set trange = Selection     
    If trange.Areas.Count = 2 Then     
         temp = trange.Areas(2)     
         trange.Areas(2) = trange.Areas(1)     
         trange.Areas(1) = temp     
    Else     
         temp = trange(1)     
         trange(1) = trange(2)     
         trange(2) = temp     
    End If     
End Sub

Nein. Es gibt keine Möglichkeit, den Inhalt von zwei Zellen in Excel zu vertauschen, ohne ein eigenes Makro dafür zu schreiben.

EDIT: Es klingt so, als gäbe es jetzt eine einfache Möglichkeit, Zellinhalte in neueren Versionen von Excel zu vertauschen, daher ist diese Antwort jetzt wahrscheinlich veraltet.

Markieren Sie den ersten Satz der zu tauschenden Zellen und drücken Sie ctrl+x:

Markieren Sie die Zellen BESIDE der Zellen, mit denen Sie tauschen möchten, und drücken Sie ctrl++.

• Markieren Sie die unterste Zelle, die Sie tauschen möchten
• Drücken Sie Strg+X und gehen Sie zu der Zelle, mit der Sie tauschen möchten
• Drücken Sie Strg+Umschalt+=

Der Tausch wird ausgeführt

Ich habe diesen Beitrag gelesen, brauchte aber eigentlich ein Makro, um ganze Bereiche zu tauschen. Außerdem brauchte ich, um die Farben zu tauschen. Ich habe das ursprünglich gepostete Makro leicht modifiziert, das könnte für jemanden nützlich sein.

Sub Swap()

    If Selection.Areas.Count <> 2 Then
         MsgBox "Select 2 cell ranges (only) to swap."
         Exit Sub
    End If

    If Selection.Areas(1).Count <> Selection.Areas(2).Count Then
         MsgBox "The two areas must be of equal size"
         Exit Sub
    End If

    'With this for loop we run through each cell 1 by 1
    For i = 1 To Selection.Areas(1).Count
        'Swapping values
        temp = Selection.Areas(1)(i)
        Selection.Areas(1)(i) = Selection.Areas(2)(i)
        Selection.Areas(2)(i) = temp

        'Swapping color
        tempColor = Selection.Areas(1)(i).DisplayFormat.Interior.Color
        Selection.Areas(1)(i).Interior.Color = Selection.Areas(2)(i).DisplayFormat.Interior.Color
        Selection.Areas(2)(i).Interior.Color = tempColor
    Next i

End Sub

Sie können bis zu 25 Elemente in die Zwischenablage einfügen, so dass sie mit ctr+tab oder cmd+tab mac leicht ausgetauscht werden können