Wie schreibe ich VBA-Code mit UTF-8 Zeichen drin?

Question

Ich möchte einige VBA-Code wie den folgenden erzeugen:

fndList.Add "Beat 'em up game", "Beat 'em up" 
fndList.Add "Bishōjo game", "Bishōjo" 
fndList.Add "Bullet hell game", "Bullet hell" 
fndList.Add "Business simulation game", "Business sim" 

jedoch wandelt Excel Zeile # 2 auf "Bishojo Spiel", ohne die Sonderzeichen. Wie soll ich mit solchen Charakteren umgehen? Vielen Dank.

Answer 1

Sie könnten Ihre Werte in einigen irgendwo Zellen speichern und sie dann von dort gelesen werden:

Sub test() 
    Dim fndList As New Dictionary 
    Dim c As Range 
    Dim v As Variant 
    Dim r As Long 
    'Read values from A1:B4 
    For Each c In Range("A1:B4").Rows 
     fndList.Add c.Cells(1, 1).Value, c.Cells(1, 2).Value 
    Next 
    'Test that they haven't been altered by writing to C1:D4 
    Range("C1:C4").Value = Application.Transpose(fndList.Keys) 
    Range("D1:D4").Value = Application.Transpose(fndList.Items) 
End Sub 

Answer 2

Sorry, fühlt sich an wie es ist schon eine ganze Zeit, da die Frage aufgeworfen wurde.
Aber ich würde immer noch eine Lösung vorzuschlagen mag:

Verwendung von Unicode-Codierung andere Sprache darzustellen:

Sheet1.Cells(2, 1) = ChrW(&H3091) 

, die für Charakter steht ゑ.
Anfügen der Website, die Sie für die Codierung nachschlagen könnten: https://unicode-table.com/en/