Also ich zeig mal was ich gebastelt habe :-)
Bitte nicht erschlagen, ich bin totaler Anfänger und daher habe ich versucht es selbst hinzubekommen. Ich habe mir den Makroaufzeichner zur Hilfe genommen, der mir einen Code ausgeworfen hat, den ich dann teilweise genommen habe. Funktioniert nur leider nicht gut :-)
Hier der Code:
Sub test_Kopie_aus_Roberta()
'
' test_Kopie_aus_Roberta Makro
'
' Tastenkombination: Strg+r
'
Windows("Auftragsabrechnung_aktuell.xlsx").Activate
'Hier ist nun der Code von Karin der wohl angepasst werden muss- Danke.
Dim lngLetzte As Long
lngLetzte = .Cells.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
.Range(.Cells(lngletztem1), .Cells(lngLetzte, 6)).Copy
Windows("2023_Bewertung_SV_V1.2_eigene.xlsm").Activate
Worksheets("Bewertung_SV_2023").Range("B10").End(xlDown).Offset(1, 0).Select
ActiveSheet.Paste
Worksheets("Bewertung_SV_2023").Range("B10").End(xlDown).Offset(0, 7).Select
Application.CutCopyMode = False
End Sub