Array as Range Select copy and paste
04.01.2016 16:58:45
Jonas
ich habe ein VBA Problem und hoffe mir kann hier jemand helfen.
In dem Code werden mehrere Zellen in einen einen Array vom Typ Range eingelesen.
Anschließen soll Array(x) augewählt, kopiert und an einer anderen Stelle wieder eingefügt werden.
Ich hätte gerne nur die Zellwerte genommen, was ja kein Problem gewesen wäre aber die Formatierung sollte erhalten bleiben.
Danke schon mal im Vorraus.
lG Jonas
Der Code sieht wie folgt aus:
For x = 0 To 7 'Speichern von Zyklen in den jeweiligen Variablen (arrays)
Set Zyklus(x) = Range(Cells((i - 1) * 12 + 3, 25), Cells(i * 12 + 2, 25))
Set Steigung(x) = Range(Cells((i - 1) * 12 + 3, 27), Cells(i * 12 + 2, 27))
Set Delta40(x) = Range(Cells((i - 1) * 12 + 3, 28), Cells(i * 12 + 2, 28))
Set MaxSteigung(x) = Range(Cells((i - 1) * 12 + 3, 30), Cells(i * 12 + 2, 30))
Set MaxSteigungFaktor(x) = Range(Cells((i - 1) * 12 + 3, 32), Cells(i * 12 + 2, 32))
Next x
Sheets(3).Activate
For x = 0 To 7
Zyklus(x).Select
'Selection.Copy
Range(Cells(7 * farb + x, 3), Cells(7 * farb + x, 3)).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True