Office-Fragen.de

Hallo alle zusammen , hoffe dass irgendeiner mir helfen kann.

Beispiel:

Wenn ich in Zelle A1 798 eingeben und die Zelle verlasse will ich dass 798 ersetzt wird durch einen bestimmten Text
Wenn ich in Zelle A1 714 eingebe und die Zelle verlasse soll ein anderer bestimmter Text erscheinen usw....

Geht das überhaupt und wenn ja wäre mir sehr geholfen

Vielen Dank im Vorraus für alle nützlichen und unnützlichen Antworten Wink

Viel Spass beim grübeln

Hallo,

dazu kannst du die Autokorrektur verwenden, oder ein VBA-Makro.

Code:
Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = False

If Not Intersect(Target, Range("A1")) Is Nothing Then

    Select Case Target.Text

    Case "714": Target.Value = "Ich bin Neu"

    Case "798": Target.Value = "Total NEU"

    Case Else: Target.Value = ""

    End Select

End If

Application.EnableEvents = True

End Sub

Vielen Dank Sabina hat super geklappt mit der Autokorrektur
muss nur alles hinzufügen was ich brauche.

Aber eine Frage hätte ich doch noch
Kann man die Autokorrektur für bestimmte Zellen einrichten oder ist es immer für das komplette Sheet ??

Ciao ciao und vielen Dank nochmal
Schöne Grüsse aus Luxemburg
Raymond

Hallo,

die Autokorrektur, ist immer für das komplette Excel-Application gültig ... in allen Mappen und allen Sheets ... wie auch in Word.

Willst du es auf einige Zellen in bestimmten Sheets begrenzen, bietet es sich an, es über das Makro zu machen, dass ich beigefügt habe.

Raymond1234

Flotter Feger

Raymond1234

Flotter Feger