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