Zellinhalte in Excel tauschen?

Gibt es eine einfache Möglichkeit, den Inhalt zweier Zellen in Microsoft Excel auszutauschen?

Mit einfach meine ich entweder eine Tastenkombination oder ein Menüelement, ohne das Kopieren in temporäre Zellen oder das Schreiben von VBA-Skripten oder dergleichen. Mit anderen Worten, ich suche nach einer Möglichkeit, nur zwei Zellen auszuwählen und auf einen Menüeintrag zu klicken oder eine Tastenkombination zu drücken, die deren Inhalt vertauscht. Es muss doch einen Weg geben, dies zu tun?

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

Manchmal müssen zwei benachbarte Zellen ausgetauscht werden. Wir können es leicht manuell tun. Schauen Sie sich den folgenden Screenshot an, ich möchte die Zellen A4 und B4 tauschen. Gehen Sie dazu wie folgt vor:

1. Wählen Sie die Zelle aus, die Sie austauschen möchten. Wählen Sie in diesem Beispiel die Zelle A4 aus.

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 von Zelle B4.

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

5. Und die beiden Zellinhalte wurden getauscht.

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

Für den speziellen Fall benachbarter rechteckiger Bereiche gleicher Größe können Sie die in dieser Antwort beschriebene Methode auf eine ähnliche Frage anwenden .

1. Wählen Sie den rechten oder unteren Bereich
2. Drücken Sie Ctrl+X
3. Wählen Sie den angrenzenden Bereich (dh direkt über oder links)
4. Drücken Sie Ctrl+ +(das +steht normalerweise über der =Taste, sodass dies in Ctrl+ Shift+ übersetzt wird =)

Beachten Sie, dass Sie auf dieselbe Weise ganze benachbarte Zeilen oder Spalten austauschen können.

Mit einfach meine ich entweder eine Tastenkombination oder ein Menüelement, ohne das Kopieren in temporäre Zellen oder das Schreiben von VBA-Skripten oder dergleichen. Ich suche nach einer Möglichkeit, nur zwei Zellen auszuwählen und auf ein Menüelement zu klicken oder eine Tastenkombination zu drücken, mit der der Inhalt ausgetauscht wird.

Warum diese Einschränkung auferlegen? 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 zweier Zellen in Excel zu tauschen, ohne dafür ein eigenes Makro zu schreiben.

BEARBEITEN: Es hört sich so an, als gäbe es jetzt eine einfache Möglichkeit, den Zellinhalt in neueren Versionen von Excel auszutauschen. Daher ist diese Antwort wahrscheinlich nicht mehr aktuell.

Wählen Sie die erste Gruppe von Zellen aus, die ausgetauscht werden sollen, und drücken Sie ctrl+ x:

Wählen Sie die Zellen neben denen aus, mit denen Sie tauschen möchten, und drücken Sie ctrl+ +.

Sie können bis zu 25 Elemente in die Zwischenablage einfügen, sodass Sie sie einfach mit STRG + TAB oder CMD + TAB MAC austauschen können

• Wählen Sie die unterste Zelle aus, die Sie tauschen möchten
• Drücken Sie Ctrl+ Xund gehen Sie zu der Zelle, mit der Sie tauschen möchten
• Drücken Sie Ctrl+ Shift+=

Der Swap wird ausgeführt

Ich habe diesen Beitrag gelesen, brauchte aber tatsächlich ein Makro, um die gesamten Bereiche auszutauschen. Außerdem musste ich die Farben tauschen. Das ursprünglich gepostete Makro wurde leicht modifiziert, dies 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