Microsoft Excel

Herbers Excel/VBA-Archiv

Zelleninhalt löschen und Leere Zellen auffüllen

Betrifft: Zelleninhalt löschen und Leere Zellen auffüllen von: Trapper
Geschrieben am: 26.01.2020 13:42:12

Hallo Gemeinde


Ich habe eine Liste (ToDo-Liste) erstellt.

Von Zeile E5 bis E9 sind meine Todo´s (Priorität A) eingetragen. In den Zellen E10 - E18 ToDo´s der Priorität B

In der Spalte F trage ich ein "X" ein wenn ich mein Todo erledigt habe.

Nun zu meiner Herausforderung


Ich möchte, dass ich wenn ich ein "X" in der Prio A eingetrage, (egal welche Zeile) Der Inhalt (also mein ToDo) sowie das "X" aus der jeweiligen Zeile gelöscht wird und die ToDo´s nach oben aufgefüllt werden

Das gleich in der Prio B.

Was nicht passieren soll ist, dass Zellen aus der Prio B nach Prio A verschoben werden sowie die Anzahl meiner Zeilen durch das Löschen der Zeilen verringert werden.

Dank an euch im Voraus

Betrifft: AW: Zelleninhalt löschen und Leere Zellen auffüllen
von: Regina Resch-Jansen
Geschrieben am: 26.01.2020 15:18:02

Hi,
probier mal, ob das so passt (Code in das Modul des entsprechenden Tabellenblattes kopieren):
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 6 Then Exit Sub
If Target.Value <> "X" Then Exit Sub

If Target.Row >= 5 And Target.Row <= 9 Then
    ' Prio A
    Target.Value = ""
    Cells(Target.Row, 5) = ""
    Range(Cells(Target.Row + 1, 5), Cells(9, 6)).Cut Cells(Target.Row, 5)
ElseIf Target.Row >= 10 And Target.Row <= 18 Then
    ' Prio B
    Target.Value = ""
    Cells(Target.Row, 5) = ""
    Range(Cells(Target.Row + 1, 5), Cells(18, 6)).Cut Cells(Target.Row, 5)
End If

End Sub
Gruß
Regina

Betrifft: AW: Zelleninhalt löschen und Leere Zellen auffüllen
von: Trapper
Geschrieben am: 27.01.2020 08:28:25

Hallo Regina

herzlichen Dank für deine Hilfe
Eine kleine Herausforderung besteht noch.
Die Formatierung - Rahmen und DropDown für das "X" - werden ebenfalls gelöscht.

Besteht eine Möglichkeit diese beizubehalten?

Betrifft: AW: Zelleninhalt löschen und Leere Zellen auffüllen
von: Regina Resch-Jansen
Geschrieben am: 27.01.2020 15:16:59

Hi,
kommt jetzt ein wenig drauf an, welche Rahmen gesetzt sind. Teste mal so:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 6 Then Exit Sub
If Target.Value <> "X" Then Exit Sub

If Target.Row >= 5 And Target.Row <= 9 Then
    ' Prio A
    Target.Value = ""
    Cells(Target.Row, 5) = ""
    Range(Cells(Target.Row + 1, 5), Cells(9, 6)).Cut Cells(Target.Row, 5)
    Range("E8:F8").Copy
    Range("E9").PasteSpecial xlPasteFormats
    Range("E9").PasteSpecial xlPasteValidation
    Application.CutCopyMode = xlCopy
ElseIf Target.Row >= 10 And Target.Row <= 18 Then
    ' Prio B
    Target.Value = ""
    Cells(Target.Row, 5) = ""
    Range(Cells(Target.Row + 1, 5), Cells(18, 6)).Cut Cells(Target.Row, 5)
    Range("E17:F17").Copy
    Range("E18").PasteSpecial xlPasteFormats
    Range("E18").PasteSpecial xlPasteValidation
    Application.CutCopyMode = xlCopy
End If
Ansonsten lade bitte mal eine Beispieldatei hoch.


Gruß
Regina

Betrifft: AW: Zelleninhalt löschen und Leere Zellen auffüllen
von: Trapper
Geschrieben am: 27.01.2020 16:24:46

Hi Regina

funktioniert leider nicht wie gewollt.
Beim löschen füllt er die ToDos nicht auf sondern zieht nur die untere nach oben. Die anderen bleiben. So entsteht eine Lücke.
Er zieht auch ToDos aus der Prio B in prio A was nict geschehen soll.

https://www.herber.de/bbs/user/134760.xlsm

Betrifft: AW: Zelleninhalt löschen und Leere Zellen auffüllen
von: Regina Resch-Jansen
Geschrieben am: 27.01.2020 16:37:48

Hmm, bei mir passt das (siehe Anhnag)

https://www.herber.de/bbs/user/134761.xlsm

Gruß
Regina

Betrifft: AW: Zelleninhalt löschen und Leere Zellen auffüllen
von: Regina Resch-Jansen
Geschrieben am: 27.01.2020 17:31:09

Lese gerade nochmal: Was verstehst Du unter "auffüllen"? Mach mal bitte eine Beispieldatei fertig, wo Du zeigst, was Du erreichen willst.

Gruß
Regina

Beiträge aus dem Excel-Forum zum Thema "Zelleninhalt löschen und Leere Zellen auffüllen"