Kann mir da bitte jemand behilflich sein?
Danke für eure Bemühungen. Gruß Peter
https://www.herber.de/bbs/user/91567.xlsm
Sub Ersetzen()
Dim i As Long, j As Long
Dim strSuchbegriff As String
For j = 1 To 3
strSuchbegriff = InputBox(j & ".ter Elektronischer User, der umgesetzt werden soll:")
If strSuchbegriff = "" Then MsgBox "Keine Eingabe!": Exit Sub
For i = 1 To Cells(Rows.Count, 3).End(xlUp).Row
With Cells(i, 3)
If .Value = strSuchbegriff Then
Select Case Cells(i, 2).Value
Case "Y01"
.Value = "MJ"
Case "Y03"
.Value = "DD"
Case "Y04"
.Value = "AF"
Case "Y07"
.Value = "DD"
Case "Y08"
.Value = "SH"
End Select
End If
End With
Next i
Next j
Gruß UweD