Ich will innerhalb einer Tabelle den Bereich F2:I2 mit B2:E2 tauschen (alles Werte, keine Formeln enthalten).
Dies habe ich versucht mit kopieren von F2:I2, dann einsetzen bei B2 und anschliessend die Inhalte der nach hinten geschobenen Zellen löschen.
Irgend etwas klappt noch nicht, wenn ich den Code Schritt für Schritt laufen lasse, sehe ich, dass bei der Zelle .Insert shift:=xlToRight nichts passiert.
Wer kann mir weiterhelfen?
Danke und Gruss, Peter
With Sheets(strName)
.Range("F2:I2").Copy
.Range("B2").Select
.Insert shift:=xlToRight
.Range("j2:m2").ClearContents
End With