Office: Frage: Doppelte Zeichen eines Strings löschen

qwert · 5. Oktober 2004

Hallo,

ich hab da ein Probleme:
Möchte ich alle doppelten Zeichen in einen String löschen. Wie mache ich das am sinnvollsten.

Beispiel: vorher String = "aaksagahgjahdhajajdjadgd"
nachher String = "aksghjd"

Kann mir da jemand helfen ?

Bis denne

qwert (VBA Neuling*redface.gif*)

:)

JFreudens · 7. Oktober 2004

Hi qwert,

das lässt sich beispielsweise mit folgender VBA-Funktion bewerkstelligen, die auch als Funktion in Tabellen einesetzt werden kann.
=kürzen2(A1)

CU
Johannes
Code:

Public Function kürzen2(Ausgangsstring As String)
Dim i, j
kürzen2 = Ausgangsstring
If Len(kürzen2) < 2 Then
Exit Function
End If
i = 2
Do
gefunden = False
For j = 1 To i - 1
If Mid(kürzen2, j, 1) = Mid(kürzen2, i, 1) Then
gefunden = True
End If
Next
If gefunden = True Then
kürzen2 = Left(kürzen2, i - 1) & Mid(kürzen2, i + 1)
Else
i = i + 1
End If
Loop Until i > Len(kürzen2)
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

qwert · 7. Oktober 2004

Hi
Super danke ich hab zwar gedacht das es da ne Funktion geben müsste aber so klappt es auch

Danke noch mal für die schnelle Hilfe

Bis denne
qwert

Office: Frage: Doppelte Zeichen eines Strings löschen

Frage: Doppelte Zeichen eines Strings löschen

Frage: Doppelte Zeichen eines Strings löschen

Frage: Doppelte Zeichen eines Strings löschen - Similar Threads - Frage Doppelte Zeichen

Outlook Neuling - Fragen

Outlook: Mailinglisten erstellen und andere Fragen

FRAGE: Wenn(oder ; Wenns

Frage zu Wenn Formel

Doofe Frage zu Power Query

Office 365 family / Outlook Fragen

Frage zu CheckBox - TripleState =True