copy paste
27.05.2014 15:58:54
Herbert Greim
Hallo zusammen,
habe folgende VBA Anweisung
Option Explicit
Sub copy3()
Dim Rng2Copy As Range, Rng2Paste As Range
Dim aWerte()
Dim number As Variant
number = Range("I3")
Select Case number
Case 1
Set Rng2Copy = Sheets("AWH").Range("F15:F54")
Set Rng2Paste = Sheets("Mo").Range("L9:L48")
aWerte() = Rng2Copy
Rng2Paste = aWerte()
Case 2
Set Rng2Copy = Sheets("AWH").Range("g15:g54")
Set Rng2Paste = Sheets("Mo").Range("L9:L48")
aWerte() = Rng2Copy
Rng2Paste = aWerte()
Case 3
Set Rng2Copy = Sheets("AWH").Range("h15:h54")
Set Rng2Paste = Sheets("Mo").Range("L9:L48")
aWerte() = Rng2Copy
Rng2Paste = aWerte()
Case 4
Set Rng2Copy = Sheets("AWH").Range("i15:i54")
Set Rng2Paste = Sheets("Mo").Range("L9:L48")
aWerte() = Rng2Copy
Rng2Paste = aWerte()
End Select
End Sub
diese Case Anwendung müsste theoretisch 365 x geschrieben werden, da sich der Wert von Rng2Copy _
immer ändert. gibt es dafür eine For Each Schleife, die den RangeWert einen Schritt erhöht.
Vielen Dank im Voraus
Herby