Teil einer Zelle ersetzen

Hallo!
Ich habe Zellen, in denen mehrere Werte eingetragen sind. Ein Zellinhalt sieht bspw. so aus:
100
200
300
Die Werte sind also alle in einer Zelle, jedoch per Umbruch voneinander getrennt.
Auf einem anderen Tabellenblatt habe ich genau zu diesen Zahlen Texte nach folgendem Aufbau:
100 | aaa
200 | bbb
300 | ccc
Spalte A hat die Zahlen, Spalte B den Text. Alles per Zeile voneinander getrennt.
Diese sollen nun per Makro die Zahlen ersetzen, sodass nach Abschluss des Makros folgendes in den Zellen steht:
aaa
bbb
ccc
Ich habe schon an der .Replace-Funktion herumgebastelt, welche auch ganz gut funktioniert. Ein Problem gibt es aber leider. Im Moment benutze ich folgendes Makro:


For i = 1 To UBound(abvtab)
datasheet.Cells.Replace What:=abvtab(i, 1), Replacement:=abvtab(i, 2), LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Next i

Dieses Makro findet und ersetzt. Jedoch nur den ersten übereinstimmenden Wert, den er findet. Bspw. findet er "100", aber bei "100f" gibt er trotzdem "100" aus.
Ich dachte, ich könnte das umgehen, indem ich LookAt auf xlWhole verändere. Problem hier: Das funktioniert nicht, sobald mehrere Sachen gesucht werden sollen. Einzeln "100f" würde er so zuverlässig finden. Sobald aber 100f und 200 in der Zelle stehen, gibt er gar nichts mehr aus, weil diese ja so nicht existieren.
Fällt euch hier ein Workaround ein?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Ersetzen() Dim Z As Range Dim E, i For Each Z In datasheet.Cells.SpecialCells(xlCellTypeConstants) For Each E In Split(Z, vbCr) For i = 1 To UBound(abvtab) Z.Value = Replace(Z.Value, abvtab(i, 1), abvtab(i, 2)) Next Next Next End Sub

Sub Ersetzen() Dim Z As Range Dim E, i Dim Eintrag As String For Each Z In datasheet.Cells.SpecialCells(xlCellTypeConstants) Eintrag = Z.Value For Each E In Split(Z, vbCr) For i = 1 To UBound(abvtab) Eintrag = Replace(Eintrag, abvtab(i, 1), abvtab(i, 2)) Next Next Z = Eintrag Next End Sub

Sub Ersetzen() Dim Z As Range Dim E, i Dim Eintrag As String With Sheets("BA Tabelle") For Each Z In Range(.Range("A2"), .Range("A99999").End(xlUp)) Eintrag = "" For Each E In Split(Z.Text, vbLf) 'vbCr war falsch Eintrag = Eintrag & vbCr & HSaetze_VLookUp(Trim(E)) Next Z.Offset(0, 1) = Mid(Eintrag, 2) Next End With End Sub Function HSaetze_VLookUp(Wert As Variant) As String On Error Resume Next Wert = Application.VLookup(CStr(Wert), Worksheets("H-Sätze").Range("A:B"), 2, 0) If Wert = "" Then Wert = Application.VLookup(CLng(Wert), Worksheets("H-Sätze").Range("A:B"), 2, 0) End Function

Function HSaetze_VLookUp(Wert As Variant) As String On Error Resume Next HSaetze_VLookUp = Application.VLookup(CStr(Wert), Worksheets("H-Sätze").Range("A:B"), 2, 0) If HSaetze_VLookUp = "" Then HSaetze_VLookUp = Application.VLookup(CLng(Wert), Worksheets("H-Sätze").Range("A:B"), 2, 0) End Function

Beliebteste Forumthreads (12 Monate)

21
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

315 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Teil einer Zelle ersetzen

21 Beiträge zum Forumthread Beiträge zu diesem Forumthread

315 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

21
Beiträge zum Forumthread

Beiträge zu diesem Forumthread