Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

Suchen nach einen Wert und Ersetzen

Forumthread: Suchen nach einen Wert und Ersetzen

Suchen nach einen Wert und Ersetzen
20.02.2018 14:20:26
Alex
Hallo zusammen,
benötige wieder mal eure Hilfe.
Ich möchte in Spalte I nach einem Wert(_XX) suchen und durch den Wert(_01) ersetzen.
Wenn in der nächste folgende Zeile auch der Wert(_XX) steht soll dann durch (_02) ersetzt _ werden. Falls zwischen den Zeilen kein (_XX) vorhanden ist, soll dann bei nächste gefundene Zeile wieder bei (_01) angefangen werden und so weiter...

062-04949_062-04631_MO_PMII+_H
183-01971_MO_PMII+_MmA_XX        

Ich danke euch schon mal vielmals...
VG
Alex
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Suchen nach einen Wert und Ersetzen
20.02.2018 14:30:42
ChrisL
Hi
Sub t()
Dim i As Long, j As Integer
Application.ScreenUpdating = False
For i = 1 To Cells(Rows.Count, 9).End(xlUp).Row
If Right(Cells(i, 9), 3) = "_XX" Then
j = j + 1
Cells(i, 9) = Left(Cells(i, 9), Len(Cells(i, 9)) - 2) & Format(j, "00")
Else
j = 0
End If
Next i
End Sub
cu
Chris
Anzeige
AW: Suchen nach einen Wert und Ersetzen
20.02.2018 16:27:29
Alex
Hallo Chris,
es funktioniert Perfekt, sowie ich es mir gewünscht habe.
Vielen herzlichen Dank....
VG
Alex

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige