Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Doppelte Einträge in mehreren Spalten löschen
zurück: Mehrfach vorkommende Werte unterschiedlich markieren weiter: Problem beim vergleich zweier werte Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Gast321
Gast


Verfasst am:
01. Aug 2013, 14:15
Rufname:

Doppelte Einträge in mehreren Spalten löschen - Doppelte Einträge in mehreren Spalten löschen

Nach oben
       Version: Office 2007

Hallo Leute,

ja ich weiß, dass der Titel förmlich danach schreit zu sagen "Das wurde hier schon 100 mal beantwortet!!!".
Ich habe wirklich lange in diesem Forum gesucht und bin aber nur auf ähnliche Fälle gestoßen.

Folgendes Problem:

Ich habe in einem Worksheet mehrere Spalten in denen doppelte Werte vorkommen:

Z. Bsp:

Spalte A: Nummer (1,2,3,3.1,3.2,4....)
Spalte B: Überschrift (Informationen, Allgemein, Individuell)
Spalte C: Themenkomplex (Internet, Telefon,..)
Spalte D: Thema (Verkabelung, Anschluss,...)

In jeder dieser Spalten tauchen nun doppelte Werte auf, also in Spalte A zum Bsp. 5 mal die 3.1, in B 3 Mal "Information" und so weiter und so fort.

Ich habe einen Code gefunden, der die doppelten in EINER Spalte löscht, funktioniert auch super!

Jetzt (endlich) zur Frage:
Kann ich in EINEM Code alle betroffenen Spalten durchlaufen und nach doppelten Werten innerhalb der jeweiligen Spalte suchen lassen und die doppelten Löschen?

Ich kopier mal den Code hier rein für eine Spalte:

Sub Doppelte_Werte_löschen_A()

Application.ScreenUpdating = False

ActiveWorkbook.Sheets("PDF Abbild").Select

Dim i As Long
Dim lngLastR As Long

lngLastR = Cells(Rows.Count, "E").End(xlUp).Row + 1

'Zellinhalte in Spalte A durch "" = Leerzelle ersetzen
Do
i = i + 1
Range(Cells(i + 1, "A"), Cells(lngLastR, "A")).Replace _
what:=Cells(i, "A").Value, replacement:="", lookat:=xlWhole

Loop While WorksheetFunction.CountIf(Range(Cells(i + 1, "A"), Cells(lngLastR, "A")), "") < (lngLastR - i)



End Sub


Vielen Dank für eure Hilfe Smile Smile Smile
Phelan XLPH
Fortgeschritten


Verfasst am:
01. Aug 2013, 14:45
Rufname: Phelan

AW: Doppelte Einträge in mehreren Spalten löschen - AW: Doppelte Einträge in mehreren Spalten löschen

Nach oben
       Version: Office 2007

Meinst du so:

Code:
Sub xlph()
   Dim rngCol As Range
   With Tabelle1.Range("A:D")
      For Each rngCol In .Columns
         rngCol.RemoveDuplicates 1, xlYes
      Next
   End With
End Sub

_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
Gast



Verfasst am:
01. Aug 2013, 14:54
Rufname:


AW: Doppelte Einträge in mehreren Spalten löschen - AW: Doppelte Einträge in mehreren Spalten löschen

Nach oben
       Version: Office 2007

Hey,

vielen Dank für die schnelle Antwort! Hatte eben die Idee einfach meinen Code für die vier Spalten zu erstellen und sie gleichzeitig über ein Makro Button zu starten...

Dein Code funktioniert aber auch Smile

Kann man also schließen!
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: S-Verweis, Ausgabewert Summe von mehreren Zeilen 3 Pidri 3448 10. Jan 2005, 10:52
steve1da S-Verweis, Ausgabewert Summe von mehreren Zeilen
Keine neuen Beiträge Excel Formeln: Zeilen mit doppelten Werten löschen 6 Sebowsky 1208 06. Jan 2005, 22:26
Sebowsky Zeilen mit doppelten Werten löschen
Keine neuen Beiträge Excel Formeln: Datum aus mehreren Zellen zusammensetzen. 9 gast2005 5086 25. Dez 2004, 22:33
Kuwe Datum aus mehreren Zellen zusammensetzen.
Keine neuen Beiträge Excel Formeln: Doppelte Einträge aus Excel Tabellen löschen 3 Richkid 2831 09. Dez 2004, 15:45
Reinhard Doppelte Einträge aus Excel Tabellen löschen
Keine neuen Beiträge Excel Formeln: Erster Wert aus mehreren Spalten 4 Gast 1922 03. Dez 2004, 10:52
Arnim Erster Wert aus mehreren Spalten
Keine neuen Beiträge Excel Formeln: Vor- und Nachname in 1 Spalte in 2 Spalten aufteilen 2 Gast 2920 26. Nov 2004, 11:48
Gast Vor- und Nachname in 1 Spalte in 2 Spalten aufteilen
Keine neuen Beiträge Excel Formeln: Zählen von Werten aus untersch. Spalten mit 2 Kriterien 2 Sigi 2526 20. Nov 2004, 03:18
Gast Zählen von Werten aus untersch. Spalten mit 2 Kriterien
Keine neuen Beiträge Excel Formeln: ZÄHLENWENN bei 2 Suchkriterien in wechselnden Spalten 10 Rebecca Nau 1909 12. Nov 2004, 11:26
Arnim ZÄHLENWENN bei 2 Suchkriterien in wechselnden Spalten
Keine neuen Beiträge Excel Formeln: Wenn-Bedingung mit mehreren Spalten und Zeile 6 Lusie 2819 02. Nov 2004, 15:57
Lusie Wenn-Bedingung mit mehreren Spalten und Zeile
Keine neuen Beiträge Excel Formeln: SUMMEWENN mit mehreren Kriterien 6 beat. 1330 29. Okt 2004, 13:04
KrExceln SUMMEWENN mit mehreren Kriterien
Keine neuen Beiträge Excel Formeln: Druckbereich:nur einzelne Spalten als Druckbereich markieren 3 mufty001 1912 21. Okt 2004, 09:24
mufty001 Druckbereich:nur einzelne Spalten als Druckbereich markieren
Keine neuen Beiträge Excel Formeln: gegeben 2 Spalten/ ges. wie oft Wert aus Spalte 1 mit Wert a 4 Stefan B. 1310 21. Okt 2004, 08:06
Stefan B. gegeben 2 Spalten/ ges. wie oft Wert aus Spalte 1 mit Wert a
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft-Excel Diagramme