kopieren
07.08.2014 20:45:49
Herbert
Hallo zusammen,
habe folgendes Problem, der VBA Code funktioniert aber beim einfügen in die AWH kopiert er eine Spalte weiter als er soll.I3 in der Mo gibt den Datumswert in AWH aus und soll dann in die richtige Spalte in der AWH kopieren.
was ist falsch an dem Code ?
Private Sub copy_Click()
Dim Rng2Copy As Range, Rng2Paste As Range
Dim aWerte()
Dim number As Variant
number = Range("I3")
Set Rng2Copy = Sheets("Mo").Range("AJ9:AJ54")
Set Rng2Paste = Sheets("AWH").Range("B4:B45").Offset(0, number)
aWerte() = Rng2Copy
Rng2Paste = aWerte()
End Sub
Wer kann mir helfen ?
Gruß
Herby