Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1296to1300
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
1296to1300
1296to1300
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Doppelte Zellen löschen

Doppelte Zellen löschen
15.02.2013 20:15:51
Tom
Hallo!
Ich habe folgendes Problem: Spalte A und D sowie B und E sollen auf identische Inhalte in Zellen überprüft werden. Werden diese gefunden, sollen diese Zellen gelöscht werden: also nicht nur der "Inhalt", sondern die komplette Zelle soll verschwinden. Wird z.B. zelle A3 gelöscht, rutscht Zelle A4 an die Stelle von A3 hoch.
Das alles soll über ein Makro gelöst werden ...
Kann mir jemand helfen? Ich habe null VBA-Kenntnisse...
Gruß
Tom

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Doppelte Zellen löschen
15.02.2013 21:07:01
Hajo_Zi
Hallo Tom,
benutze Spezialfilter ohne Makro.
Doppelte Löschen
angenommen Deine Daten stehen in A1 bis A?
Bereich markieren = Spalte A anklicken (evtl. eine Leerzeile vorher einfügen)
Daten / Filter / Spezialfilter
keine Duplikate
jetzt kannst du noch einstellen, ob an gleicher Stelle oder woanders placiert; hier also B1 eingeben
Spalte A anschließend löschen
Bei mehreren Spalten, muss die Liste eine Überschrift haben, am besten fett formatiert, dann erkennt sie auch Excel als Überschrift.

Anzeige
AW: Doppelte Zellen löschen
16.02.2013 00:04:58
Tom
Hallo Hajo,
vielen Dank für Deine Antwort! Leider komme ich nicht zurecht mit diesem Spezialfilter ... ich gebe aber noch nicht auf...
Schönen Abend noch :-)
Tom

Doppelte Zellen löschen mit Dictionary
16.02.2013 07:45:49
Erich
Hi Tom,
probier mal 

Option Explicit
Sub start()
Dim ii As Long
For ii = 1 To 5                        ' Spalten 1 bis 5 außer 3 (A,B,D,E)
If ii  3 Then SpalteOhneDups_Dictionary ii
Next ii
End Sub
Sub SpalteOhneDups_Dictionary(lngSp As Long)
Dim objDic As Object, lngAnz As Long, arrW, zz As Long, rngDel As Range
Set objDic = CreateObject("Scripting.Dictionary")
lngAnz = Cells(Rows.Count, lngSp).End(xlUp).Row
arrW = Cells(1, lngSp).Resize(lngAnz).Value     ' Werte der Spalte in Array
If lngAnz > 1 Then
For zz = 1 To lngAnz
If Not IsEmpty(arrW(zz, 1)) Then
If objDic.Exists(arrW(zz, 1)) Then     ' merken, wenn schon da
If rngDel Is Nothing Then
Set rngDel = Cells(zz, lngSp)
Else
Set rngDel = Union(rngDel, Cells(zz, lngSp))
End If
Else
objDic(arrW(zz, 1)) = 0             ' eintragen
End If
End If
Next zz
End If
If Not rngDel Is Nothing Then rngDel.Delete xlShiftUp  ' löschen
End Sub
Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich

Anzeige
AW: Doppelte Zellen löschen
16.02.2013 09:57:21
Tom
Hallo Erich!
Erstmal super lieben Dank für die Mühe, die Du Dir gemacht hast! :-)
Leider funktioniert das Makro bei mir (noch) nicht. Es erscheint bezogen auf die Zeile " lngAnz = Cells(Rows.Count, lngSp).End(xlUp).Row " der Fehlerhinweis: "Fehler beim Kompilieren: Variable nicht definiert“ . Dabei ist „IngSp“ blau markiert worden.
Ich habe übrigens die Bezeichnung des Sub („SpalteOhneDups_Dictionary(lngSp As Long“) in „Makro1“ umbenannt, was (für mich) übersichtlicher ist. Ich hoffe/denke, dass das kein Problem ist (ich bin in vba, wie Du merkst, nicht bewandert…).
Kannst Du mir weiterhelfen?
Viele Grüße
Tom

Anzeige
einfach umbenannt...
16.02.2013 10:43:39
Erich
Hi Tom,
hast du das nicht mal ausprobiert, bevor du die 2. Prozedur umbenannt hast? :-( An der Umbenennung liegt es nämlich!
Je weniger Ahnung du von VBA hast, umso mehr solltest du darauf vertrauen, dass die dir angebotene Lösung sinnvoll ist,
so wie sie ist, nicht anders.
SpalteOhneDups_Dictionary ist eine Prozedur mit einem Parameter (einer Variablen) - der Spaltennumer lngSp.
Mit lngSp sagt man der Prozedur, in welcher Spalte sie arbeiten soll.
Wenn du stattdessen einfach Makro1 schreibst, ist lngSp unbekannt. Daher also der Fehlerhinweis.
Wie kommst du auf den Gedanken, "Makro1" sei übersichtlicher als SpalteOhneDups_Dictionary ?
Du könntest vielleicht etzwas kürzer SpalteOhneDups(lngSp As Long) schreiben.
Makro1 dagegen ist einfach nur nichtssagend.
Welches Makro versuchst du zu starten? Dafür gibt es das Makro "start".
Hast du auch da Makro1 reingeschrieben?
Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich

Anzeige
AW: einfach umbenannt...
16.02.2013 11:32:16
Tom
Hallo Erich,
Deine Kritik ist sicherlich berechtigt ...
Ich habe nun das Makro in "SpalteOhneDups_Dictionary" umbenannt und den Code auf den alten Stand gebracht. Jetzt erscheint der Fehlerhinweis: "Argument ist nicht optional".
Woran könnte das liegen?
(Vielen Dank für Deine Geduld!)
Gruß
Tom

Daran, dass du irgendeine ...
16.02.2013 12:06:31
Luc:-?
…Prozedur (Funktion oder Subroutine) ohne ein/en verlangtes/n Argument/Parameter aufgerufen hast, Tom;
möglicherweise SpalteOhneDups_Dictionary aus Start ohne ii oder direkt ohne Start!
Verstehe nicht, dass sich Leute an VBA rantrauen, die meinen, sich nicht mal mit Syntax und Pgmierregeln befassen zu müssen. Wer sich so ans Steuer eines PKW setzen würde, dürfte sich über einen Unfall nicht wundern!
Gruß Luc :-?

Anzeige
AW: Daran, dass du irgendeine ...
16.02.2013 12:53:51
Tom
Lieber Luc,
das Forum hat mir in der Vergangenheit bereits einige Male sehr gut bei meinen Fragen weitergeholfen. Ich bin froh, dass es euch excel-cracks gibt und ihr sowohl denen helft, die sich sehr gut ins Thema eingearbeitet haben, als auch so einem wie mir, der nur hin und wieder mit makros zu tun har.
In diesem Fall habe ich mich einfach sehr blöd angestellt. Im Nachhinein ist mir dies klar ...
Gruß
Tom

Wozu die Umbenennerei?
16.02.2013 12:13:03
Erich
Hi Tom,
da kann ich dir nur raten, den Code aus meinem Beitrag von 07:45:49 noch einmal zu kopieren und exakt so zu verwenden.
Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich

Anzeige
AW: einfach umbenannt...
16.02.2013 12:40:26
Tom
Hei Erich,
ich habe den Fehler (den ich an dieser Stelle lieber nicht erkläre ... ) gefunden ... Danke für Deine Hilfe! :-)
Gruß
Tom

301 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
2
4
4
1
5