Sub
Spalten_durchsuchen()
Dim
z
As
Long
, lz1
As
Long
lz1 = Cells(Rows.Count, 3).
End
(xlUp).Row
For
z = 1
To
lz1
If
Cells(z, 3).Value =
"Mr"
Then
Cells(z, 3).Value = Cells(z, XX).Value
Cells(z, XX).Value = Cells(z, 3).Value
ElseIf
Cells(z, 3).Value =
"Mr"
Then
Cells(z, XX).Value = Cells(z, XX).Value
ElseIf
Cells(z, 3).Value =
"Mr"
Then
Cells(z, XX).Value = Cells(z, XX).Value
End
If
Next
z
End
Sub