Spalten mit Makro tauschen
15.04.2017 15:01:00
Daniel
ich habe leider kaum Erfahrung mit VBA und finde auch in keinem Forum etwas zu meinem Problem.
Und zwar möchte ich eine markierte Spalte mit der Spalte rechts daneben tauschen.
Ich hatte etwas probiert wie:
Sub SpaltenTausch()
Dim tmp As Variant
With Sheets("Tabelle1")
tmp = .Range("A1:A20")
.Range("A1:A20").Value = .Range("B1:B20").Value
.Range("B1:B20").Value = tmp
End With
End Sub
Wenn ich nur die Spalten A und B habe funktioniert das auch ganz gut, allerdings möchte ich das für eine beliebige Spalte und eben die rechts daneben machen.
Gibt es da Funktionen wie ActiveCell.Column.Offset(0,1)? Wie gesagt, ich hab leider noch nicht viel Erfahrung, wäre nett wenn mir da jemand helfen könnte.
LG