Zahlen ersetzen in Wörter in einer Excel Tabelle

Computer: Software & Programmierung Office Software
1

Hallo, ich habe eine Tabelle mit Zahlen. Diese Zahlen sollen jeweils durch ein Wort ersetzt werden. Nun füge ich aber ständig neue Zahlen in die Tabelle ein und muss ständig jede Zahl wieder ersetzen. Kann man das generell eingeben? Das heißt das in der Tabelle alle 1 zum Beispiel durch Frau ersetzt wird.Auch die welche ich nachträglich eintrage?

Bei Word gibt es doch das Wörterbuch, wo man Wörter generell automatisch korrigieren lassen kann. So etwas ähnliches suche ich für Excel

2

Bei Word gibt es doch das Wörterbuch, wo man Wörter generell
automatisch korrigieren lassen kann. So etwas ähnliches suche
ich für Excel

Hi
meinst du EXTRAS AUTOKORREKTUR?
dann wird aber auch der „1“ von der Straßennummer umgewandelt…
außerdem ist die Autokorrektur für Word und Excel

Gruss

M@x

3

Ja sowas in der Art suche ich, bei der Autokorrektur wird es ja immer in jedem Dokument geändert oder?
Ich brauche die gleiche funktion aber nur für dieses bestimmte dokument.
und ich hab kein plan wie ich das einstelle.

Merci für die Hilfe

4

Hallo,

Du könntest in der Autokorrektur folgendes festlegen
#1 ersetzen durch Frau.
So musst Du nur noch #1 eintragen und schwupp´s is es ne Frau!:smile:
Nachträglich geht die Ersetzung nur per Hand oder mittels SUCHEN/ERSETZEN.

VG René

5

Hallo, ich habe eine Tabelle mit Zahlen. Diese Zahlen sollen
jeweils durch ein Wort ersetzt werden. Nun füge ich aber
ständig neue Zahlen in die Tabelle ein und muss ständig jede
Zahl wieder ersetzen. Kann man das generell eingeben? Das
heißt das in der Tabelle alle 1 zum Beispiel durch Frau
ersetzt wird.Auch die welche ich nachträglich eintrage?

Hallo Anny,

unten auf den Blattnamen mit Rechts klicken, Code anzeigen,
im VB-Editor rechst im großen Feld nachstehenden Code reinkopieren.
Diese beiden Codezeilen
arrAlt = Array(1, 2, 3)
arrNeu = Array(„Frau“, „Mann“, „Firma“)
anpassen.

Gruß
Reinhard

Option Explicit

Private Sub Worksheet\_Change(ByVal Target As Range)
Dim Zelle As Range, arrAlt, arrNeu, A As Integer
arrAlt = Array(1, 2, 3)
arrNeu = Array("Frau", "Mann", "Firma")
Application.EnableEvents = False
Application.ScreenUpdating = False
For Each Zelle In Target
 For A = LBound(arrAlt) To UBound(arrAlt)
 Zelle.Value = Replace(Zelle.Value, arrAlt(A), arrNeu(A))
 Next A
Next Zelle
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub