Hallo

Ich hoffe, jemand kann mir bei einem Excel-Problem helfen:

Ich als habe eine lange Liste (nur Text) mit verschiedenen Spalten. In der ersten Spalte taucht ein Oberbegriff mehrmals hintereinander auf.

Ist es möglich, dass Excel automatisch doppelte Inhalte löscht und den Begriff nur in der ersten Zelle stehen lässt?

Ich hoffe, ich habe das Problem anschaulich genug geschildert. Und noch mehr hoffe ich, dass es eine Lösung gibt. Bis jetzt musste ich die doppelten Einträge immer von Hand löschen und das waren hunderte...

jp

Hallo jpr,

würde Dir vorerst ein Kompromiss helfen?
mit der bedingten Formatierung den Zellwert mit der darüberliegenden Zelle vergleichen und bei Übereinstimmung mit weiß (oder Hintergrundfarbe) einfärben.

Ist zwar nicht gelöscht, aber zumindest gut kaschiert.




viele Grüße
pixxxelschubser

---

Was wir wissen, ist ein Tropfen; was wir nicht wissen, ein Ozean.
Isaac Newton

---

Nachfolgend noch eine mögliche Variante zum Löschen der Wiederholungen. Das Ganze sollte nicht länger als 1 bis 2 Minuten dauern.

im Beispiel wird vorausgesetzt: der erste Oberbegriff steht in Zelle A1 (ansonsten Schritt 2 variieren, siehe Erklärung in Schritt 2)
und es gibt max. 30 untereinanderstehende gleiche Begriffe (eine ODER-Funktion erlaubt "nur" bis zu 30 Bedingungen, allerdings könnte man diese bei Erfordernis auch verschachteln)


1. Überprüfe, die maximale Anzahl von Wiederholungen in deinem Dokument (z.B.: es stehen höchstens 5 gleiche Oberbegriffe untereinander)

2. füge über Zeile 1 neue Zeilen ein (Anzahl = max. Anzahl der Wiederholungen-1), sonst müßte die nachfolgende Formel in den ersten (4) Zellen entprechend angepasst werden, und genau das sparen wir uns
aus A1 wird jetzt z.B. A5

3. füge eine neue Spalte nach Spalte A ein

4. übernimm die Formel aus der angehängten Grafik (das Beispiel wurde auf 5 Wiederholungen ausgelegt, das erfordert hier 5-1=4 ODER-Bedingungen) in Spalte B (im Beispiel ab Zelle B5)

5. bei mehr als 5 Wiederholungen müssen die ODER-Bedingungen jetzt entsprechend angepasst werden und auf die "darunterliegenden" Zellen übertragen werden.

6. [Kopieren] der gesamten Spalte B und [Inhalte Einfügen] --> [nur Werte] in Spalte B

7. jetzt können die Spalte A1 und ebenso die vorher eingefügten Leerzeilen gelöscht werden


viele Grüße
pixxxelschubser

---

Was wir wissen, ist ein Tropfen; was wir nicht wissen, ein Ozean.
Isaac Newton

---

Hallo,

und was ist, wenn ich ca. 1000 Einträge untereinander habe? Ich habe keine Ahnung, ob da doppelte vorhanden sind und würde das gerne checken lassen. Aber mit dem bisherigen Ansatz komme ich da nicht weit. Gibt es keine bessere Lösung?

Gruß

Hallo rohrfrei,

das ist doch auch eine ganz andere Aufgabenstellung!

Und wenns nur ums checken geht, dann nimm die erste Variante (bedingte Formatierung) und lass Dir Deine Dupletten schön fett rot markieren.

Ansonsten frag die Leute, die sich mit Excel auskennen. Ich kann nur damit arbeiten.




viele Grüße
pixxxelschubser

---

Was wir wissen, ist ein Tropfen; was wir nicht wissen, ein Ozean.
Isaac Newton

---

Hi, mittels "Zählen" (=ZÄHLENWENN(A:A;A1), ob der Eintrag bereits einmal vorhanden ist können Mehrfachnennungen gefunden werden.

So gehts: Neue Spalte einrichten / o.g. Syntax verwenden (wenn die gesuchten Werte in Spalte A sind) / In der neuen Spalte steht dann in der jeweiligen Zelle, wie oft der Eintrag vorhanden ist.

Nun können die Mehrfachnennungen zB mittels Sortieren rausgepickt werden; ...oder eine neue Spalte, in die aufgrund des Zählergebnisses jeweils nur ein Eintrag hineinkommt (Funktion Vergleich, zuvor die Ergebnisse _ohne_ Funktion in das Tabellenblatt hineinkopieren).

vielleicht hilft es ja
Thomas

Antwort auf [ jpr ]

Ich als habe eine lange Liste (nur Text) mit verschiedenen Spalten. In der ersten Spalte taucht ein Oberbegriff mehrmals hintereinander auf.

Ist es möglich, dass Excel automatisch doppelte Inhalte löscht und den Begriff nur in der ersten Zelle stehen lässt?

Das sollte dieses Makro erledigen:

Code

Sub doppelte_Zelleinträge_löschen() 
 num_rows = Worksheets(1).UsedRange.Rows.Count 
 c = 1 
 text = "" 
 For r = 1 To num_rows 
    If Worksheets(1).Cells(r, c).Value = text Then 
       Worksheets(1).Cells(r, c).ClearContents 
    Else 
       text = Worksheets(1).Cells(r, c).Value 
    End If 
 Next r 
End Sub 

Gruß, Henry

Ciao Henry

DAS IST GENIAL! Hat auf Anhieb geklappt, vielen, vielen Dank!

Denn ich habe wirklich tausende von Einträge, da funktionieren die weiter oben genannten Vorschläge leider nicht. Und ich muss sie wirklich gelöscht haben, nicht nur weiss eingefärbt, weil ich die Liste für die Weiterverabeitung im Layoutprogramm brauche.

Was für ein Glück, gibt es dieses Forum!

jp

Dieses Makro wuerde auch mir super helfen. Leider passiert bei mir noch nichts, wenn ich das Makro ausfuehre.

Mein Dokument ist offen, ich habe alle festgesetzten Zeilen sowie Filter entfernt. Auch die Kopfzeile ist weg.
Ausgangssituation ist die reine Liste in Excel (Mac). Doch wenn ich das Makro ausfuehre sehe ich keinerlei Veraenderung. Nicht einmal dass irgendwas passiert ist.

An was koennte das liegen?

---------------------
PowerBook 15'', 1,25 GHz, MacOS 10.4.10
MacPro 2x2.66 GHz Dual-Core, MacOS 10.6.4, Adobe CS5 Design

Keine Ahnung, bei mir hat es sofort geklappt.

Da müsste der Spezialist ran...

jp

Hast du irgendwas ausgewaehlt bevor du das Makro ausgefuert hast?
Zum Beispiel Spalte oder alles auswaehlen?

---------------------
PowerBook 15'', 1,25 GHz, MacOS 10.4.10
MacPro 2x2.66 GHz Dual-Core, MacOS 10.6.4, Adobe CS5 Design

Nein. Ich habe ein neues Makro erstellt, das Skript reinkopiert und dann gestartet. (Auch ich Mac.)

Geändert hat es mir alles in der ersten Spalte. Wenn Du im Skript die Ziffer "1" gegen "2" auswechselst, dann kommt die zweite Spalte dran usw.

Vielleicht liegt es daran?

jp

Okay, nun habe ich es zumindest schon einmal mit einer Testdatei zum Laufen gebracht.
Funktioniert also generell bei mir auch. Jetzt knuepfe ich mir noch die eigentliche Datei vor.

---------------------
PowerBook 15'', 1,25 GHz, MacOS 10.4.10
MacPro 2x2.66 GHz Dual-Core, MacOS 10.6.4, Adobe CS5 Design

Ciao Henry

Gibt es eine Möglichkeit, Dich mailmässig zu erreichen? Habe vielleicht einen Auftrag...

jp

Hallo an alle

Wie schon oben gesagt, funktioniert das Makro von Henry bestens. Allerdings gibt es ein kleines Problem. Zu erklären ist es schwierig, aber einen Lösungsansatz wüsste ich. Bloss weiss ich nicht, ob das mit einem Makro zu machen ist.

Konkrete Frage: Kann man ein Makro schreiben, das den Inhalt einer Zelle in einer Spalte überprüft und wenn diese Zelle leer ist, auch die Zeile daneben löscht?

Ich biete eine Kiste besten italienischen Wein für die Lösung an!

Aber nur, wenn ich die Lösung bis heute habe, denn ich brauche sie dringend...

jp