Zellinhalte / Sonderzeichen löschen

Hallo zusammen
Ich habe eine Tabelle in welcher die folgenden Syntaxmöglichkeiten vorkommen können:
Spalte mit Mitarbeitenden:
Meister Hans, P114;#1502
Muster Kurt, I46;#87;#Muster Nadia, I45;#66
Muster Kurt, I46;#87;#Muster Nadia, I45;#66;Meister Hans, P114;#1502
Spalte mit Anwendungen:
Testapplikation;#12309;#RolleTest;#12310
Dunno;#12304;#NeueAnwendung;#12305;#TestApplikationen;#12306;#TestRolle;#12307;#RolleTest;#12308
Meine Problematik besteht darin, dass ich die Sonderzeichen und die Zahlenfolgen bei den Mitarbeitenden wie auch bei den Anwendungen nicht einlesen kann in meiner Datenbank und die Daten mittels Semikolon getrennt werden sollten. Entsprechend sollten die Daten so aussehen:
Spalte mit Mitarbeitenden:
Meister Hans, P114
Muster Kurt, I46; Muster Nadia, I45
Muster Kurt, I46; Muster Nadia, I45;Meister Hans, P114
Spalte mit Anwendungen:
Testapplikation;RolleTest
Dunno;NeueAnwendung;TestApplikationen;TestRolle;RolleTest
Ist es möglich, dies mittels einer Formel hinzukriegen'
Danke im Voraus für eure Antworten!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Reto
Komma/Semikolon ist etwas inkonsistent, aber grundsätzlich könntest du Text-In-Spalten machen, dann die fixen Spalten löschen und anschliessend wieder im CSV-Stil speichern.
Ansonsten VBA. Folgende Funktion in ein Standardmodul einfügen:


Public Function MeineBereinigung(myString As String) As String
Dim objRegEx As Object, objMatch As Object
Dim strText As String
Dim lngIndex As Long
Set objRegEx = CreateObject("VBScript.RegExp")
With objRegEx
.Global = True
.IgnoreCase = True
.Pattern = ";#\d+"
Set objMatch = .Execute(myString)
End With
For lngIndex = 0 To objMatch.Count - 1
myString = Replace(myString, objMatch.Item(lngIndex).Value, "")
Next
MeineBereinigung = Replace(myString, "#", "")
Set objRegEx = Nothing
Set objMatch = Nothing
End Function

Entweder verwendest du die Funktion als "Formel":


=MeineBereinigung(A1)

Oder als VBA:


Sub t1()
MsgBox MeineBereinigung("Muster Kurt, I46;#87;#Muster Nadia, I45;#66;Meister Hans, P114;#1502")
End Sub

bzw.


Sub t2()
MsgBox MeineBereinigung(Range("A1"))
End Sub

cu
Chris

Function TextUmwandlung(txt As String) Dim i As Long Dim TT txt = Replace(txt, "#", "") TT = Split(txt, ";") For i = 0 To UBound(TT) Step 2 TextUmwandlung = TextUmwandlung & ";" & TT(i) Next TextUmwandlung = Mid(TextUmwandlung, 2) End Function

Beliebteste Forumthreads (12 Monate)

Zellinhalte / Sonderzeichen löschen

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread