Bestimmtes Zeichen mit Formel oder Funktion aus einer Zelle löschen

[Vortex]

Hallo,

ich habe eine Zelle in der z. B. der Wert

Name. Andreas. |Alter . 19| ||| Straße:||| Hauptstraße ||||||||| 

steht. Natürlich ist es noch viel länger

Wie bekomme ich es hin, das dieses Zeichen "|" nur einmal an der stelle steht. Die Duplikate quasi entfernt werden und eins erhalten bleibt?

[RPP63]

ich habe eine Zelle in der z. B. der Wert […] steht.

Moin!
Wie kommt er denn in die Zelle, der Wert?
Sicherlich tippt niemand so einen Blödsinn.
Folglich gehe ich von einem misslungenen Import einer Textdatei (.txt oder .csv) aus.
Heißt:
Nicht die Folgen blitzdingsen, sondern an der Ursache arbeiten!

Edit:
Ach so, die Anfrage war ja schon (ohne Antwort) als erledigt gekennzeichnet … 

Gruß Ralf

[Egon12]

Hallo,

schau mal, ob das so ausreichend ist.

Code:

Option Explicit

Sub mehrZeichenWeg()
    Dim iString As Long, i As Long, j As Long, varString$, varAusgabe$
    With Tabelle1
        varString = .Cells(1, 1)
        iString = Len(varString)
        For i = iString To 1 Step -1
            If Mid(varString, i, 2) = "||" Then
                 varAusgabe = varAusgabe
                 j = j + 1
            Else
                varAusgabe = Mid(varString, i, 1) & varAusgabe
            End If
        Next i
        varString = varAusgabe
        iString = Len(varString)
        varAusgabe = ""
        For i = iString To 1 Step -1
            If Not Mid(varString, i, 3) = "| |" Then
                varAusgabe = Mid(varString, i, 1) & varAusgabe
            End If
        Next i
        .Cells(1, 1) = varAusgabe
    End With
End Sub

Diese Prozedur bearbeitet den Eintrag in Zelle A1.

Gruß Uwe

[Gastlich]

Hallo,

so mit Formel?

PHP-Code:

=WECHSELN(WECHSELN(WECHSELN(A1;"|";"");" ";" |");"|";"";1) 


Die ganze Zelle würde helfen.

[Vortex]

Hey.
ist eine Importdatei. Da kann ich keinen Fehler suchen, ich bekomme sie extern so ausgewiesen.
Aber hab es schon lösen können :)