Bereiche übernehmen



Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: Bereiche übernehmen
von: Wolfgang Forster
Geschrieben am: 10.07.2002 - 15:17:18

Habe folgenden Code!!
index = 2
Cells(index, 2) = Worksheets("test").Cells(index, 1)
Cells(index, 3) = Worksheets("test").Cells(index, 2)
Cells(index, 4) = Worksheets("test").Cells(index, 3)

Möchte nicht jede einzelne Zelle von einem Blatt auf das andere schieben sonder den ganzen Bereich.

danke im voraus!!
wolfgang


nach oben   nach unten

Re: Bereiche übernehmen
von: Hans W. Herber
Geschrieben am: 10.07.2002 - 16:04:30

Hallo Wolfgang,

wie folgt:


Sub Kopieren()
   With Worksheets("test")
      Range(Cells(2, 2), Cells(2, 4)).Value = _
         .Range(.Cells(2, 2), .Cells(2, 4)).Value
   End With
End Sub

hans

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Bereiche übernehmen"