Dim quelleroh As Range
Dim zielroh As Range
Set quelleroh = Tabelle2.Range(Tabelle2.Cells(1, 1), Tabelle2.Cells(73, 15))
Set zielroh = Tabelle1.Range(Tabelle1.Cells(1, 1), Tabelle1.Cells(73, 15))
quelleroh.Copy Destination:=zielroh
Mal ist die Methode fehlgeschlagen, mal ungültig, irgendetwas kommt immer !!!