---

Hallo!

Ich bräuchte ein Makro, mit dem ich aus einem Zelltext "an" ein "αn" machen kann, bzw. das mit eventuell auch nur "αn" in eine Zelle schreibt. Kennt jemand eine Lösung?

Danke!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Starte den Makrorekorder und zeichne Deine manuelle Vorgehensweise auf. Fertig.

------------------
Gruß, Carsten

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

226_1751_autokorrektur-benutzen_edit.zip

Hallo zusammen,

mit dem Makrorekorder ist tatsächlich nicht so einfach, weil der aus dem Alphazeichen ein einfaches "a" macht. Aber mit einem kleinen Trick geht es dann so:

Code:

---

ActiveCell.FormulaR1C1 = ChrW(945) & "n"

---

Durch die ChrW Funktion kannst du den Code für das Alpha unter Windows eingeben, den Code bekommst du über die Zeichentabelle. Von da kann man natürlich auch einfach das Alpha rauskopieren.

Wenn du das einfach nur als Eingabehilfe brauchst, um eben nicht über die Zeichentabelle das jedesmal zu suchen kannst du dir dafür auch über die Autokorrekturfunktion von Excel was machen. Ich hab dir als Beispiel ein kleines Video dazu in Excel 2010 angehangen.

Ciao,
Stefan

------------------
Inoffizielle deutsche SolidWorks Hilfeseite    http://solidworks.cad.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Merkwürdig. Ich hatte es vor meiner Antwort natürlich selbst ausprobiert. Das aufgezeichnete Makro klappt einwandfrei.

------------------
Gruß, Carsten

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke!

Ich habe es mit Hilfe des Makrorecorders so gelöst:

    Range("C8").Select
    Range("C8") = "an"
    With ActiveCell.Characters(Start:=1, Length:=1).Font
        .Name = "Symbol"
        .FontStyle = "Standard"
    End With
    With ActiveCell.Characters(Start:=2, Length:=1).Font
        .Name = "Arial"
        .FontStyle = "Standard"
    End With

Grüße!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP