Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Bei Eingabe von "j" "Ja" und von "n" "Nein" schreiben

Gruppe

Change

Problem

Wie kann ich bei Eingabe von "j" in Spalte A die Eingabe in "Ja" und von "n" "Nein" umwandeln lassen?

Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.

ClassModule: Tabelle1

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
   If Target.Column <> 1 Then Exit Sub
   If IsEmpty(Target) Then Exit Sub
   If Target.Value = "j" Then
      Target.Value = "Ja"
   ElseIf Target.Value = "n" Then
      Target.Value = "Nein"
   End If
End Sub