wie kann ich über ein Makro bzw. VBA-Code an einen vorhandenen Text das Zeichen für "Pfeil" (=0174) anhängen und anschließend einige Zeichen in der ursprünglichen Schriftart (=Arial) hinzufügen?
Jedes Makro was ich mitgeschrieben habe, überschreibt mir den kompletten Zellinhalt.
Ich möchte aber den vorher in der Zelle befindlichen Text beibehalten, und direkt daran anschließend einen Pfeil (Schriftart Symbol) mit nachfolgenden (variablen) Zeichen (Schriftart Symbol) anfügen.
Z.B. in einer Zelle steht "S" ich aktiviere die Zelle und schreibe mit Hilfe des Makros
"->F" hinter das "S". Das Ergebnis soll dann "S->F" sein.
Das zugehörige Makro möchte ich in jeder beliebigen Zelle der Tabelle anwenden können, völlig unabhängig davon welche Zeichen bereits in der Zelle standen.
Um nur einen Pfeil einzufügen habe ich auf Herberts Excel CD-Rom folgendes Makro gefunden:
Sub Symbol_Pfeil()
Dim rng As Range
For Each rng In Selection.Cells
rng.Value = rng.Value & Chr(174)
rng.Characters(Start:=Len(rng.Value), _
Length:=1).Font.Name = "Symbol"
Next rng
End Sub
Aber wie kann ich den Code so verändern, daß ich danach wieder Zeichen in der Schriftart Ariel anhängen kann? Ich habe leider keine Ahnung von VBA und alles was ich bisher ausprobiert habe, ist kläglich gescheitert.
Für jede Hilfe bin ich daher wirklich dankbar.
Gruß Sabine