Office: (Office 2010) Aktive Zelle als Variable definieren

Hallo ihr Lieben :)

Folgendes: Ich möchte einen Bereich kopieren und der soll dann in der Zelle, wo sich der Cursor gerade befindet eingefügt werden. Dazu hier mein Makro:

Sub test()

Dim inZeile As Integer
Dim inSpalte As Integer

inZeile = ActiveCell.Row
inSpalte = ActiveCell.Column

ActiveSheet.Range("A15: D27").Copy
Cells(inZeile, inSpalte).Paste

End Sub

Nun erscheint aber folgender Fehler: "Objekt unterstützt diese Eigenschaft oder Methode nicht"

Weiß jemand woran das liegt?

 

Hallo!

Warum so umständlich? Dies hier sollte doch eigentlich reichen:

Code:

Sub test()
ActiveSheet.Range("A15:D27").Copy ActiveCell
End Sub

 

Hi,

wenn du unbedingt .Paste verwenden willst (wenn z.B. auch ein vorhandenes Shape mit kopiert werden soll), dann so:

Code:

ActiveSheet.Range("A15:D27").Copy
[COLOR=#0000ff][B]ActiveSheet[/B][/COLOR].Paste

Wenn du nur bestimmte Dinge einfügen willst (z.B. nur die Werte), dann .PasteSpecial:

Code:

ActiveSheet.Range("A15:D27").Copy
[B][COLOR=#0000ff]ActiveCell[/COLOR][/B].PasteSpecial Paste:=xlValues

Oder im Normalfall, wenn du sozusagen Strg+C -> Strg+V ausführen willst, eben so:

Code:

ActiveSheet.Range("A15:D27").Copy [COLOR=#0000ff][B]ActiveCell[/B][/COLOR]

Bis später,
Karin