Microsoft Excel

Herbers Excel/VBA-Archiv

Spaltenbereich ausschneiden und einfügen | Herbers Excel-Forum


Betrifft: Spaltenbereich ausschneiden und einfügen von: Peter
Geschrieben am: 05.01.2010 10:58:08

Guten Tag

Ich möchte im ersten Sheet eines bestimmten Workbooks einen Spaltenbereich aus der Spalte P ausschneiden und in Spalte N einfügen.

Ich habe etwas Probleme mit der Syntax.

Wer hilft mir?

Vielen Dank, Peter

With ActiveWorkbook
.Sheets(1).range(cells(1,16),cells(zEnd,16)).cut _
.Sheets(1).range(cells(1,14),cells(zEnd,14)).insert shift:=xltoRight
End With

  

Betrifft: AW: Spaltenbereich ausschneiden und einfügen von: Ramses
Geschrieben am: 05.01.2010 11:06:05

Hallo

Dein "Cut" Bereich ist nicht identlisch mit dem "Insert"-Bereich

Cut: range(cells(1,16),cells(zEnd,16))
Insert: range(cells(1,14),cells(zEnd,14))

Ansonsten kannst du das ja mal mit dem Makrorekorder aufzeichnen um an die korrekte Syntax zu kommen

Gruss Rainer


  

Betrifft: AW: Spaltenbereich ausschneiden und einfügen von: Peter
Geschrieben am: 05.01.2010 11:25:49

Hallo Rainer
Danke für die Hilfe. Ich hatte mit dem Makrorecorder aufgezeichnet, doch das hat mir nicht weitergeholfen bezüglich Syntax - oder habe ich etwas falsch gemacht?
Gruss, Peter

''''Range("L1:L12").Select
'''' Application.CutCopyMode = False
'''' Selection.Cut
'''' Range("K1:K12").Select
'''' Selection.Insert Shift:=xlToRight


  

Betrifft: AW: Spaltenbereich ausschneiden und einfügen von: hary
Geschrieben am: 05.01.2010 11:29:40

Hallo peter
teste mal so

With ActiveWorkbook
.Sheets(1).Range(Cells(1, 16), Cells(zEnd, 16)).Cut .Sheets(1).Cells(1, 14)
End With

gruss hary


  

Betrifft: AW: Spaltenbereich ausschneiden und einfügen von: Peter
Geschrieben am: 05.01.2010 11:41:27

Hallo Harry
Das funktioniert insoweit nicht, als die anderen Spalten so nicht nach rechts geschoben werden und daher die bisherige Spalte O verschindet.
und den Befehl InserttoRight bringe ich in dieser Konstellation nicht unter.

Gruss, Peter


  

Betrifft: Dann eben so.... von: Ramses
Geschrieben am: 05.01.2010 12:07:06

Hallo


Sub test()
    Dim zend As Long
    zend = 8
    With ActiveWorkbook
        .Sheets(1).Range(Cells(1, 16), Cells(zend, 16)).Copy
        .Sheets(1).Cells(1, 4).Insert shift:=xlToRight
        .Sheets(1).Range(Cells(1, 16), Cells(zend, 16)).Clear
    End With
End Sub


Gruss Rainer


  

Betrifft: AW: Danke, alles klar!, owT von: Peter
Geschrieben am: 05.01.2010 13:01:57




Beiträge aus den Excel-Beispielen zum Thema "Spaltenbereich ausschneiden und einfügen"