Zellinhalte partiell formatieren (Shortcut)
Michael
Die Aufgabe ist: !!während der Eingabe!! Text in einer Zelle partiell anderst zu formatieren.
Als Ergebnis kann es so aussehen:
Sub StrkThrgh()
ActiveCell.FormulaR1C1 = """Text normal"" / ""Text durchgestrichen"""
ActiveCell.Characters(Start:=17, Length:=22).Font.Strikethrough = True
End Sub
Wichtig ist, dass "Start" und "Length" flexibel ist und während der Eingabe über Markierung definiert wird.
Ich spare dadurch nach dem Markieren:
rechte Maus/ Zellen formatieren/ Durchgestrichen/ OK/ Enter
und könnte dafür mir einen Shortcut Strg-d vorstellen.
Habt ihr dazu eine gute Idee?
Viele Grüße,
Michael
Anzeige