Reihe aufrücken

Forumthread: Reihe aufrücken

Reihe aufrücken

13.01.2016 11:42:23

muehli

Hallo zusammen,
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

Leider funktioniert das so nicht.
Hat jemand einen besseren bzw. funktionierenden Vorschlag?
Freundliche Grüße und danke
Muehli

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Reihe aufrücken

13.01.2016 11:44:22

ransi
AW: Reihe aufrücken

13.01.2016 11:48:56

muehli
AW: Reihe aufrücken

13.01.2016 12:04:24

muehli
AW: Reihe aufrücken

13.01.2016 12:06:20

Rudi
AW: Reihe aufrücken

13.01.2016 12:08:01

muehli
AW: Reihe aufrücken

13.01.2016 12:15:14

Rudi
AW: Reihe aufrücken

15.01.2016 11:08:15

muehli

AW: Reihe aufrücken

13.01.2016 11:44:22

ransi

Hallo Mühli,

...dass alle Werte unterhalb einer Reihe aufgerückt werden.
Wie meinst du das ?
ransi

AW: Reihe aufrücken

13.01.2016 11:48:56

muehli

Hi Ransi,
So:
Cells(5+ii,15) entspricht hier 3
Cells(5+ii,16) entspricht hier 3
Cells(5+ii,17) entspricht hier 3
Cells(5+ii,18) entspricht hier 3
Vorher:
...
2 2 2 2
3 3 3 3
4 4 4 4
...
Danach:
...
2 2 2 2
4 4 4 4
5 5 5 5
...
Gruß
Muehli

AW: Reihe aufrücken

13.01.2016 12:04:24

muehli

Zum besseren Verständnis stelle ich hier mal meinen Code rein:

    LetzteZeile = Range("O65536").End(xlUp).Row
For i = 0 To LetzteZeile
For ii = i To LetzteZeile
If Cells(4 + i, 15).Value = Cells(5 + ii, 15).Value And Cells(4 + i, 19).Value Like  _
"*W*" Then
Cells(5 + ii, 15).Value = ""
Cells(5 + ii, 16).Value = ""
Cells(5 + ii, 17).Value = ""
Cells(5 + ii, 18).Value = ""
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
End If
Next
Next

AW: Reihe aufrücken

13.01.2016 12:06:20

Rudi

Hallo,
lösch doch einfach die Zellen/Zeilen.
Gruß
Rudi

AW: Reihe aufrücken

13.01.2016 12:08:01

muehli

Hi Rudi,
das Problem ist, ich habe links und rechts davon weitere Daten stehen.
Somit würden diese doch mitgelöscht oder?
Gruß
Muehli

AW: Reihe aufrücken

13.01.2016 12:15:14

Rudi

wenn du nur O:R löschst nicht.
Beispielmappe?
Gruß
Rudi

AW: Reihe aufrücken

15.01.2016 11:08:15

muehli

Hi Rudi,
hattest recht :)
Gruß und danke an euch!
Muehli

Beliebteste Forumthreads (12 Monate)

Forumthread: Reihe aufrücken

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread