Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1448to1452
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
Inhaltsverzeichnis

Zeichen im String löschen

Zeichen im String löschen
24.09.2015 08:09:55
Bernd
Hallo ihr Lieben,
mit folgendem Problem schlage ich mich gerade rum:
in Zelle A1 habe ich
Musterstrasse 4 Hinterhof, D-00000 Musterstadt
in B1 habe ich
Musterstrasse 4 , D-00000 Musterstadt
Nun möchte ich, dass alles nach dem 2. Leerzeichen bis zum 1. Komma gelöscht wird.
Aber nur dann, wenn die zu löschenden Zeichen mehr als ein Zeichen sind.
So dass in meinem Fall "Musterstrasse 4 , D-00000 Musterstadt" übrig bleibt.
steht da Musterstrasse 4 b, D-00000 Musterstadt
dann nicht, da das b bestandteil der Hausnummer ist.
Ich hoffe mich einigermaßen verständlich ausgedrückt zu haben und hoffe auf eure Hilfe.
Vielen Dank und einen schönen Tag
Gruß Bernd

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

Betreff
Datum
Anwender
Anzeige
AW: Zeichen im String löschen
24.09.2015 08:36:45
ChrisL
Hi Bernd
Function RemoveSpezial(rng As Range) As String
Dim PositionKomma As Integer
Dim PositionLeer2 As Integer
PositionKomma = InStr(rng.Text, ",")
PositionLeer2 = InStr(rng.Text, " ") + InStr(Right(rng.Text, Len(rng.Text) - InStr(rng.Text, " " _
)), " ")
If PositionKomma - PositionLeer2 > 1 Then
RemoveSpezial = Left(rng.Text, PositionLeer2 - 1) & Right(rng.Text, Len(rng.Text) -  _
PositionKomma + 1)
Else
RemoveSpezial = rng.Text
End If
End Function

Alt+F11, Menü Einfügen, Modul, Code rein kopieren.
Anschliessend als Tabellenfunktion verwendet
=RemoveSpezial(A1)
cu
Chris

Anzeige
AW: Zeichen im String löschen
24.09.2015 11:49:21
Bernd
Hallo Chris,
danke für die tolle Funktion.
Leider schluckt sie alle Zeichen, auch den einzelnen Buchstabe, der zur Hausnummer gehört.
Kannst du da nocheinmal drauf schauen.
Vielen Dank
Gruß Bernd

AW: Zeichen im String löschen
24.09.2015 15:17:09
Bernd
Hi Chris,
ja, so wie deine Tabelle aufgebaut ist funzt es.
Aber bei meiner Frage war der Buchstabe zur Hausnummer mit einem Leerzeichen von der Nummer geschrieben.
Musterstrasse 4 a Hinterhof, D-00000 Musterstadt
und nicht
Musterstrasse 4a Hinterhof, D-00000 Musterstadt
Bei Musterstrasse 4 a Hinterhof, D-00000 Musterstadt
macht die Funktion alle Zeichen hinter der 4 weg, auch das a.
Weiterhin danke für deine Hilfe :-)
Gruß Bernd

Anzeige
AW: Zeichen im String löschen
24.09.2015 15:53:44
ChrisL
Hi Bernd
Und wie soll nun zwischen...
Musterstrasse 4 a, D-00000 Musterstadt
und
Musterstrasse 4 Hinterhof, D-00000 Musterstadt
unterschieden werden?
Gruss
Chris

AW: Zeichen im String löschen
25.09.2015 07:58:22
Bernd
Hi Chris,
anhand der Anzahl der Buchstaben.
Bei >1 löschen
Bei = 1 lassen.
Gruß Bernd

AW: Zeichen im String löschen
25.09.2015 08:49:33
ChrisL
Hi Bernd
Wird langsam ein "Murks"...
Function RemoveSpezial(rng As Range) As String
Dim PositionKomma As Integer
Dim PositionLeer2 As Integer
Dim PositionLeer3 As Integer
PositionKomma = InStr(rng.Text, ",")
PositionLeer2 = InStr(rng.Text, " ") + InStr(Right(rng.Text, Len(rng.Text) - InStr(rng.Text, "  _
")), " ")
PositionLeer3 = PositionLeer2 + InStr(Right(rng.Text, Len(rng.Text) - PositionLeer2), " ")
If PositionKomma - PositionLeer2 > 2 Then
If PositionLeer3 - PositionLeer2 > 2 And PositionKomma 

cu
Chris

Anzeige
Danke Chris o.w.t.
28.09.2015 15:48:00
Bernd
.

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige