Zellen verschieben wenn "x" gesetzt wird

Forumthread: Zellen verschieben wenn "x" gesetzt wird
2 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Zellen verschieben wenn "x" gesetzt wird

30.05.2025 00:55:35

Lea

Hallo,
ich habe eine Tabelle mit einer Registerkarten. Benötigt werden nur die Spalten A, B und C.
In A stehen zahlen, wenn in B ein "x" gesetzt wird soll sich die Zelle in eine freie Zelle nach C verschieben und aus A löschen und den restlichen Teil aus A hochziehen.
(Damit keine Leerzeilen entstehen)

z.B. wenn in A6 12 steht, ich bei B6 ein "x" eingebe soll sich die nächste freie Zelle von C verschieben. Die Zellen A6/B6 soll gelöscht werden und die darunter stehenden Zellen vonA sollen nach gezogen werden.
Falls dies noch möglich wäre - sobald ich etwas aus C lösche, sollen sich darunter hochziehen.

Vielen Dank.

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zellen verschieben wenn "x" gesetzt wird

30.05.2025 01:12:34

Jowe
AW: Zellen verschieben wenn "x" gesetzt wird

30.05.2025 05:15:25

Piet

AW: Zellen verschieben wenn "x" gesetzt wird

30.05.2025 01:12:34

Jowe

Hallo Lea,
"wenn in A6 12 steht, ich bei B6 ein "x" eingebe soll sich die nächste freie Zelle von C verschieben"
Sorry das verstehe ich nicht. Kannst Du bitte eine Arbeitsmappe hochladen und darin
neben der Start-Situation Deiner Frage auch das gewünschte Ergebnis darstellen?
Gruß
Jochen

AW: Zellen verschieben wenn "x" gesetzt wird

30.05.2025 05:15:25

Piet

Hallo

diesen Code bitte ins richtige Tabellenblatt kopieren. Damit sollte es klappen. Würde mich freuen.

mfg Piet

Private Sub Worksheet_Change(ByVal Target As Range)

If InStr(Target.Address, ":") Then Exit Sub

Application.ScreenUpdating = False



If Target.Column = 2 Then

   If Target.Value = "x" Then

      Target.Cells(1, 2).End(xlDown).Select

neu:  If Selection.Value > "" Then _

         Selection.Cells(2, 1).Select: GoTo neu

      Selection.Value = Target.Cells(1, 0)

      Target.Cells(1, 0).Resize(1, 2).Delete shift:=xlUp

      Selection.Cells(1, 0).Select

   End If

ElseIf Target.Column = 3 Then

   If Target.Value = "" Then _

      Target.Delete shift:=xlUp

End If

End Sub