HERBERS Excel-Forum - das Archiv
Bewerten Sie hier bitte das Excel-Portal
Makro größeren bereich kopieren mit .value
alex

hallo zusammen,
ich habe ein eher kleiners Problem.
Wie muß ich den folgenden Code umschreiben, damit ich einen größeren Range mittels .Value kopieren kann?
Sub test()
With Workbooks.Open(vorlage & "Vorlage_Master_EMA.xls").sheets("KT")
Range("b18:b1018").Value = ThisWorkbook.Sheets("MB HB Konverter").Range("n2:n1000")
end with
End Sub
vielen Dank im Vorraus
Gruß alex

AW: Makro größeren bereich kopieren mit .value
Josef

Hallo Alex,
ungetestet.
Sub test()
  Dim objWb As Workbook
  
  Set objWb = Workbooks.Open(vorlage & "Vorlage_Master_EMA.xls")
  
  ThisWorkbook.Sheets("MB HB Konverter").Range("n2:n1000").Copy
  objWb.Sheets("KT").Range("b18").PasteSpecial xlValues
  
  Set objWb = Nothing
End Sub

Gruß Sepp

AW: Makro größeren bereich kopieren mit .value
alex

dank dir
hat funktioniert