Array verädern?
03.01.2016 21:52:01
Thomas
ich kopiere mit dem unten stehenden Macroteil ( aus dem Forum) die betroffenen Spalten von blatt "Vorgang" ins blatt "temp" und füge es ab spalte a wieder ein. Die funktioniert auch super und ist super schnell.
Aus diesem Grund möchte ich diesen Teil noch für ein anderes macro benutzen.
Jedoch möchte ich gern das die Spalten erst ab der Spalte i wieder eingefügt werden.
Egal was ich versuche es klappt nicht.
Kann mir jemand ein tipp geben?
liebe grüsse thomas
arrA = Array("", "H", "K", "D", "B", "Z", "CN", "Cv") ' kopiere alle spalten in speicher reihenfolge beachten
' Spalten einfügen
With Sheets("temp")
.Columns("i:p").Clear
For a = 1 To 7
Sheets("Vorgang").Columns(arrA(a)).Copy
.Range(.Cells(1, a), .Cells(1, a)).PasteSpecial Paste:=xlValues
.Range(.Cells(1, a), .Cells(1, a)).PasteSpecial Paste:=xlPasteFormats 'Formate _einfuegen
Next a