Live-Forum - Die aktuellen Beiträge
Datum
Titel
10.10.2025 15:11:39
Werte aus Zellen in Punktdiagramm, Beschriftung
10.10.2025 11:07:34
"Text in Spalten" ändert die Zahl von 21.1 in 45678
10.10.2025 10:11:05
geöffnete Excel-Datei mit variablen Namen finden
10.10.2025 09:38:53
Spalten aus 2 Tabellenblättern mit Array abgleichen
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
1804to1808
1804to1808
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Doppelte Zeichen in einem String löschen

Forumthread: Doppelte Zeichen in einem String löschen

Doppelte Zeichen in einem String löschen
19.01.2021 16:28:53
Armin
Hallo,
ich möchte in einem String, zwei aufeinander folgende identische Zeichen löschen.
Also, wenn in der Zelle A1:"Hallo" steht, soll in B1:"Halo".
Hat jemand eine Idee, wie man das mit einem Marko lösen kann?
VG
Armin
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Doppelte Zeichen in einem String löschen
19.01.2021 17:37:02
Daniel
Hi
Vielleicht so: 
txt1 = Range("A1").Value
txt2 = Left(txt1, 1)
For i = 2 to len(txt1)
If Mid(txt1, i, 1)  Mid(txt1, i - 1, 1) then
txt2 = txt2 & Mid(txt1, i, 1)
End if
Next
Range("B1").value = txt2
Gruß Daniel
Anzeige
AW: Doppelte Zeichen in einem String löschen
19.01.2021 17:46:05
Armin
Super, genau so sollte es ein. Viiiiiiiiiiiiielen Dank.
VG
Armin
AW: Doppelte Zeichen in einem String löschen
19.01.2021 17:47:11
onur
UND WIESO HAST DU MEINEN VORSCHLAG IGNORIERT ?
AW: Doppelte Zeichen in einem String löschen
19.01.2021 17:58:12
Armin
....sorry, ....deine Lösung war auch schon super und auch nahe dran.
Aber dein Vorschlag machte aus:
A1: "aaaBBBBB" in B1: "aaBBB"
mein erwartetes Ergebnis wäre hier
B1:"aB" gewesen.
Es sollten die "auf einander folgenden identischen" Zeichen gelöscht werden....daher war das Ergebnis nicht ganz richtig. Sorry.
VG Armin
Anzeige
AW: Doppelte Zeichen in einem String löschen
19.01.2021 18:05:00
onur
Das hier war doch von dir, oder ? "Zwei aufeinander folgende identische Zeichen löschen".
Ausserdem, kein Grund, überhaupt nicht zu antworten.
AW: Doppelte Zeichen in einem String löschen
19.01.2021 18:13:59
Armin
Stimmt, das war wohl mein Fehler. Ich hätte anstelle von "zwei" nur "aufeinander folgende identische Zeichen" schreiben sollen.
Sorry, dafür. Liegt wohl daran, dass ich heute zum ersten Mal hier im Forum geschrieben habe. Ich werde zukünftig präziserer formulieren.
Ich hoffe wir können Freunde bleiben....;-)
VG Armin
Anzeige
AW: Doppelte Zeichen in einem String löschen
19.01.2021 18:34:17
onur
Kein Ding - Aber es geht nicht um MICH.
Es ist leider eine Unsitte bei vielen Hilfesuchenden geworden, dass sie, wenn sie mehrere Antworten/Vorschläge zu einer Frage erhalten, sich bei dem einen bedanken, dessen Antwort ihnen passt und die Anderen einfach ignorieren.
;

Forumthreads zu verwandten Themen

Spaltentrennzeichen nach speichern in Text-Datei
Michael

Hallo
ich habe ein Problem. Vielleicht ist es schwierig, vielleicht aber auch nicht.
Ich habe eine Text-Datei mit Spaltentrennzeichen "|" (besser als ";" der Übersichtlichtlichkeit halber) und verschiedenen Längen der Spalten.
Ich will diese in Excel überarbeiten und als Text-Dat...
11.09.2008 09:28:00
Thread-ID: 1008978
3 Beiträge
Zeichenkette in einer Zellesuchen
Gordon

