Es erhalten.
Die Linie bitte ändern
wb1.Sheets („Daten“). Strecke („B25: R42“). _ Kopieren
wb2.Sheets („über die Zeit hinaus“). Strecke („B3: R20“)
Zu
wb1.Sheets („Daten“). Strecke („B25: R42“). Kopie
wb2.Sheets („über die Zeit hinaus“). Strecke („B3: R20“) .PasteSpecial xlPasteValues