bei Excel-inside Solutions (http://www.excel-inside.de/vba-loesungen/zellen-a-bereiche/944-daten-direkt-bei-eingabe-ersetzen) habe ich einen Code gefunden, der mir erlaubt in meiner Abrechnungstabelle in bestimmten Zellen Kürzel einzugeben, welche dann durch den vollständigen Text aus einer Liste eines anderen Tabellenblattes ersetzt werden. Das funktioniert soweit auch wunderbar. Wenn ich nun allerdings eine oder mehrere Zellen auswähle und den Inhalt durch -entfernen- löschen möchte, kommt in allen Zellen ein Fehlertext (#NV). Ich habe versucht den Code anzupassen, bin aber nicht weit gekommen. Könnt ihr mir eine Lösung zeigen?
Vielen Dank! Paul.
Der Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim varWert As Variant
Set wsein = Worksheets(2)
Set wsdat = Worksheets("Data 1")
If Not Application.Intersect(Target, Range("E11:E58")) Is Nothing Then
On Error GoTo ende
varWert = WorksheetFunction.VLookup(Target.Value, wsdat.Range("O21:P27"), 2, False)
Application.EnableEvents = False
Target.Value = varWert
Application.EnableEvents = True
End If
Exit Sub
ende:
End Sub