Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Smilies in Zellen zählen/filtern
#11
Hallo,

aufbauend auf dem Code von Andre listet dieser Code ALLE Zeichen einer Zelle auf und macht sie damit einer weitergehenden Analyse zugänglich. Das Proble, dass die "mid()"-Funktion nicht klappt, ist damit umgangen.

Der Vorteil ist ein Vermeiden von 30 Spalten x 95.000 Zeilen mit Arrayformeln und "ein Wühlen in den Bytes".

Code:
Sub ReadSmilie()

Dim Ret() As Long
Dim WSF As WorksheetFunction: Set WSF = Application.WorksheetFunction
Tx = Cells(12, 1)
    
    ReDim Ret(Len(Tx))
    Do
        Ret(p) = WSF.Unicode(Tx)
        If Ret(p) < 65335 Then
           Tx = Mid(Tx, 2)
        Else
            Tx = Mid(Tx, 3)
        End If
        Debug.Print Ret(p)
        p = p + 1
    
    Loop While Len(Tx) > 0

End Sub

mfg

(hoffentlich ist das Projekt "politisch korrekt")
Antworten Top
#12
Hallo,

es geht wohl auch mit M$ Word (schlecht getestet):

Code:
'https://stackoverflow.com/questions/38594807/how-to-process-multibyte-symbols-in-ms-word-vba
'getestet:
Private Sub Strip_PUA()
    For idx = 1 To ActiveDocument.Characters.Count
        Dim bArr() As Byte
        bArr = ActiveDocument.Characters(idx)

Debug.Print idx, Chr(bArr(b)), Right(0 & Hex(bArr(b + 1)), 2) & Right(0 & Hex(bArr(b)), 2)

    Next
End Sub

Dies ist der Probetext:

Code:
message
❤❤❤❤?
Cool
??????
Once in a lifetime ~ ♡
SN DE ❤️ :(
❤️
Glückwunsch ♥️????
Glückwunsch  ?
super schön ❤
Ja!!??
das ist blöd ??

mfg
Antworten Top
#13
Thumbs Up 
Hallo zusammen,

vielen Dank für die Hilfe!!

@Andre und Fennek: Es hat tatsächlich funktioniert und dabei hatte ich kaum noch Hoffnung. Ihr habt mir wirklich sehr viel Zeit erspart!

DANKE!!!

Liebe Grüße
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste