Beispiel-Satz:
#Samsung rollt #android 6.0.1 #Marshmallow nun auch für das europäische Galaxy S5 aus.
Neue Zelle sollte enthalten: Samsung, android, Marshmallow
Wer kann mir helfen?
Beste Grüße & Danke
Triola
Function auslesen(Zelle As Range) As String
Dim a
Dim i As Long, Ausgabe As String, Anzeige As String
a = Split(Zelle, "#")
For i = 1 To UBound(a)
Anzeige = Left(a(i), InStr(1, a(i), " ")-1)
Ausgabe = IIf(Ausgabe = "", Anzeige, Ausgabe & ", " & Anzeige)
Next
If Ausgabe "" Then auslesen = Ausgabe
End Function
A | B | |
1 | #Samsung rollt #android 6.0.1 #Marshmallow nun auch für das europäische Galaxy S5 aus. | Samsung , android , Marshmallow |
2 | Samsung rollt android 6.0.1 #Marshmallow nun auch für das europäische Galaxy S5 aus. | Marshmallow |
3 | Samsung rollt android 6.0.1 Marshmallow nun auch für das europäische Galaxy S5 aus. |
verwendete Formeln | |||
Zelle | Formel | Bereich | R1C1 für Add In |
B1:B3 | =auslesen(A1) | =auslesen(RC[-1]) |