Range vv. Cells
19.12.2016 15:40:31
Rolf H.
Hallo zusammen,
in der Datei Haus steht dieses Makro:
Sub Arzt_öffnen_33()
Application.ScreenUpdating = False
GetObject ActiveWorkbook.Path & "\Arzt-Rezept.xlsm"
Workbooks("Arzt-Rezept.xlsm").Worksheets("T2").Range("AC8:AD9").Copy
ActiveWorkbook.Worksheets("Aktuell").Range("H9").PasteSpecial Paste:=xlPasteValues
End Sub
Das funktioniert!Sub Arzt_öffnen_33()
Application.ScreenUpdating = False
GetObject ActiveWorkbook.Path & "\Arzt-Rezept.xlsm"
r=8
Workbooks("Arzt-Rezept.xlsm").Worksheets("T2").Range(Cells(r, 29), Cells(r+1, 30)).Copy
ActiveWorkbook.Worksheets("Aktuell").Range("H9").PasteSpecial Paste:=xlPasteValues
End Sub
Warum klappt das nicht? Was mache ich da falsch?
Gruß Rolf