Dim temp
With ActiveWindow.RangeSelection
if .Cells.Count = 2 Then _
temp = .Cells(1): .Cells(1) = .Cells(2): .Cells(2) = temp
End With
Sub tausch()
Dim a as long
dim b as long
If Selection.Count 2 Then Exit Sub
a = Range(Left(Selection.Address, 4))
b = Range(Right(Selection.Address, 4))
Range(Left(Selection.Address, 4)) = b
Range(Right(Selection.Address, 4)) = a
End Sub
E | F | G | H | |
| 6 | 3 |
|
| ee |
E | F | G | H | |
| 6 | 3 |
|
| ee |
| 7 | 3 |
|
|
|
Sub tausch()
Dim a, b, c, d
If Selection.Count 2 Then Exit Sub
a = Range(Left(Selection.Address, 4))
b = Range(Right(Selection.Address, 4))
c = Range(Left(Selection.Address, 4)).Address
d = Range(Right(Selection.Address, 4)).Address
Range(c) = b
Range(d) = a
End Sub
Dim a
Dim erste
Dim zweite
If Selection.Count 2 Then Exit Sub
a = Split(Selection.Address, ",")
erste = Range(a(0))
zweite = Range(a(1))
Range(a(1)) = erste
Range(a(0)) = zweite
Sub test()
Dim Rng As Range, Temp As Variant
If TypeOf Selection Is Range Then
If Selection.Count = 2 Then
Set Rng = Range(Replace(Selection.Address, ",", ":"))
Temp = Rng(1, 1)
Rng(1, 1) = Rng(Rng.Rows.Count, Rng.Columns.Count)
Rng(Rng.Rows.Count, Rng.Columns.Count) = Temp
End If
End If
End Sub
Um Zellinhalte in Excel zu tauschen, kannst Du folgende Schritte befolgen:
Zellen auswählen: Halte die Strg-Taste gedrückt und wähle die zwei Zellen aus, deren Inhalte Du tauschen möchtest.
VBA-Editor öffnen: Drücke ALT + F11, um den VBA-Editor zu öffnen.
Neues Modul einfügen: Klicke mit der rechten Maustaste auf "VBAProject (DeineArbeitsmappe)", wähle Einfügen und dann Modul.
Code einfügen: Kopiere den folgenden Code in das Modul:
Sub ZellinhalteTauschen()
Dim temp As Variant
If Selection.Count <> 2 Then Exit Sub
temp = Selection.Cells(1).Value
Selection.Cells(1).Value = Selection.Cells(2).Value
Selection.Cells(2).Value = temp
End SubCode ausführen: Schließe den VBA-Editor und kehre zu Excel zurück. Drücke ALT + F8, wähle ZellinhalteTauschen und klicke auf Ausführen.
Fehler: "Die Auswahl ist nicht korrekt."
Fehler: "Der Code funktioniert nicht wie erwartet."
Eine einfache Methode, um Zellen in Excel zu tauschen, ist die Verwendung von Drag & Drop:
Shift-Taste gedrückt und ziehe die Zelle auf die zweite Zelle.Shift-Taste gedrückt hältst.Diese Methode funktioniert gut, wenn die Zellen benachbart sind und Du keine VBA-Programmierung verwenden möchtest.
Beispiel 1: Angenommen, Du hast die Werte in Zelle A1 (10) und B1 (20). Nach dem Ausführen des Codes wird A1 (20) und B1 (10) sein.
Beispiel 2: Wenn Du zwei Zeilen tauschen möchtest, kannst Du den gleichen Code verwenden, jedoch die Zeilen entsprechend anpassen.
Sub ZeilenTauschen()
Dim temp As Variant
If Selection.Rows.Count <> 2 Then Exit Sub
temp = Selection.Rows(1).Value
Selection.Rows(1).Value = Selection.Rows(2).Value
Selection.Rows(2).Value = temp
End SubExcel Zellen tauschen Tastenkombination erstellen, um den Code schneller auszuführen.1. Kann ich mehr als zwei Zellen gleichzeitig tauschen?
Ja, aber dafür musst Du den Code anpassen, um mit mehr Zellen umzugehen.
2. Funktioniert dieser Code in allen Excel-Versionen?
Der Code sollte in allen Excel-Versionen funktionieren, die VBA unterstützen (Excel 2007 und später).
3. Was ist, wenn ich die Zellen vertauschen möchte, die nicht benachbart sind?
In diesem Fall musst Du sicherstellen, dass der Code die richtigen Zellen adressiert, eventuell mit der Verwendung von Union.
4. Gibt es eine Möglichkeit, Zellen ohne VBA zu tauschen?
Ja, Du kannst die Drag & Drop-Methode verwenden, solange die Zellen benachbart sind.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen