Gruppe
Ereignis
Problem
Wie kann ich veranlassen, daß nach Eingabe einer Zahl ein bestimmter Text in die Eingabezelle geschrieben wird?
ClassModule: Tabelle2
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If IsEmpty(Target) Then Exit Sub
If Target.Column <> 1 Then Exit Sub
Application.EnableEvents = False
On Error GoTo ERRORHANDLER
Select Case Target.Value
Case 4: Target = "4 - Äpfel"
Case 5: Target = "5 - Birnen"
Case 6: Target = "6 - Schornsteinfeger"
Case 7: Target = "7 - Pfirsische"
End Select
ERRORHANDLER:
Application.EnableEvents = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub