01.12.2017, 15:24
Hallo,
möchte ich die Inhalte zweier Spalten z.B. der Spalten B und C vertauschen kann ich dies folgendermaßen erledigen:
Statt ganze Spalten zu tauschen, möchte ich jetzt so etwas für nur eine Zelle aus der Spalte B mit ihrer Nachbarzelle aus der Spalte C machen.
Bisher habe ich nur so etwas (Tausch der Zelle B3 mit C3):
Selection.Cut
Range("D3").Select
Selection.Insert Shift:=xlToRight
Wie kann ich den Code vereinfachen und verallgemeinern, dass alles in einer Codezeile steht?
möchte ich die Inhalte zweier Spalten z.B. der Spalten B und C vertauschen kann ich dies folgendermaßen erledigen:
Code:
Columns("B:B").Cut: Columns("D:D").Insert xlToRight
Statt ganze Spalten zu tauschen, möchte ich jetzt so etwas für nur eine Zelle aus der Spalte B mit ihrer Nachbarzelle aus der Spalte C machen.
Bisher habe ich nur so etwas (Tausch der Zelle B3 mit C3):
Selection.Cut
Range("D3").Select
Selection.Insert Shift:=xlToRight
Wie kann ich den Code vereinfachen und verallgemeinern, dass alles in einer Codezeile steht?