Spalten kopieren,links davon einfügen
26.11.2015 15:15:03
einfügen
die Eingabe in einer Inputbox füllt mir meine Variable rngSelcet mit einem Rangeobj.
z.B. "$I:$L". Mit zwei weiteren Variablen hole ich mir die Anfangs-, Endspalte meiner Variable. lngSpAnf = 9, lngSpEnd = 12. Nun kopiere ich mein rngSelect also Spalte 9 - 12 und füge die kopierten Spalten vorher mit
rngSelect.Insert Shift:=xlToRight ein. Das klappt noch. Aber ich möchte nachdem ich die Spalte 9-12 kopiert habe die Inhalte derer löschen. Ein Versuch mit ClearContents bringt nicht den gewünschten Erfolg. Vielleicht könnt ihr mir helfen.
Gruß, Hermann
MsgBox "......rngSelect.Address............"
lngSpAnf = rngSelect.Column
lngSpEnd = rngSelect.Columns(rngSelect.Columns.Count).Column
lngLC = Cells(Rows.Count, lngSpAnf).End(xlUp).Row
rngSelect.Copy
'rngSelect.ClearContents funktioniert hier nicht
rngSelect.Insert Shift:=xlToRight