Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
24.04.2024 17:19:09
Formel mit Index-Funktion
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1148to1152
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
1148to1152
1148to1152
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Doppelte Einträge summieren + löschen

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 doppelten Einträge mit der ID Nummer ...16 werden gelöscht. Die ID Nummer ...16 kommt 3 mal vor, mit den Mengen 1,3 und 3. Am Ende soll also die ID Nummer ...16 nur noch einmal in der Liste vorkommen mit der aufsummierten Menge 7 in Spalte E.
Anbei eine Beispiel Datei mit dem bereits existerien VBA Code für die Löschung doppelter Einträge.
Danke für eure Hilfe!
Gruß Ben

13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Doppelte Einträge summieren + löschen
12.04.2010 21:02:46
ben
Kann die Beispiel Datei leider nicht hochladen. Es kommt eine Fehlermeldung, dass die Datei das falsche Format hätte. Ist aber eine ganz normale Exceldatei!?
AW: Doppelte Einträge summieren + löschen
12.04.2010 21:15:10
Oberschlumpf
Hi Ben
Vielleicht liegt es auch daran, dass die Datei Leerzeichen im Namen hat oder sie sich zu tief in der Verzeichnishierarchie befindet.
Speicher deine Datei doch mal direkt auf C:\ oder D:\ oder oder ...und entferne Leerzeichen aus dem Namen, wenn ich mit Vermutung(en) recht habe.
Ciao
Thorsten
AW: Doppelte Einträge summieren + löschen
12.04.2010 21:21:28
ben
Hab ich versucht. Geht leider trotzdem nicht hochzuladen.
Kann mir jmd. auch ohne Beispiel Datei bei meinem Problem helfen!?!?!?
Danke!
Anzeige
AW: Doppelte Einträge summieren + löschen
12.04.2010 21:24:28
Oberschlumpf
hmm...dann erstell doch ne neue Bsp-Datei und versuch es noch mal...zumindest ich kann mit nur deiner beschreibung nich soo viel anfangen....was natürlich auch an mir liegen kann
nachtrag
12.04.2010 21:25:27
Oberschlumpf
ich hab kein prob mit bsp-datei-upload....kann jede datei hier zeigen...egal ob xls, jpg, zip, usw
AW: nachtrag
12.04.2010 21:32:53
Oberschlumpf
arghh...nein...hilft nich :)
wieso gibst du als excel-version 2003 an und verschickst dann ne datei im excel-2007-format?
wie auch immer...ich hab kein excel 2007
Anzeige
ich bin raus, weil...
12.04.2010 21:40:58
Oberschlumpf
...tja...mein Excel XP kennt die Methode
.RemoveDuplicates
leider noch nicht :)
Sorry, vielleicht kann wer anders mit Excel 2007 helfen.
Ciao
Thorsten
AW: ich bin raus, weil...
12.04.2010 21:57:03
ben
Das ganze soll unter Office 2003 laufen können! Muss die Datei aber leider unter Office 2007 erstellen.
Kann mir trotzdem jmd. helfen!?!?
Zuerst die Mengen der identischen IDs summieren (z.B. ID ...16: 1+2+12 = 15) und dann die Dupklikate löschen! Am Ende sollte die ID ...16 einmal vorkommen mit der Menge 15.
Beispiel Datei:
https://www.herber.de/bbs/user/69034.xls
Danke!!!
Anzeige
AW: ich bin raus, weil...
12.04.2010 22:18:41
Josef

Hallo Ben,
das sollte es tun.

Private Sub CommandButton1_Click()
  Dim rng As Range, lngLast As Long
  
  lngLast = Application.Max(2, Cells(Rows.Count, 3).End(xlUp).Row)
  
  Columns(6).Insert
  
  Range(Cells(2, 6), Cells(lngLast, 6)).Formula = _
    "=IF(COUNTIF($C$2:C2,C2)=1,SUMIF($C$2:$C$" & lngLast & ",C2,$E$2:$E$" & lngLast & "),NA())"
  
  Range(Cells(2, 6), Cells(lngLast, 6)) = Range(Cells(2, 6), Cells(lngLast, 6)).Value
  
  On Error Resume Next
  Set rng = Columns(6).SpecialCells(xlCellTypeConstants, xlErrors)
  On Error GoTo 0
  
  If Not rng Is Nothing Then rng.EntireRow.Delete
  
  Range(Cells(2, 5), Cells(lngLast, 5)) = Range(Cells(2, 6), Cells(lngLast, 6)).Value
  Columns(6).Delete
  
  Set rng = Nothing
End Sub

Gruß Sepp

Anzeige
AW: nachtrag
12.04.2010 22:09:45
Peter
Hallo ben,
so könnte es funktionieren:
Option Explicit
Public Sub Zusammenfassen()
Dim WkSh       As Worksheet ' das zu bearbeitende Tabellenblatt
Dim lLetzte    As Long      ' die letzte belegte Zeile in Spalte C
Dim lZeile     As Long      ' For/Next Schleifen-Index - die Zeile
   Application.ScreenUpdating = False
   Set WkSh = ThisWorkbook.Worksheets("Tabelle1")
   lLetzte = WkSh.Cells(Rows.Count, 3).End(xlUp).Row
   
   With WkSh
' die Daten gemäß der Spalte A aufsteigend sortieren
      WkSh.Range("C2:E" & lLetzte).Sort _
         Key1:=WkSh.Range("C2"), Order1:=xlAscending, _
         Header:=xlGuess, OrderCustom:=1, _
         MatchCase:=False, Orientation:=xlTopToBottom
' doppelte ermitteln und zusammenführen
      lLetzte = WkSh.Cells(Rows.Count, 3).End(xlUp).Row
      For lZeile = lLetzte To 2 Step -1
         If WkSh.Cells(lZeile, 3).Value = WkSh.Cells(lZeile - 1, 3).Value Then
            WkSh.Cells(lZeile - 1, 5).Value = WkSh.Cells(lZeile - 1, 5).Value + _
            WkSh.Cells(lZeile, 5).Value
            WkSh.Rows(lZeile).Delete Shift:=xlUp
         End If
      Next lZeile
   End With
   
   Application.ScreenUpdating = True
End Sub
Gruß Peter
Anzeige
AW: nachtrag
12.04.2010 22:33:29
ben
Klasse!
Danke funktioniert :)

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 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
Doppelte Einträge löschen
Horst

Hallo Excel-Gemeinde,
Ein Tabellenblatt enthält in Spalte "AS" mehrere idente Datumswerte (siehe Bsp.), von denen nur jeweils der letzte Eintrag in der Tabelle stehen bleiben sollte, alle anderen Zeilen des gleichen Datums und der gleichen Uhrzeit sollen gelöscht werden.
Wie könnte ein...
30.05.2011 16:39:40
Thread-ID: 1216696
13 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton

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
9
9
3
12
2
5
13
2
2
2
4
1
7
2
4
10
4
1
5