Copy Range VBA
25.08.2004 15:22:44
Frank
ich will per VBA immer zwei bestimmte Zellen kopieren um diese dann in ein anderes Sheet zu pasten. Hier der Code: Was ist falsch?
Sub Coefficients()
' Coefficients Macro
Dim Coefficients As Worksheet
Dim Regressions As Worksheet
Set Coefficients = Sheets("Coefficients")
Set Regressions = Sheets("Regressions")
For x = 17 To 37 Step 20
Regressions.Range(Cells(x, 2), Cells(x + 1, 2)).Copy
Coefficients.Cells(2, m).Paste
m = m + 1
Next x
End Sub
Die ersten Zwei Zellen die Kopiert werden sind in Reihe 17 und 18 und soller in Spalte 1 kopiert werden. Die nächsten Zellen die kopiert werden sind dann in Reihe 37 und 38 und sollen in Spalte 2 kopiert werden usw. Leider gibt der Code mir bei Regression.Range.... eine Fehlermeldung. Was ist falsch?
Für Hilfe wäre ich dankbar,
FRank