Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
09.10.2010 15:04:33 |
Wilhelm Markett |
|
|
|
09.10.2010 15:44:45 |
Severus |
|
|
|
09.10.2010 15:59:40 |
wilhelm Markett |
|
|
|
09.10.2010 17:51:27 |
Severus |
|
|
Aw:Aw:Aw:Aw:CharacterSet - Wie wandelt man die Zei |
10.10.2010 14:06:53 |
Holger |
|
|
|
10.10.2010 15:04:59 |
Severus |
|
|
Von:
Holger |
Datum:
10.10.2010 14:06:53 |
Views:
547 |
Rating:
|
Antwort:
|
Thema:
Aw:Aw:Aw:Aw:CharacterSet - Wie wandelt man die Zei |
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 |
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
09.10.2010 15:04:33 |
Wilhelm Markett |
|
|
|
09.10.2010 15:44:45 |
Severus |
|
|
|
09.10.2010 15:59:40 |
wilhelm Markett |
|
|
|
09.10.2010 17:51:27 |
Severus |
|
|
Aw:Aw:Aw:Aw:CharacterSet - Wie wandelt man die Zei |
10.10.2010 14:06:53 |
Holger |
|
|
|
10.10.2010 15:04:59 |
Severus |
|
|