wie kann ich es erreichen, dass die Autokerrektur nur für eine bestimmte
Datei Gültigkeit hat.
Z.B. möchte ich "Fahrtkostenpauschale" = pau
erstellen also ich gebe "pau" ein es erscheint..."Fahrtkostenpauschale.
Aber nur für diese Datei !
mfg Kurt k
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ERR_Handler
With Target
If .Count = 1 Then
If .Value = "pau" Then
Application.EnableEvents = False
.Value = "Fahrtkostenpauschale"
End If
End If
End With
ERR_Handler:
Application.EnableEvents = True
End Sub
VG, Boris
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim vntNewValue As Variant
On Error GoTo ERR_Handler
With Target
If .Count = 1 Then
Select Case .Value
Case "pau": vntNewValue = "Fahrtkostenpauschale"
Case "ke": vntNewValue = "Keller"
Case "au": vntNewValue = "Ausstellung"
'hier kannst Du weitere hinzufügen
Case Else: vntNewValue = .Value
End Select
Application.EnableEvents = False
.Value = vntNewValue
End If
End With
ERR_Handler:
Application.EnableEvents = True
End Sub
Ist übrigens Case Sensitive: "Au" ist nicht gleich "au".
Dim lrgRange As Range
Set lrgRange = Range("B10:B25, B35:B45")
If Intersect(Target, lrgRange) Is Nothing Then Exit Sub
Weitere Einträge (Zellbereiche) kannst du in meiner SET-Zeile eintragen.