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
With Sheets(1)
For i = 1 To .Cells(Rows.Count, 3).End(xlUp).Row
If .Cells(i, 3).Value = strSuchbegriff Then
Select Case Left(.Cells(i, 2).Value, 3)
Case "351"
.Cells(i, 3).Value = "JM"
End Select
End If
Next i
End With
Next j
End Sub
Sub Ersetzen2()
Dim i As Long
Dim such As String
Start:
such = InputBox("Elektronischer User, der umgesetzt werden soll:")
If such = "" Then
MsgBox "Keine Eingabe !" & vbCr & vbCr & "Makro-Abbruch !", 0, _
"Hinweis für " & Application.UserName & ":"
Exit Sub
End If
With Sheets(1)
For i = 1 To .Cells(Rows.Count, 3).End(xlUp).Row
If .Cells(i, 3).Value = such And .Cells(i, 2).Value = "Y01" Then
.Cells(i, 3).Value = "MJ"
ElseIf .Cells(i, 3).Value = such And .Cells(i, 2).Value = "Y03" Then
.Cells(i, 3).Value = "DD"
ElseIf .Cells(i, 3).Value = such And .Cells(i, 2).Value = "Y04" Then
.Cells(i, 3).Value = "AF"
ElseIf .Cells(i, 3).Value = such And .Cells(i, 2).Value = "Y07" Then
.Cells(i, 3).Value = "DD"
ElseIf .Cells(i, 3).Value = such And .Cells(i, 2).Value = "Y08" Then
.Cells(i, 3).Value = "SH"
End If
Next i
End With
If MsgBox("Möchten Sie weitere Werte eingeben?", vbYesNo, "Mit Eingabe fortfahren?") = vbNo _
Then Exit Sub
If MsgBox("Möchten Sie weitere Werte eingeben?", vbYesNo, "Mit Eingabe fortfahren?") = vbYes _
Then GoTo Start
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen