Verschieben von aktiver Zelle

aktiver · 2016-04-07T11:41:20+00:00

Guten Tag, habe ein Anliegen, was bisher nicht gelöst ist. Ganze Zeilen kann ich nach oben und nach unten verschieben. Allerdings möchte ich noch die Möglichkeit haben aktive Zellen nach Rechts oder nach links zu verschieben. ( Aktive Zelle beinhaltet Wert, Formatierung und Bedingte Formatierungen) Bsp: Via Button ( Rechts ) und ( Links) möchte ich das sich die AKTIVE Zelle wenn sie ausgewählt wurde demensprechend nach links oder rechts verschieben lässt. Die danebenliegende Zellen soll nicht überschrieben werden sondern ebenfalls nach rechts mitlaufen, samt Formatierungen, bedingte Formatierungen etc... Hoffe Ihr habt einen Lösungsvorschlag. Beste Grüße und vielen Dank.

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

Forumthread: Verschieben von aktiver Zelle

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Aktive Zellen in Excel verschieben: Eine praktische Anleitung

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)