Office: VBA Copy an Paste

Hallo zusammen,

Ich stehe vor folgender Aufgabe:

Ich habe in D506:J506 text. Diesen möchte ich mittels VBA Kopieren und weiter oben an die letzten unbeschriebenen zellen einfügen.

Dazu habe ich den Macro aufzeichner benutzt:

Zellen markiert; Kopiert; mit Strg und Pfeiltaste hoch zur letzten zelle danach pfeiltaste runter und mittels strg und v eingefügt.

Das ist dabei rausgekommen:

Sub Makro9()
'
' Makro9 Makro
'

'
ActiveWindow.SmallScroll Down:=483
ActiveCell.Offset(504, 0).Range("A1:G2").Select
Selection.Copy
ActiveCell.Offset(-1, 0).Range("A1").Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(2, 0).Range("A1").Select
End Sub


Kann mir jemand bei meinem Problem helfen?

Ganz toll wäre es, wenn man es an belibiger stelle einfügen könnte. beliebig ein ich, die zelle die angesprochen mittels Curser.

Ich hoffe Ihr konntet mir folgen.

Danke und schönen Abend

Gruss

Eicky

 

Hallo Eicky,


Dim LoLetzte As Long
LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)+1
ActiveCell.Offset(504, 0).Range("A1:G2").Copy Range("A" & Loletzte)

 

Hallo Hajo_Zi

erstmal, danke für Deine schnelle Antwort, ich habe gestern noch mit deiner Antwort experimentiert. Leider ohne den Erfolg.

Mir fehlt leider auch die nötige Erfahrung was VBA angeht.

Das ist der Code, der bis jetzt dabei herausgekommen ist.

Range("D506:J507").Select
Selection.Copy
Dim LoLetzte As Long
LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)+1
ActiveCell.Offset(504, 0).Range("A1:G2").Copy Range("A" & Loletzte)

Weil ich mir einbilde, der Teil mit

Range("D506:J507").Select
Selection.Copy

Markiert die Zelle und Kopiert sie

und der teil fügt das ganze an letzter stelle ein

Dim LoLetzte As Long
LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)+1
ActiveCell.Offset(504, 0).Range("A1:G2").Copy Range("A" & Loletzte)


Leider funktioniert gar nichts

 

Habe eine eigene Lösung gefunden. Danke Dir Hajo_Zi trotzdem

ActiveCell.Activate
Range("D506:J507").Copy ActiveCell