Holger schrieb am 10.10.2010 14:06:53:
Severus schrieb am 09.10.2010 17:51:27:
wilhelm Markett schrieb am 09.10.2010 15:59:40:
Sub test()
Dim strHEX As String 'Hexadezimalwert eines Zeichens
Dim strCHR As String 'Zeichen eines Hexadezimalwertes
strHEX = Hex(Asc(Range("A1")))
strCHR = Chr(CDec("&H" & CStr(Range("A1"))))
End Sub
Severus
Hey,
erstmal vielen Dank für die Antwort. Es scheint aber noch nicht so ganz zu funktionieren. Also ich haben folgendes in der Zelle stehen oder halt in einer Variablen gespeichert:
s = "vielen Dank f=C3=BCr Ihre Anfrage."
Wenn ich deine Lösung verwende:
Dim strCHR as String
s = "vielen Dank f=C3=BCr Ihre Anfrage."
strCHR = Chr(CDec("&H" & CStr(s)))
erhalte ich einen Laufzeitfehler '13' mit Typen unverträglich!
Denke das Problem ist, dass ich halt Zeichen und Hexwerte in einem String habe!
Gruß
Tja, da habe ich Dich erstens "mistverstanden" und zweitens haben wir da ein Problem.
Du schreibst, daß für als f=C3=BCr angezeigt iwrd. Damit kann ich leider nichts anfangen. Der Hex Code für ü=FC. Das Zeichen für C3 wäre à und das für BC ist ¼ . Hat also mit den von Dir genannten Zeichen nichts zu tun.
Daher habe ich keine Möglichkeit hier eine Umrechnung zu basteln.
Tut mir leid.
Severus
Hallo,
so schnell sollte man nicht aufgeben.
Um ein wirklich funktionierendes Modul vorzuschlagen, fehlen mir einige Angaben. Ich gehe davon aus, dass die umzuwandelnden Wörter/Sätze in Zellen einer Spalte, sagen wir A, stehen. Der Code ist leicht änder- oder erweiterbar.
for i =1 to Cells(Rows.Count, 1).End(xlUp).Row
cells(i,1)=replace(cells(i,1),"=C3=A4","ä")'1 steht für Spalte A
'... für die anderen Zeichen öüÄÖÜß und was je nach Sprach noch anfällt
next i
Der Rücktausch erfolgt genauso, z.B.
cells(i,1)=replace(cells(i,1),"ä","=C3=A4")
Das ist vielleicht nicht so elegant, sollte aber zum Ziel führen.
Gruß
Holger
Hi Holger,
Du hast natürlich Recht! Ich habe aber nicht gedacht, daß Wilhelm Markett an einem "Wörterbuch" gelegen ist das er sich selbst zusammenbauen muß. Zum einen, weil er darauf sicher selbst gekommen wäre, zum Anderen, weil es sich sicher über lange Zeit erstrecken würde, es zu vervollständigen. Schließlich kommen Sonderzeichen nicht alle in jedem Text vor, und es gibt davon ja jede Menge, nicht nur die deutschspachigen, sondern auch die spanischen, portugiesischen etc.
Und soweit ich das verstanden habe eben nicht einzeln in einer Zelle, sondern in einem importierten Text.
Aber wenn Wilhelm sich Dein Modell mal näher anschauen will: Nur zu.
Severus
Severus |