eine auf den ersten Blick simple Frage:
Wie kann ich in eine Zelle die beiden Buchstaben "ht" eingeben?
Muß ich wirklich immer vorher die Autokorrektur aus- und dann wieder einschalten, oder gibt's 'ne Tastenkombi?
Wer weiß es?
Danke.
Option Explicit
Sub htLöschen()
Application.SendKeys "%xe%Eht%L{ESC}", True
End Sub
Sub Makro2()
ActiveSheet.Unprotect
ctiveCell.FormulaR1C1 = "HT"
With ActiveCell.Characters(Start:=1, Length:=3).Font
.Name = "Arial"
.FontStyle = "Standard"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
ActiveSheet.Protect
End Sub
Sub ht()
ActiveCell.Value = "ht"
End Sub
Sub Makro2()
ActiveCell.FormulaR1C1 = "HT"
With ActiveCell.Characters(Start:=1, Length:=3).Font
.Name = "Arial"
.FontStyle = "Standard"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
End Sub
Sub autokorrektur_ein_aus()
With Application.AutoCorrect
.ReplaceText = Not .ReplaceText
End With
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen