Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 17:40:39
16.10.2025 17:25:38
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Duplikate löschen in EINER ZELLE

Duplikate löschen in EINER ZELLE
24.03.2015 21:05:23
Thomas
Hallo,
ich suche, leider bisher vergeblich, eine Möglichkeit Doppelte Einträge in einer Zelle zu entfernen.
Es geht um die Optimierung von Fahrzeuglisten von ca 30000 Artikeln (Autoteile) für Einträge in Google Shopping (max.5000 Zeichen). Hier sind viele Doppelte Nennungen wie z. Bsp VW oder Audi oder Diesel ... Diese Begriffe sind in diesen Listen nur 1 x notwendig.
Tabellenformat ist
Artikelnr;Fahrzeugtabelle
11223344;VW Golf 3 Diesel Variant Vw Golf 4 Diesel Variant VW Passat Diesel
11224455;Skoda Octavia 1,9 TDI Skoda Superb 1,9 TDI Seat Alhambra 1,9 TDI
Danke für jeden Tip

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Duplikate löschen in EINER ZELLE
24.03.2015 21:18:36
Daniel
Hi
erstelle folgende benutzerdefinierte Funktion (den Code in ein allgemeines Modul kopieren)
Function TextOhneDuplikate(txt As String, Optional TrZ As String = " ") As String
Dim Teiltexte() As String
Dim TT As String
Dim i As Long
Teiltexte = Split(txt, TrZ)
TextOhneDuplikate = Teiltexte(0)
For i = 1 To UBound(Teiltexte)
TT = Teiltexte(i)
If InStr(TrZ & TextOhneDuplikate & TrZ, TrZ & TT & TrZ) = 0 Then
TextOhneDuplikate = TextOhneDuplikate & TrZ & TT
End If
Next
End Function
dann kannst du in einer Hilfsspalte die Funktion =TextOhneDuplikate(B2) verwenden.
Gruß Daniel

Anzeige
AW: Duplikate löschen in EINER ZELLE
24.03.2015 22:23:25
Thomas
Hallo,
SUUUUPPPEERR !!!
Testzelle hat 10000 zeichen eingespart!
Vielen Dank!!!
Grüße
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Duplikate in einer Zelle effektiv entfernen


Schritt-für-Schritt-Anleitung

Um doppelte Werte in einer Zelle zu löschen, kannst du eine benutzerdefinierte Funktion in Excel verwenden. Hier ist eine einfache Anleitung:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Klicke auf Einfügen > Modul, um ein neues Modul zu erstellen.

  3. Füge den folgenden Code in das Modul ein:

    Function TextOhneDuplikate(txt As String, Optional TrZ As String = " ") As String
        Dim Teiltexte() As String
        Dim TT As String
        Dim i As Long
        Teiltexte = Split(txt, TrZ)
        TextOhneDuplikate = Teiltexte(0)
        For i = 1 To UBound(Teiltexte)
            TT = Teiltexte(i)
            If InStr(TrZ & TextOhneDuplikate & TrZ, TrZ & TT & TrZ) = 0 Then
                TextOhneDuplikate = TextOhneDuplikate & TrZ & TT
            End If
        Next
    End Function
  4. Schließe den VBA-Editor und gehe zurück zu deinem Excel-Dokument.

  5. In einer Hilfsspalte kannst du nun die Funktion verwenden, z.B. =TextOhneDuplikate(B2), um doppelte Werte in der Zelle B2 zu entfernen.


Häufige Fehler und Lösungen

  • Fehler: Funktion wird nicht erkannt

    • Stelle sicher, dass du den VBA-Code korrekt eingefügt hast und dass die Makros in Excel aktiviert sind.
  • Fehler: Ergebnisse sind nicht wie erwartet

    • Überprüfe den Trennzeichenparameter (Standard ist ein Leerzeichen). Wenn deine Werte durch ein anderes Zeichen getrennt sind, passe diesen Parameter entsprechend an.

Alternative Methoden

Wenn du keine VBA-Funktion verwenden möchtest, gibt es auch andere Möglichkeiten, um duplizierte Einträge in Excel zu entfernen:

  • Text in Spalten: Verwende die Funktion „Text in Spalten“, um die Werte auf mehrere Zellen zu verteilen und dann die doppelten Einträge mit der Funktion „Duplikate entfernen“ zu löschen.

  • Formeln: Du kannst auch eine Kombination von Formeln verwenden, um doppelte Werte zu finden und zu entfernen. Eine einfache Formel könnte =WENN(ZÄHLENWENN(A:A;A1)>1;"";A1) sein, um nur einzigartige Werte anzuzeigen.


Praktische Beispiele

Angenommen, du hast die folgende Zelle mit Fahrzeugbezeichnungen:

VW Golf 3 Diesel Variant VW Golf 4 Diesel Variant VW Passat Diesel
  • Mit der benutzerdefinierten Funktion =TextOhneDuplikate(A1) wird das Ergebnis sein:
VW Golf 3 Diesel Variant VW Golf 4 Diesel Variant VW Passat

Das Entfernen von doppelten Wörtern kann dir helfen, die Zeichenanzahl für Google Shopping zu optimieren.


Tipps für Profis

  • Automatisierung: Wenn du regelmäßig doppelte Werte in Zellen entfernen musst, kannst du ein Makro erstellen, das diesen Prozess automatisiert.

  • Datentypen beachten: Achte darauf, dass die Eingabewerte im richtigen Format vorliegen (z.B. als Text), um Probleme mit der Duplikaterkennung zu vermeiden.

  • Regelmäßige Sicherung: Mache regelmäßig Backups deiner Excel-Dateien, besonders wenn du Makros oder VBA-Programmierungen verwendest, um Datenverlust zu vermeiden.


FAQ: Häufige Fragen

1. Wie kann ich doppelte Werte in einer Zelle in Excel löschen?
Du kannst eine benutzerdefinierte VBA-Funktion verwenden, um doppelte Werte in einer Zelle zu entfernen. Der Code dafür findest du oben.

2. Funktioniert das auch in Google Tabellen?
Ja, in Google Tabellen gibt es ähnliche Funktionen, aber die VBA-Methoden sind nicht direkt anwendbar. Du kannst jedoch die Funktion „Duplikate entfernen“ in Google Tabellen nutzen.

3. Gibt es eine Möglichkeit, doppelte Einträge automatisch zu löschen?
Ja, du kannst ein Makro erstellen, das die Funktion TextOhneDuplikate auf alle ausgewählten Zellen anwendet und so doppelte Werte automatisch entfernt.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige