Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1288to1292
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1288to1292
1288to1292
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Doppelte Einträge löschen

Doppelte Einträge löschen
09.12.2012 16:35:28
Rosi
Hallo Forum,
ich habe ein Problem mit dem Löschen (vorher summieren) von doppelten Einträgen.
Habe da etwas in der Recherche gefunden von dem ich denke dass man es anpassen kann?
Zur Verdeutlichung in der Anlage:
https://www.herber.de/bbs/user/82944.xls
kriegs irgendwie nicht hin....
Grüße Rosi

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

Betreff
Datum
Anwender
Anzeige
AW: Doppelte Einträge löschen
09.12.2012 17:06:40
Daniel
Hi
gefundenen Code zu adaptieren ist immer so ne Sache.
ich würde in deinem Fall erstmal in einer 2. Tabelle eine Liste der Namen ohne Doppelte anlegen (geht über den Spezialfilter) und dann mit SummeWenn aus der alten Tabelle die Summen bilden.
wenn du dann noch die Formeln durch ihren Wert ersetzt, kannst du die alte Tabelle ersetzen.
hier mal der passende Code dazu, erstellt und geprüft mit deiner Beispieldatei:
Sub Zusammenfassen()
Dim sp As Long
Dim sh1 As Worksheet
Dim sh2 As Worksheet
Dim rng1 As Range
Dim rng2 As Range
Set sh1 = Sheets("Tabelle1")
Set sh2 = Sheets("Tabelle2")
sh1.Range("1:2").Copy sh2.Cells(1, 1)
For sp = 1 To sh1.Cells(1, 1).CurrentRegion.Columns.Count Step 2
Set rng1 = Range(sh1.Cells(2, sp), sh1.Cells(2, sp).End(xlDown))
rng1.AdvancedFilter Action:=xlFilterCopy, copytorange:=sh2.Cells(2, sp), unique:=True
Set rng2 = Range(sh2.Cells(3, sp), sh2.Cells(2, sp).End(xlDown)).Offset(0, 1)
rng2.FormulaR1C1 = "=sumIf('" & sh1.Name & "'!" & rng1.Address(1, 1, xlR1C1) & ",RC[-1],'" & _
sh1.Name & "'!" & rng1.Offset(0, 1).Address(1, 1, xlR1C1) & ")"
rng2.Formula = rng2.Value
Next
End Sub
Gruß Daniel

Anzeige
AW: Doppelte Einträge löschen
09.12.2012 18:55:25
Rosi
Hallo Daniel,
ist ok so,mußte noch etwas "feilen",ist aber nun so wie ich es brauche.
Danke.
Gruß Rosi

307 Forumthreads zu ähnlichen Themen

Doppelte Zahlwerte löschen
Gregor

Hallo zusammen
In Spalte E habe ich folgende möglichze Zahlen:
1114539.4
1114539
1114539.4-2
1114539.1
1114539.3
1114539.3-1
Nun möchte ich die Zeile mit der Zahl 1114539 löschen. Das heisst, bei mehrfach gleichen Zahlen vor dem Punkt soll immer die Zahl ohne Pun...
17.06.2009 10:22:49
Thread-ID: 1082148
3 Beiträge
Anzeige
Doppelte Zelleneinträge dann ZEILE löschen
Wolle

Hallo alle zusammen,
habe noch ein Problem:
Wenn Zelleneinträge doppelt vorhanden sind, soll der doppelte eintrag gelöscht werden, wenn diese direkt untereinander stehen.
Bereich: B:B
Beispiel:
B1 = 100
B2 = 500 ..... bleibt stehen
B3 = 500 ..... ZEILE löschen
08.07.2009 12:32:46
Thread-ID: 1087167
5 Beiträge
Doppelte Einträge filtern
Rüdiger

Hallo zusammen!
Ich habe einen Datenbereich
Hier ein verkürztes Beispiel (A1-D100): Aufgebaut mit A1=Name, B1= Vorname, C1 = Straße, D1 = Wohnort)
Nun gibt es doppelte Datensätze. Ich möchte nun, dass ein neues Registerblatt erstellt wird in der Arbeitsmappe und dort die „gefiltert...
12.11.2009 13:12:54
Thread-ID: 1116509
5 Beiträge
Anzeige
VBA Schleife - elimieren von doppelten Werten
doppelten

Hallo Forum,
ich möchte doppelte Werte (siehe Anhang) aus Spalte A inhaltlich löschen (sind vorher sortiert).
Leider funktioniert meine Schleife nicht.
Kann mir jemand helfen?
Vielen Dank im voraus.
https://www.herber.de/bbs/user/68477.xls
Grüße
Karen
09.03.2010 11:06:49
Thread-ID: 1144532
9 Beiträge
Doppelte Einträge summieren + löschen
ben

Hallo zusammen,
ich habe eine Excel Liste mit versch. Einträgen, bei denen in der Spalte C (ID Nummer) einige Einträge doppelt sind. Diese doppelten Einträge werden per VBA Code gelöscht.
Jetzt sollen aber die Mengen in Spalte E der gelöschten Einträge aufsummiert werden.
Bsp.: alle...
12.04.2010 21:02:46
Thread-ID: 1151310
14 Beiträge
Doppelte Zellen löschen
Claudia

Hallo zusammen,
ich habe ein großes Problem. Genauer gesagt habe ich eine Tabelle, in der sich die Überschriften in Zeile 1 befinden. In Spalte A befinden sich ab Zeile 2 die Kundennummern.
Ab Spalte B bis AZ befinden sich Artikel - darunter auch viele, die mehrfach vorkommen. Diese dop...
15.06.2010 19:20:30
Thread-ID: 1162030
10 Beiträge
Makro um doppelte Einträge zu suchen und zu filtern
Excelneuling2

Hallo Zusammen,
ich bin ein Excelneuling und habe dementsprechend noch nie ein Makro programmiert und hoffe auf Hilfe.
Mein Problem:
Ich habe eine Datenbank (siehe Beispieltabelle) in der x Zeilen und y Spalten vorhanden sind. Ich möchte ein Makro schreiben, welches doppelte Zeilen...
31.07.2010 16:44:49
Thread-ID: 1169831
10 Beiträge
Liste von allen doppelten Einträgen befreien
allen

Hallo,
ichh habe hier ein wahrscheinlich sehr simples Problem. Da ich aber leider keine Makros programmieren kann, für mich ein nicht lösbares.
Ich habe hier eine Excel-Liste, die aus zwei Tabellen mit leicht unterschiedlichen Spalten auf je einem eigenen Arbeitsblatt besteht.
Auf d...
28.12.2010 17:07:48
Thread-ID: 1193075
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
1
4
4
3
8
13
9
9
3
12
2
5
13
2
2
2
4
1
7
4
10
4
1
5