Reihe aufrücken
13.01.2016 11:42:23
muehli
ich versuche gerade, dass alle Werte unterhalb einer Reihe aufgerückt werden.
Mein Versuch ist folgender:
Cells(6 + ii, 15).End(xlDown).Copy
Cells(5 + ii, 15).PasteSpecial
Cells(6 + ii, 16).End(xlDown).Copy
Cells(5 + ii, 16).PasteSpecial
Cells(6 + ii, 17).End(xlDown).Copy
Cells(5 + ii, 17).PasteSpecial
Cells(6 + ii, 18).End(xlDown).Copy
Cells(5 + ii, 18).PasteSpecial
Hat jemand einen besseren bzw. funktionierenden Vorschlag?
Freundliche Grüße und danke
Muehli