AW: Wert umsetzen, wenn Teilstring gefunden
19.07.2014 01:09:52
Ewald
Hallo Peter,
teste mal so
1.Makro
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
2.Makro (gleicher Name nicht gerade optimal, auch wenn anderes Modul)
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
Gruß Ewald