Tex

Forumthread: Tex

Tex

30.01.2020 15:46:53

Werner

Hallo Excel-Freunde
ich habe eine Spalte, in der in Text in folgendem Format vorhanden
(ist eine in Excel exportierte Sharepoint-Liste)
Nachname, Vorname;#1234
oder
Nachname, Vorname;#1234#;NochEinNachname, NochEinVorname;#456

Diese sollen per Formel umgewandelt werden in
Nachname, Vorname ;
bzw
Nachname, Vorname ; NochEinNachname, NochEinVorname ;

Hat jemand einen Tipp ?
Freu mich darauf
Gruß
Werner

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: z.B. mit WECHSEL()eien ...

30.01.2020 16:10:05

neopa
AW: z.B. mit WECHSEL()eien ...

31.01.2020 10:39:03

Werner
AW: bitteschön owT

31.01.2020 16:06:06

neopa
AW: Tex

30.01.2020 16:28:38

Daniel
Als Formel mit VBA

30.01.2020 16:37:43

Daniel
AW: Tex

31.01.2020 10:41:19

Werner

AW: z.B. mit WECHSEL()eien ...

30.01.2020 16:10:05

neopa

Hallo Namensvetter,
... Datenwerte stehen in Spalte A, dann folgende Formel,
in B1:
=WECHSELN(WECHSELN(WECHSELN(WECHSELN(WECHSELN(WECHSELN(WECHSELN(WECHSELN(A2;1;"");2;"");3;"");4;""); 5;"");6;"");"#;";" ");"#";"")
und Formel nach unten kopieren.
Die Formel muss wahrscheinlich noch um 4 WECHSEL()eien erweitert werden für 7 ...0
Gruß Werner
.. , - ...

AW: z.B. mit WECHSEL()eien ...

31.01.2020 10:39:03

Werner

Moin Werner
funktioniert einwandfrei :) DANKE
Ich hatte es auch versucht mit
=wechseln =ersetzen ... versucht
und dabei immer
;#?
eingesetzt
Das hatte nicht funktioniert
jetzt funzt es :)
BG
Werner

AW: bitteschön owT

31.01.2020 16:06:06

neopa

Gruß Werner
.. , - ...

AW: Tex

30.01.2020 16:28:38

Daniel

Hi
Formel wirds schwierig.
wenn, dann mit der Menüfunktion ERSETZEN in zwei schritten:
1. Ersetze ;"#*'; durch ;
2. Ersetze #* durch nichts
Gruß Daniel

Als Formel mit VBA

30.01.2020 16:37:43

Daniel

Hi
wenn VBA eine Option ist, dann ggf auch so:
1. dieser Code in ein allgemeines Modul der Datei:

Function RauteRaus(txt As String) As String
Dim TeilTexte
Dim i As Long
TeilTexte = Split(txt, ";")
For i = 0 To UBound(TeilTexte)
If Left(TeilTexte(i), 1) = "#" Then TeilTexte(i) = ""
Next
RauteRaus = Replace(Join(TeilTexte, ";"), ";;", ";")
End Function

und als Formel dann =RauteRaus(A1)
Gruß Daniel

AW: Tex

31.01.2020 10:41:19

Werner

Moin Daniel
ich wollte es schon mit einer Formel machen
(nicht die Menüfunktion bzw VBA)
da dann das immer separat "angestoßen werden muss"
Jedoch sind Deine beiden Lösungen super
und ich behalte sie in Erinnerung
... brauche ich später sicher nochmal für andere Fragestellungen :)
BG
Werner

Beliebteste Forumthreads (12 Monate)

Forumthread: Tex

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread