Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
820to824
820to824
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Teil einer Zelle nach Liste ersetzen

Teil einer Zelle nach Liste ersetzen
21.11.2006 15:13:48
Anton
Hallo Leute,
ich habe eine Datei, die in eine Datenbank importiert werden soll.
Die Werte zweier Spalten sind zu lang.
Mein Lösungsansatz: Einzelne Worte anhand einer Vorgabe-Lise abkürzen.
Meine Problem dabei ist:
wie muß das Makro aussehen, das es jedes Wort in der markierten Zelle mit einer Liste vergleicht und ggf ersetzt?
Wer kann mir bitte helfen?
Mein dank geht schon jetzt in Eure Richtung.
Servus,
Anton

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Teil einer Zelle nach Liste ersetzen
21.11.2006 16:28:00
Peter
Hallo Anton,
versuch es einmal so:
Public

Sub ersetzen()
Dim WkSh_Q  As Worksheet
Dim WkSh_A  As Worksheet
Dim lzeile  As Long
Set WkSh_Q = Worksheets("Tabelle3")
Set WkSh_A = Worksheets("Tabelle4")
With Selection
For lzeile = 1 To WkSh_A.Range("A65536").End(xlUp).Row
If InStr(ActiveCell.Value, WkSh_A.Range("A" & lzeile).Value) > 0 Then
ActiveCell.Value = Replace(ActiveCell.Value, _
WkSh_A.Range("A" & lzeile).Value, _
WkSh_A.Range("B" & lzeile).Value)
Exit For
End If
Next lzeile
End With
End Sub

Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.
Anzeige
AW: Teil einer Zelle nach Liste ersetzen
21.11.2006 16:32:09
Peter
Hallo Anton,
ich habe die Erläuterungen vergessen:
Dein Text steht in Tabelle3 und wird markiert.
Die zu ersetzenden Werte in Spalte A Tabelle4, das Kürzel dafür in Spalte B Tabelle4.
Du musst lediglich die Tabellennamen anpassen.
Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.

340 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige