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