Moin,
ich habe in einer Zelle (A1) einen Namen plus ein Datum dazu stehen: "Max Mustermann (01.01.1900)"
Nun möchte ich überprüfen, ob diese Zeichenkette, also Name plus Datum, nochmals in der Zelle A2 steht.
In der Zelle A2 stehen mehrere dieser Zeichenketten. Diese sind in einer...
26.09.2008 12:54:00
Thread-ID: 1012601
4 Beiträge
Unicode-Zeichen in Textfeld von Userform
Userform

Hallo,
Ich bin auf der Suche nach gut praktikablen Möglichkeiten in ein Textfeld eines Userforms Unicode-Zeichen (z.B. ć kleines c mit Akut - Code 0107 oder č kleines c mit Caron - Code 010D) einzutippen.
Danke im voraus für alle Tipps!
Grüße
Günther
12.10.2008 12:34:00
Thread-ID: 1015836
5 Beiträge
Anzeige
Zeichenanzahl einer Textbox festlegen
Heinz

Hallo Leute
Habe eine Frage zum setzen einer Zeichenanzahl in einer Textbox.
Ich habe eine UF mit Textboxen, wo max.31 Zeichen enthalten sein dürfen.
Wie kann man diese bitte beschränken ?
Danke
Heinz
25.12.2008 21:05:00
Thread-ID: 1035243
5 Beiträge
Anzahl der Zeichen in einer Zelle
Jan

Guten Morgen
Welcher Befehl zählt die Zeichen in einer Zelle?
Danke
Gruß Jan
07.01.2009 08:38:00
Thread-ID: 1037436
3 Beiträge
Nur bestimmte Zeichen in Zelle
wolle

Erstmal ein Hallo an Alle und alles gute in 2009!
Ich hätte folgende Frage:
Wie kann ich es machen, dass in Spalte B von Zelle B10 bis Zelle Bxx nur die Zeichen "J" "j" "N" "n" eingeben werden können und bei Eingabe eines anderen Zeichens ein kleines Popup erscheint, das den Bediener in...
09.01.2009 11:22:25
Thread-ID: 1038162
3 Beiträge
zählen bestimmter Zeichen in einer Zelle
Georg

Hallo Excel Welt,
wie kann ich die Anzahl bestimmter Zeichen (z.B. Kommas) in einer Zelle zählen?
Beispiel:
A2 = 12, 34, 2, 134
B2 = 3 (es sind drei Kommas in der Zelle A2) = dafür benötige ich die Lösung
Oder kann ich die Anzahl der (durch Kommas getrennten) Zahlen direkt...
21.01.2009 16:03:36
Thread-ID: 1042267
6 Beiträge
Anzeige
VBA: Bestimmte Zeichenfolge in Zelle finden
gega

Hallo ich bins nochmals,
ich finde einfach keine Möglichkeit zwei Teile aus dem String herauszulösen, da nur "Käufer: " und "[ Kontakt mit Käufer aufnehmen ]" fest am Anfang und Ende des Strings sind und der Käufername hier "leu_bw_cen" unterschiedlich lang ist und auch die EMail-Adr. zw. d...
23.01.2009 11:52:00
Thread-ID: 1042917
3 Beiträge
Tausenderzeichen in Textbox
Stefen

Hi Leute
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) TextBox1=Format(TextBox1,"#,##0.00") End Sub
eingebe sollte doch in Verbindung mit Controlsource in der TextBox die Tausenderzeichen stehen.
Warum geht das nicht.
Es zeigt mir immer nur den Betrag 50000...
31.01.2009 16:44:00
Thread-ID: 1045681
12 Beiträge
Leerzeichen links aus TextBox entfernen
Lenni

Moin Excellianer!
Wie kann man in einer TextBox (in einem UserForm) Leerzeichen links des ersten Wortes so rausfiltern, dass der TB-Eintrag wirklich mit einem Zeichen beginnt? ...und keinem Leerzeichen.
Vielen Dank für Eure Hilfe!
Viele Grüße aus dem hohen Norden!
Lenni
19.02.2009 21:58:00
Thread-ID: 1052293
5 Beiträge
Keine Sonderzeichen in mehreren Textboxen
Roland

