Verschieben von aktiver Zelle

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Nach_links() With Range(ActiveCell, ActiveCell.Offset(0, -1)) .Cut .Offset(0, -1).Insert Shift:=xlToRight End With End Sub Sub Nach_rechts() With Range(ActiveCell, ActiveCell.Offset(0, 1)) .Cut .Offset(0, 3).Insert Shift:=xlToRight End With End Sub Sub Nach_oben() With Range(ActiveCell, ActiveCell.Offset(-1, 0)) .Cut .Offset(-1, 0).Insert Shift:=xlDown End With End Sub Sub Nach_unten() With Range(ActiveCell, ActiveCell.Offset(1, 0)) .Cut .Offset(3, 0).Insert Shift:=xlDown End With End Sub

Hallo zusammen,
vielen lieben Dank für eure Antworten.
@Uwe, bei deiner Lösung verschieben sich nicht alle zellen um eins nach rechts, sondern zum Verständnis: Angenommen A1 ist die aktive Zelle dann springt diese in C1 und Inhalt aus C1 springt in A1.
@Rudi, bei deiner Lösung verschiebt sich leider alles, was aber vielleicht daran lag es doch mein versehen ist.
Ich hätte noch zwei weitere Ideen die es vermutlich bringen könnten:
Wenn in Zelle A1 ein Wert X steht (1-7) dann sollen Sich die Zelleninhalte in D1 und F1 um eine Zelle nach rechts verschieben (NUR DIE ZELLENINHALTE), sprich nach E1 und G1.
Oder man nimmt die aller erste Idee und rückt alles via Button weiter und überschreibt dann regelrecht die nächste Zelle, sodass Formatierung und Wert in der neuen Zelle ihren Platz findet.
Ich hoffe ihr könnt mir folgen und vielen Dank.

Hallo nochmal
so?
- Rechtsclick auf den Tabellenblattreiter
- Code anzeigen
- Diesen Code dort reinkopieren


Private Sub CommandButton1_Click() 'rechts
Dim Z&, C%, LC%
Z = ActiveCell.Row
C = ActiveCell.Column
LC = Cells(Z, Columns.Count).End(xlToLeft).Column
With Range(Cells(Z, C), Cells(Z, LC))
.Cut .Offset(0, 1)
End With
Cells(1, C).Copy
Cells(Z, C).PasteSpecial Paste:=xlPasteFormats
Application.CutCopyMode = False
Cells(Z, C + 1).Select
End Sub
Sub CommandButton2_Click() 'links()
Dim Z&, C%, LC%
Z = ActiveCell.Row
C = ActiveCell.Column
If C = 1 Then
MsgBox "Ist schon vorne"
Exit Sub
End If
LC = Cells(Z, Columns.Count).End(xlToLeft).Column
With Range(Cells(Z, C), Cells(Z, LC))
.Cut .Offset(0, -1)
End With
Cells(1, LC).Copy
Cells(Z, LC).PasteSpecial Paste:=xlPasteFormats
Application.CutCopyMode = False
Cells(Z, C - 1).Select
End Sub

Gruß UweD
Über Rückmeldungen würde ich mich freuen

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Verschieben von aktiver Zelle

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread