Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1920to1924
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
1920to1924
1920to1924
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Doppelte Nummern in Zellen entfernen

Doppelte Nummern in Zellen entfernen
10.03.2023 13:35:33
Raphael
Liebe Herber-Community
Ich habe in der Spalte teilweise wiederholte Strassen-Nr. Diese sind jeweils am Ende.
- Poststrasse 15
- Hauptstrasse 12 12
- Webergasse 44 44
- Winkelweg 100
Fragen:
a) Wie könnte ich diese Filtern, sodass ich diese manuell bearbeiten kann?
b) Mit welcher Formel, könnte ich diese Wiederholungen von Zahlen entfernen?

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Doppelte Nummern in Zellen entfernen
10.03.2023 13:52:41
HeritzP
Hallo,
=WENNFEHLER(ERSETZEN(A1;FINDEN("#";WECHSELN(A1;" ";"#";2);1);5;"");A1)

AW: Doppelte Nummern in Zellen entfernen
10.03.2023 14:41:51
Raphael
Herzlichen Dank für den Vorschlag.
Bei "Hauptstrasse 44" - ein Datensatz ohne Fehler - wird jetzt fälschlicherweise die 44 entfernt.
Ich suche noch nach eine optimaleren Lösung.
AW: Doppelte Nummern in Zellen entfernen
10.03.2023 14:54:06
HeritzP
Hallo,
kann ich nicht nachvollziehen.
Gibt es eine Datei, oder ist das Problem schon gelöst, durch die andren Vorschläge?
AW: Doppelte Nummern in Zellen entfernen
10.03.2023 13:58:46
Fennek
Hallo,
wenn die gezeigten Werte in A1:A4 stehen, markiert dieser Code die doppelten Nummern:
Sub F_en()
Dim Ar
For i = 1 To 4
    Ar = Split(Cells(i, 1))
    If Ar(UBound(Ar)) = Ar(UBound(Ar) - 1) Then Cells(i, 1).Interior.Color = vbYellow
Next i
End Sub
mfg
Anzeige
AW: Doppelte Nummern in Zellen entfernen
10.03.2023 14:05:23
Yal
Hallo fennek,
schon die Zelle markieren, aber wenn schon gefunden, warum nicht gleich korrigieren?
(Farbmarkierung könnte noch zusätzlich als "da ist was passiert" gesetzt werden.
Sub F_en()
'Auf Basis von einem Code von Fennek
Dim Arr
Dim i
    For i = 1 To 4
        Arr = Split(Cells(i, 1))
        If Arr(UBound(Arr)) = Arr(UBound(Arr) - 1) Then
'            Cells(i, 1).Interior.Color = vbYellow
            ReDim Preserve Arr(UBound(Arr) - 1)
            Cells(i, 1) = Join(Arr, " ")
        End If
    Next i
End Sub
VG
Yal
AW: Doppelte Nummern in Zellen entfernen
10.03.2023 14:30:33
Daniel
Hi
ist ein bisschen komplizierter, daher.
1. lege dir die vier Namen an, so wie hier gezeigt.
markiere hierzu die oberste Zelle, in welcher die korrigierte Formel stehen soll. !A1 ist dann der Bezug auf die Zelle mit dem Ausgangstext (ggf anpassen)
Userbild
hier die XML-Filterformel zum kopieren:
=XMLFILTERN(""&WECHSELN(!A1;" ";"")&"";"//x/y")
2. wenn du diese vier Namen hat, verwende diese Formel:
=WENN(Wort1=Wort2;LINKS(A1;LÄNGE(A1)-LÄNGE(Wort1)-1);A1)
Gruß Daniel
Anzeige
AW: Doppelte Nummern in Zellen entfernen
10.03.2023 14:32:28
Daniel
Hi
ist ein bisschen komplizierter, daher.
1. lege dir die vier Namen an, so wie hier gezeigt.
markiere hierzu die oberste Zelle, in welcher die korrigierte Formel stehen soll. !A1 ist dann der Bezug auf die Zelle mit dem Ausgangstext (ggf anpassen)
Userbild
hier die XML-Filterformel zum kopieren:
=XMLFILTERN("&ltx&gt&lty&gt"&WECHSELN(!A1;" ";"&lt/y&gt&lty&gt")&"&lt/y&gt&lt/x&gt";"//x/y")
2. wenn du diese vier Namen hat, verwende diese Formel:
=WENN(Wort1=Wort2;LINKS(A1;LÄNGE(A1)-LÄNGE(Wort1)-1);A1)
Gruß Daniel
Anzeige
AW: Doppelte Nummern in Zellen entfernen
10.03.2023 15:21:51
JoWE
Hallo und warum nicht so und völlig ohne VBA und ohne komplizierte Fomel?
Nämlich via Menü Daten, Text in Spalten, getrennt, Leerzeichen
und dann die nicht benötigte Spalte/Spalten löschen?
Gruß
Jochen
AW: Doppelte Nummern in Zellen entfernen
10.03.2023 15:30:06
Daniel
vielleicht, weil es auch Straßennamen gibt, die aus mehr als einem Wort bestehen und es dann nicht mehr eindeutig ist, was in welcher Spalte steht?
Gruß Daniel
AW: Doppelte Nummern in Zellen entfernen
10.03.2023 15:39:58
JoWE
Ja, das hat was :=)
AW: Doppelte Nummern in Zellen entfernen
11.03.2023 03:02:37
Raphael
Genau.
Karl Marx Strasse 14 b
mit allg. UDF
10.03.2023 17:15:26
Yal
hallo zusammen,
vielleicht kann man einen allgemeine UDF definieren, die den Split als Formel nachbildet:
Public Function FSplit(ByVal Target, ByVal Trenner As String, Optional Index = 0)
Dim Arr
    Arr = Split(Target, Trenner)
    If Index  0 Then Index = UBound(Arr) + Index + 1
    FSplit = Arr(Index)
End Function
Diese FSplit habe ich die Möglichkeit gegeben, das letzte Element (Index = -1) oder vorletzte (Index = -2) zu holen.
Somit könnte man der letzte und vorletzte vergleichen und bei Gleichheit, um die Länge der letzten kürzen:
=WENN(FSplit(A1;" ";-2) = FSplit(A1;" ";-1); LINKS(A1; LÄNGE(A1)-LÄNGE(FSplit(A1;" ";-1))-1); A1)
Abgesehen davon kann man FSplit für viele andere Sachen verwenden.
VG
Yal
Anzeige

310 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
Werte bis zum ersten ; in Zelle löschen
Helmut

Hallo Forenuser,
ein kleines Problem:
Wie kann ich alle Zeichen bis zum ersten Strichpunkt in einer Zelle löschen?
Also:
200;3AB;5V
soll werden:
3AB;5V
Oder:
0-3400;8ZU;9;9
soll werden:
8ZU;9;9
Danke im Voraus!
LG, Helmut
10.05.2010 14:25:02
Thread-ID: 1156441
2 Beiträge
doppelte und leere Zellen entfernen
Günther

Hallo zusammen,
Spalte A ist mit Namen (Buchstaben), Werten (Zahlen) und Leerzellen gefüllt (A1:A200)
Nun möchte ich erreichen, dass diese in Spalte B (ab B1) kopiert bzw. gefiltert werden
und zwar so, dass Leerzellen und doppelte Einträge gelöscht werden, (also nicht nur
ausgeb...
24.05.2010 22:22:09
Thread-ID: 1158591
6 Beiträge
Anzeige
Nach dropdown-Auswahl Zelle löschen
Michael

Hallo!
Folgendes Problem möchte ich gerne lösen: Nach der Auswahl über ein Dropdown-Feld ergibt sich eine bestimmte Zahl (hier: Anzahl von Personen). Dementsprechend verfärben sich ein paar Eingabefelder, in welche die Namen jener Personen händisch eingetragen werden.
Wenn nun diese Fe...
07.12.2010 06:25:45
Thread-ID: 1190332
3 Beiträge
sverweis soll Wort aus Zelle m.viel Wörtern finden
Susi

Hallo Ihr lieben Genies,
ich benutze folgenden sverweis
=SVERWEIS(C484;Bestand!M:AK;26;FALSCH) kommt aber Fehlermeldung #NV
Zwei Tabellen, Bestand und Verkäufe
in Tabelle Verkäufe steht in Spalte C zB (11/01-483)123pitang
so wie es da steht mit Klammern usw.
Diesen Wort...
03.02.2011 23:56:25
Thread-ID: 1198935
6 Beiträge
Wert aus Zelle nach löschen übernehmen
mike49

Hallo zusammen,
ich habe ein kleines Löschen-Makro aufgezeichnet, das auch so funktioniert.
Ich möchte es nun so erweitern, dass der Wert aus Zelle J45 nach dem Löschen nach J6 übernommen _ wird. Wie müsste dann das Makro lauten? Sub Löschen() ' Löschen Makro Range("E7:H42").Select Se...
25.03.2012 10:39:52
Thread-ID: 1256421
9 Beiträge
Untersuche ob Wort aus einer Spalte in der Zelle
CHristian

Guten Abend! Vermutlich leicht zu lösen aber ich habe schon sehr lange nicht mehr mit Excel gearbeitet.....
DIe Aufgabe die ich lösen muß ist wie folgt:
In Zelle B5423 steht ein Text der überprüft werden soll - nach folgenden Kriterien:
WEnn irgendwo im Text der Zelle B5423 eine...
09.01.2013 20:51:57
Thread-ID: 1293553
9 Beiträge
Doppelte Werte in Zelle löschen
philG

Hallo liebe Herber-Gemeinde,
ich habe ein Problem mit doppelten (kommaseparierten) Werten in einer Zelle meiner Exceltabelle. Ich hoffe Ihr könnt mir zur Lösung des Problems einen Tip geben! :)
Ein Beispiel: Zelle A1=8512,8512,8512,8512,8512,8512,8512,8512,8512,8512,8512,8512,14726,1472...
23.01.2013 09:35:13
Thread-ID: 1295552
5 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
7
1
5
6
2
5
8
8
4
15
4
1
2
7
6
2
3
13
2
13
8
12
10
6