Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 13:18:36
Übersicht von Excel Konstanten
16.10.2025 11:48:44
Makro von Excel in Word aufrufen
16.10.2025 11:16:26
SUMMEWENN erweitern
16.10.2025 09:40:53
Mehrere Konferenzen ohne Personenüberschneidung terminieren
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1844to1848
1844to1848
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

doppelte Werte löschen

Forumthread: doppelte Werte löschen

doppelte Werte löschen
27.08.2021 14:12:32
Fred
Hallo zusammen,
ich brauch Hilfe bei einer VBA-Funktion, die mir alle doppelten Werte entfernt.
Aus dieser Zahlenfolge:
000000011000000000110
Soll diese werden:
01010
Ich habe es leider bisher nicht hinbekommen, dies mit anderen Lösungswegen umzusetzen.
Dabei war mein Ziel eine vergleichbare Funktion wie diese zu haben: =doppelteLöschen(A1)
Ich hoffe, dass ihr mir weiter helfen könnt. Vielen Dank schonmal.
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: doppelte Werte löschen
27.08.2021 14:34:56
Daniel
Hi
Ungetestet:

Function DoppelteLöschen(txt as String) as String
Dim i as long, T as String
Erg = left(txt, 1)
For i = 2 to len(txt)
T =  mid(txt, i, 1)
If T  right(Erg, 1) then Erg = Erg & T
Next
DoppelteLöschen = Erg
End Funktion
Gruß Daniel
Next
Anzeige
AW: doppelte Werte löschen
27.08.2021 14:36:00
UweD
Hallo
so?

Function doppelteLöschen(TText)
Dim TMP, i As Integer, Anz As Integer
For i = 1 To Len(TText)
TMP = Mid(TText, i, 1)
If TMP = "" Then GoTo fertig
Do
Anz = (Len(TText) - Len(Replace(TText, TMP & TMP, ""))) / 2
TText = Replace(TText, TMP & TMP, TMP)
Loop Until Anz = 0
Next
fertig:
doppelteLöschen = TText
End Function
LG UweD
Anzeige
AW: doppelte Werte löschen
27.08.2021 14:39:49
Fred
Vielen vielen Dank, für die schnellen Antworten. Hat funktioniert und mein Problem gelöst.
Hab wiedermal nicht aktualisiert, aber dennoch...
27.08.2021 14:57:25
migre
Hi,
...hier meine Variante, auch wenn nicht mehr benötigt:

Function RemoveRepeatChar(tCell As Range) As String
Dim i&, s$, c$, d$
c = "": d = ""
For i = 1 To Len(tCell.Text)
With tCell
c = Mid(.Text, i, 1)
Select Case True
Case d = ""
d = c: s = s & c
Case d  ""
Select Case True
Case c = d
s = s
Case c  d
d = c: s = s & c
End Select
End Select
End With
Next i
RemoveRepeatChar = s
End Function
LG Michael
Anzeige
;

Forumthreads zu verwandten 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
Formel für doppelte Werte in einer Liste...
Jessi

Hallo zusammen,
habe ein Problem, aber sicherlich ein nicht unzulösendes für Euch:
Ich habe eine Liste mit mehren Einträgen in einer Spalte z.B.
A
B
C
A
A
B
D
Z
Ich möchte nun die Spalte durchsuchen nach allen vorhanden UNTERSCHIEDLICHEN Einträgen, so...
17.06.2009 17:28:50
Thread-ID: 1082326
2 Beiträge
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
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
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
Doppelte EInträge in Zeilen anzeigen
Gerold

Hallo zusammen!
folgende Aufgabenstellung in Excel 2010. Meine Grundtabelle sieht etwa so aus:
A 2
A 5
A 3
B 3
B 5
C 4
aufgeteilt in 2 Spalten. Ich möchte nun die Spalte nach event. doppelten EInträgen durchsuchen lassen und folgendes Erge...
01.06.2011 09:41:38
Thread-ID: 1216967
3 Beiträge
Verknüpfte Auswahllisten ohne doppelte Einträge
kohlkopf

Hallo zusammen,
ich möchte möglichst bedienerfreundlich einen Preis aus einer Tabelle mit verschiedenen Materialien, Materialstärken und Materialfarben ermitteln.
Hierzu soll erst das Material, dann die Stärke und die Farbe über Auswahllisten gewählt werden können. Nach der Auswahl soll...
13.12.2011 00:17:23
Thread-ID: 1241721
6 Beiträge
doppelte Datensätze anzeigen
Thomas

Liebe Excelianer
Ich habe ziemlich umfangreiches Exceltool, mit welchem ich Dateien aus Ordnern einlesen und auf verschiedene Weise bearbeiten (suchen, öffnen, prüfen oder löschen) kann.
Da ich das Tool unter anderem zum Aufräumen benutze, benötige ich eine neue Funktion.
Folgendes...
19.12.2011 14:13:24
Thread-ID: 1242827
14 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige