Kopieren mit auswahl
08.08.2014 16:58:47
Herbert
mit diesem Code kopiere ich ohne Probleme, möchte aber, dass nur bestimmte Werte z.B
"Hans" steht in Range AJ13- AJ45, dann soll in Range B4 - B45 auch nur dieser Wert kopiert werden.
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 -1)
aWerte() = Rng2Copy
Rng2Paste = aWerte()
End Sub
Gruß
Herby