Hallo Mr. K.
vielen Dank für die schnelle Antwort mitten in der Nacht :-)
Tatsächlich habe ich das mit ASCII und Unicode verwechselt. Ich meinte ASCII, bin aber wohl mit den Befehlen durcheinander gekommen, da ja die Programm-Zeile
x = StrConv(str1, vbFromUnicode)
mir das Ergebnis
115 116 101 112 104 102 97 110
ausgibt und das doch ASCII ist, oder?
Jedenfalls stehe ich wohl immer noch auf dem Schlauch was die Rückumwandlung in Text angeht. Mit dem folgenden Code erhalte ich wieder die o.g. ASCII Reihenfolge
Sub zuText()
Dim str1 As String, str2 As String
Dim i As Integer
Dim x() As Byte
str1 = Cells(1, 2).Value
x = StrConv(str1, vbFromUnicode)
For i = 0 To UBound(x)
str2 = str2 & Chr(x(i))
Next i
Cells(1, 3).Value = Trim(str2)
End Sub
Es liegt sicherlich wohl an der Zeile "x = StrConv(str1, vbFromUnicode)" - da fehlt mir aber das Verständnis. Kannst Du da bitte nochmals drüber schauen?
Vielen Dank für Deine Bemühungen :-)