kopieren Sie Zellen von einem Blatt in ein anderes - wo die Zieladresse ist eine Zeichenfolge in einer Zelle

Question

Ich habe zwei Blätter (nennen sie eins und zwei). Ich möchte einen festen Bereich von Zellen von EINZ auf ein Ziel in ZWEI kopieren. Aber die Zieladresse in TWO ist ein String-Wert in einer festen Zelle in ONE.

Zum Beispiel hat ONE! C37 einen String-Wert von "A1500". Und ich möchte Zellen von ONE! A32: ONE! W32 zu ZWEI! A1500 kopieren. Und wenn sich der Wert der Zeichenfolge in der Zelle ONE! C37 ändert, ändert sich auch das Ziel in TWO.

Muss einfach sein, aber ich kann nicht sehen, wie das geht. Jede Hilfe wird sehr geschätzt.

Answer 1

Reich. Probieren Sie es aus:

Sub movetosheet2() 
Dim sheet_one_rng As Range: 
Dim sheet_two_rng As Range: 
Dim sheet_two_address As String: 

Set sheet_one_rng = Worksheets("Sheet1").Range("A1:B5") 
'Set the range from sheet 1 you'd like to copy onto sheet two 

sheet_two_address = Worksheets("Sheet1").Range("D1").Value 
'Supposing your location of "A1500" is stored in cell D1 on Sheet1 
'Note that the value of the D1 cell needs to be A1500:A1500 
'and NOT just A1500 
'You are essentially generating a string to pass into a range argument 

'Set the destination range on Sheet 2 using your string 

Set sheet_two_rng = Worksheets("Sheet2").Range(sheet_two_address) 
'Use the Range.Copy method 
sheet_one_rng.Copy Destination:=sheet_two_rng 

End Sub 

Hoffe, dass hilft!

Answer 2

unter dem Code Versuche:

Sub CopyRange() 

Dim RngSource   As Range 
Dim RngDest    As Range 
Dim DestString   As String 


' set source range from sheet "ONE" 
Set RngSource = Sheets("ONE").Range("A32:W32") 

' read destination range from cell "A37" in sheet "ONE" 
DestString = Sheets("ONE").Range("A37").Value 

' set destination range from sheet "TWO" 
Set RngDest = Sheets("TWO").Range(DestString) 

' copy from Sheet "ONE" to Sheet "TWO" 
RngSource.Copy Destination:=RngDest 

End Sub 

Answer 3

Sie benötigen nur eine Zeile:

Worksheets("ONE").Range("A32:W32").Copy Destination:=Worksheets("TWO").Range(Worksheets("ONE").Range("C37").Value) 

oder With-End With Block zu verwenden und einige Wiederholungen vermeiden:

With Worksheets("ONE") 
    .Range("A32:W32").Copy Destination:=Worksheets("TWO").Range(.Range("C37").Value) 
End With