Hallo VBA Profis
ich überprüfe mit folgendem Code ob jemand ein Sonderzeichen eingibt.
Sub txt_AuftragsNr_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) Select Case KeyAscii Case 65 To 90, 48 To 57 'Grossbuchstaben, Zahlen Case 97 To 122 'Kleinbuchstaben Case Else MsgBox "Es sind k...
02.03.2009 11:41:30
Thread-ID: 1055489
5 Beiträge
Sonderzeichen in Textbox
Artur

Hallo User,
ich habe eine userForm als Eingabemaske entwickelt. Eins der Eingabefelder (Textbox) wir in der weiteren Verwendung als Dateiname verwendet. Wie kann ich es jetzt verhindern das der Benutzer die Sonderzeichen \ / ; usw. nicht in die Textbox einträgt. Vorerst vielen dank für Eure...
03.03.2009 10:45:06
Thread-ID: 1055855
6 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Doppelte Zeichen in einem String löschen

Schritt-für-Schritt-Anleitung

Um doppelte Zeichen in einem String zu löschen, kannst du ein einfaches VBA-Makro verwenden. Folge diesen Schritten:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Klicke auf Einfügen und wähle Modul, um ein neues Modul zu erstellen.

  3. Füge den folgenden VBA-Code in das Modul ein:

    Sub EntferneDoppelteZeichen()
   Dim txt1 As String
   Dim txt2 As String
   Dim i As Integer

   txt1 = Range("A1").Value
   txt2 = Left(txt1, 1)

   For i = 2 To Len(txt1)
       If Mid(txt1, i, 1) <> Mid(txt1, i - 1, 1) Then
           txt2 = txt2 & Mid(txt1, i, 1)
       End If
   Next i

   Range("B1").Value = txt2
End Sub

  4. Schließe den VBA-Editor und gehe zurück zu Excel.

  5. Gib in Zelle A1 den Text ein, aus dem du die doppelten Zeichen entfernen möchtest.

  6. Drücke ALT + F8, wähle EntferneDoppelteZeichen aus und klicke auf Ausführen.

Der bereinigte String erscheint in Zelle B1.

Häufige Fehler und Lösungen

  • Fehler: "Typenkonflikt"

    • Lösung: Stelle sicher, dass die Zelle A1 tatsächlich einen Text enthält und keine leeren Zellen oder andere Datentypen verwendet werden.

  • Fehler: Makro funktioniert nicht

    • Lösung: Überprüfe, ob Makros in Excel aktiviert sind. Gehe zu Datei > Optionen > Trust Center und passe die Einstellungen an.

Alternative Methoden

Wenn du kein VBA verwenden möchtest, kannst du auch eine Formel anwenden. Eine Möglichkeit ist die Verwendung von Hilfsspalten, um die Zeichen zu überprüfen und sie entsprechend zu kombinieren. Diese Methode ist jedoch umständlicher und nicht so effizient wie ein Makro.

Praktische Beispiele

  • Beispiel 1: Wenn in A1 "aaaBBBBB" steht, sollte nach der Ausführung in B1 "aB" erscheinen.
  • Beispiel 2: Bei der Eingabe "Hallo" in A1 sollte B1 "Halo" anzeigen.

Tipps für Profis

  • Du kannst das Makro erweitern, um auch Leerzeichen oder andere unerwünschte Zeichen zu entfernen.
  • Experimentiere mit der Anpassung des Codes, um verschiedene Textoperationen durchzuführen, wie z. B. das Entfernen von mehr als zwei gleichen Zeichen.

FAQ: Häufige Fragen

1. Wie kann ich das Makro anpassen? Du kannst den Code modifizieren, um spezifische Zeichen zu entfernen, indem du zusätzliche Bedingungen hinzufügst.

2. Funktioniert das auch in Excel für Mac? Ja, das VBA-Makro sollte auch in Excel für Mac funktionieren, solange die Makros aktiviert sind.

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