Makroänderung Zellen in Zwischenablage
17.02.2009 11:48:00
Werner
ich habe ein Makro welches mir derzeit 2 4er-Blöcke an an Feldinhalten in meine erweiterete Zwischenablage legt.
Dies ging mit dieser erweitereten ZA (Fremdanbieter) erst nicht, aber mit dem folgenden Makro ist es gelungen.
Nun möchte ich das Makro so umstellen, dass nur 2 1er-Blöcke in die ZA gelegt werden.
Was muss ich da ändern?
Option Explicit
Private Declare
Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub Doppelpass4()
Range(Cells(ActiveCell.Row, ActiveCell.Column), Cells(ActiveCell.Row + 3, ActiveCell. _
Column) _
).Copy
Sleep 300
DoEvents
Range(Cells(ActiveCell.Row, ActiveCell.Column), Cells(ActiveCell.Row + 3, ActiveCell. _
Column) _
).ClearContents
Range(Cells(ActiveCell.Row + 4, ActiveCell.Column), Cells(ActiveCell.Row + 7, ActiveCell. _
_
_
Column)).Copy
Sleep 300
DoEvents
Range(Cells(ActiveCell.Row + 4, ActiveCell.Column), Cells(ActiveCell.Row + 7, ActiveCell. _
_
_
Column)).ClearContents
Cells(ActiveCell.Row + 8, ActiveCell.Column).Select
End Sub
Also Ablauf soll sein:
- Die markierte Zelle in die ZA
- Markierte Zelle löschen
- eine Zelle weiter unten markieren
- die markierte Zelle in die ZA
- Markierte Zelle löschen
- eine Zelle weiter unten markieren
Gruss Werner
Anzeige