Kopieren und einfügen



Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: Kopieren und einfügen
von: Thomas H.
Geschrieben am: 07.07.2002 - 17:12:10

Hallo Leute,

wie kann ich mit einen Makro die Zelle A1 bis A20 Kopieren und dann ab Zelle A21 bis A3000
das Kopierte einfügen?

Thomas H.


nach oben   nach unten

Re: Kopieren und einfügen
von: Klaus Schubert
Geschrieben am: 07.07.2002 - 18:46:17

Hallo Thomas,

wie wär's hiermit:


Sub KopierenUndEinfügen()
Dim Bereich As Range, i As Integer
Set Bereich = Range("a1:a20")

    For i = 21 To 3000 Step 20
        Bereich.Copy Cells(i, 1)
    Next i
    
End Sub

Gruß Klaus

nach oben   nach unten

Re: Kopieren und einfügen
von: Thomas H.
Geschrieben am: 07.07.2002 - 18:57:54

Hallo Klaus,

vielen Dank für Deine Hilfe.

Thomas H.


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Kopieren und einfügen"