Excel und VBA: Formeln, Programmierung, Lösungen

StandardModule: Modul1

Sub MultipleRanges()
   Dim rng As Range
   For Each rng In Selection.Areas
      Worksheets("Ziel").Range(rng.Address).Value = rng.Value
   Next rng
End Sub

    

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Kopieren