+- Office-Fragen.de (https://office-fragen.de)
+-- Forum: Microsoft Office (https://office-fragen.de/forum-1.html)
+--- Forum: Excel (https://office-fragen.de/forum-2.html)
+--- Thema: Zahl ersetzen durch bestimmten Text in einer Zelle (/thread-1413.html)
Zahl ersetzen durch bestimmten Text in einer Zelle - Raymond1234 - 17.07.2019
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
Viel Spass beim grübeln
RE: Zahl ersetzen durch bestimmten Text in einer Zelle - Flotter Feger - 18.07.2019
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 SubRE: Zahl ersetzen durch bestimmten Text in einer Zelle - Raymond1234 - 18.07.2019
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
RE: Zahl ersetzen durch bestimmten Text in einer Zelle - Flotter Feger - 19.07.2019
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.