HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Nächster Thread

Vorwärts blättern

Inhaltsverzeichnis

Doppelte Zellen loeschen komplizierter!

Forumthread: Doppelte Zellen loeschen komplizierter!
9 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Doppelte Zellen loeschen komplizierter!

30.03.2026 17:35:43

Chris

Hallo ich moechte Duplikate loeschen. Aber etwas komplizierter.

In Zelle A1 steht beispielsweise 123456/789123
In Zelle A2 steht nur 789123

Es soll in beiden Zellen hier 789123 erkannt werden und beide Zellen geloescht werden.

Gibt es hierzu eine Formelloesung?

Vielen Dank!

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Doppelte Zellen loeschen komplizierter!

30.03.2026 18:24:35

RPP63
AW: Doppelte Zellen loeschen komplizierter!

30.03.2026 22:42:33

Piet
AW: Doppelte Zellen loeschen komplizierter!

31.03.2026 11:30:27

Chris
AW: Doppelte Zellen loeschen komplizierter!

31.03.2026 11:33:44

Onur
Im Anhang ist...

05.04.2026 11:39:26

Case
AW: "Doppelte" Zellen loeschen !

31.03.2026 10:22:02

GerdL
AW: "Doppelte" Zellen "loeschen" !

31.03.2026 11:44:15

GerdL
AW: Doppelte Zellen loeschen komplizierter!

31.03.2026 13:09:57

Daniel
AW: Doppelte Zellen loeschen komplizierter!

30.03.2026 18:45:01

Onur

AW: Doppelte Zellen loeschen komplizierter!

30.03.2026 18:24:35

RPP63

Moin!
Formellösung? Nö!
Da Du ja ein einziges Beispiel genannt hast (und es wahrscheinlich sehr viel umfangreicher ist):
Strg+h ist Dein Freund.
Nicht das, was Du brauchst?
Dann solltest Du etwas mehr Mühe in die Anfrage investieren.

Gruß Ralf

AW: Doppelte Zellen loeschen komplizierter!

30.03.2026 22:42:33

Piet

Hallo

Mit einem Makro sollte es problemlos gehen. Teste es bitte mal in einem Modul.
Den unteren Code einfach in ein Modul kopieren und starten.

mfg Piet

Sub Zellen_löschen()

Dim j As Long, lz As Long

lz = Cells(Rows.Count, 1).End(xlUp).Row

Application.ScreenUpdating = False

For j = lz To 2 Step -1

    If InStr(Cells(j, 1), Cells(j - 1, 1)) Or _

       InStr(Cells(j - 1, 1), Cells(j, 1)) Then

       Rows(j - 1).Delete shift:=xlUp

       Rows(j - 1).Delete shift:=xlUp

    End If

Next j

End Sub

AW: Doppelte Zellen loeschen komplizierter!

31.03.2026 11:30:27

Chris

Hallo zusammen,

vielen Dank fuer eure Bemuehungen.

Leider bislang ohne Erfolg.

TEST
in Zelle B2 333444/555666
in Zelle B3 555666
in Zelle B4 678333
in Zelle B5 555555/678333
in Zelle B6 999999

555666 ist ein Duplikat gesamter Inhalt B2 und B3 sollen geloescht werden.
678333 ist ein Duplikat gesamter Inhalt B4 und B5 sollen geloescht werden.

AW: Doppelte Zellen loeschen komplizierter!

31.03.2026 11:33:44

Onur

Du widersprichst dir selbst:
"und beide Zellen geloescht werden" ist NICHT das Selbe wie "gesamter Inhalt B2 und B3 sollen geloescht werden" !
Wenn du Hilfe willst - drücke dich GENAU aus und poste endlich eine Beispielsdatei.

Im Anhang ist...

05.04.2026 11:39:26

Case

Moin Chris, :-)

... eine mögliche Lösung mit Power Query: ;-)
https://www.herber.de/bbs/user/180494.xlsx

Informationen zu Power Query: ;-)
https://excelhero.de/power-query/power-query-ganz-einfach-erklaert/

Servus
Case

AW: "Doppelte" Zellen loeschen !

31.03.2026 10:22:02

GerdL

Moin,

noch ein Vers.

Sub Unit()



    Dim j As Long, lz As Long

    

    lz = Cells(Rows.Count, 1).End(xlUp).Row - 1

    Application.ScreenUpdating = False

    For j = lz To 2 Step -1

        If InStr(Cells(j, 1), Cells(j + 1, 1)) Or _

           InStr(Cells(j + 1, 1), Cells(j, 1)) Then

           If Not Isempy(Cells(j, 1)) And Not IsEmpty(Cells(j + 1, 1)) Then

                Rows(j).Resize(2).Delete shift:=xlUp

           End If

        End If

    Next j



End Sub

Gruß Gerd

AW: "Doppelte" Zellen "loeschen" !

31.03.2026 11:44:15

GerdL

Nummer nächste.

Sub Unit2B()



    Dim j As Long, lz As Long

    

    lz = Cells(Rows.Count, "B").End(xlUp).Row - 1

    Application.ScreenUpdating = False

    For j = lz To 2 Step -1

        If InStr(Cells(j, "B"), Cells(j + 1, "B")) Or _

           InStr(Cells(j + 1, "B"), Cells(j, "B")) Then

           If Not Isempy(Cells(j, "B")) And Not IsEmpty(Cells(j + 1, "B")) Then

                Cells(j, "B").Resize(2).ClearContents

           End If

        End If

    Next j



End Sub

Gruß Gerd

AW: Doppelte Zellen loeschen komplizierter!

31.03.2026 13:09:57

Daniel

Hallo

wird ein bisschen aufwendiger.

könntest für jeden Wert mit dieser Formel in einer weiteren Spalte ermitteln, in welchen Zeilen sich Duplikate befinden:

=Let(x;A.:.A;b;Zeile(x);c;Zuzeile(Filter(b;istzahl(finden(A1;x))));Wenn(Anzahl(c)=1;"x";c))

diese Formel musst du mit etwas Spaltenabstand parallel zur Spalte A eintragen.
dann kannst du mit dieser Formel ermitteln, ob die Zeile ein Duplikat ist und gelöscht werden muss.

dh mit dieser Formel in einer weiteren Spalte (Annahme, die Ergebnisse der ersten Formel stehen in Spalte D:G) kannst du dann ermitteln, welche Zeilen gelöscht werden sollen und diese dann über den Autofilter selektieren und löschen.

=Wenn(ZählenWenns(D:G;Zeile());"Duplikat-Löschen";"Einzelwert")

Gruß Daniel

AW: Doppelte Zellen loeschen komplizierter!

30.03.2026 18:45:01

Onur

Eine Formel kann nix löschen - nur Ergebnisse liefern....

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!