Spalten kopieren,links davon einfügen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
InputBox MsgBox
Bild

Betrifft: Spalten kopieren,links davon einfügen
von: Hermann
Geschrieben am: 26.11.2015 15:15:03

Hallo zusammen,
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

Bild

Betrifft: AW: Spalten kopieren,links davon einfügen
von: Rudi Maintaire
Geschrieben am: 26.11.2015 15:26:07
hallo,
was willst du löschen? I:L oder M:P?
Clearcontents muss nach Insert kommen.
Gruß
Rudi

Bild

Betrifft: AW: Spalten kopieren,links davon einfügen
von: Hermann
Geschrieben am: 26.11.2015 15:41:48
Hallo Rudi,
Ich möchte die Inhalte von M:P löschen.
Wenn ClearContents nach Insert kommt, muß ich wohl Range(Anf+4,End+4)löschen.
Frage: Ist dieser Code ordnungsgemäß geschrieben oder gibt es eine bessere Schreibweise?
Gruß, Hermann

Bild

Betrifft: AW: Spalten kopieren,links davon einfügen
von: Rudi Maintaire
Geschrieben am: 26.11.2015 15:52:42
Hallo,

  lngSpAnf = rngSelect.Column
  lngSpEnd = rngSelect.Columns(rngSelect.Columns.Count).Column
  lngLC = Cells(Rows.Count, lngSpAnf).End(xlUp).Row
  rngSelect.Copy
  rngSelect.Insert Shift:=xlToRight
  rngSelect.ClearContents
Gruß
Rudi

Bild

Betrifft: AW: Spalten kopieren,links davon einfügen
von: Hermann
Geschrieben am: 26.11.2015 16:10:39
Hallo Rudi,
ich bin noch am ausprobieren. So funktioniert es nicht,
Gruß, Hermann

Bild

Betrifft: AW: Spalten kopieren,links davon einfügen
von: Hermann
Geschrieben am: 26.11.2015 16:17:02
Hallo Rudi,
ich mußte zuvor noch den Rahmen vom kopieren entfernen.

Application.CutCopyMode = False

Jetzt funktionierts
Vielen Dank,
GH

Bild

Betrifft: AW: Spalten kopieren,links davon einfügen
von: Hermann
Geschrieben am: 26.11.2015 15:56:13
Hallo Rudi,
Ich möchte die Inhalte von M:P löschen.
Wenn ClearContents nach Insert kommt, muß ich wohl Range(Anf+4,End+4)löschen.
Frage: Ist dieser Code ordnungsgemäß geschrieben oder gibt es eine bessere Schreibweise?
Gruß, Hermann

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Spalten kopieren,links davon einfügen"