Sub ers()
Dim t
Dim z As Range
For Each z In ActiveSheet.UsedRange
t = Split(z.Value, ", ")
If t(2) = "Dr." Then
z.Value = "Dr. " & t(0) & ", " & t(1)
End If
Next z
End Sub
Sub ers()
Dim t
Dim z As Range
For Each z In ActiveSheet.UsedRange
t = Split(z.Value, ", ")
If UBound(t) > 1 Then
If t(2) = "Dr." Then
z.Value = "Dr. " & t(0) & ", " & t(1)
End If
End If
Next z
End Sub
Sub ers()
Dim t
Dim z As Range
For Each z In ActiveSheet.UsedRange
On Error GoTo nx
t = Split(z, ", ")
If UBound(t) = 2 Then
If t(2) = "Dr." Then
z.Value = "Dr. " & t(0) & ", " & t(1)
End If
End If
nx:
Next z
End Sub
Sub ErsetzeDr()
Dim rngC As Range, arrV
For Each rngC In ActiveSheet.UsedRange
arrV = Split(rngC.Value, ",")
If UBound(arrV) = 1 Then
If Trim(arrV(1)) = "Dr." Then rngC.Value = "Dr. " & arrV(0)
End If
Next rngC
End Sub