Dim
letzte
As
Long
Dim
cel
As
Range, rng
As
Range
letzte = Sheets(1).Cells(Rows.Count, 7).
End
(xlUp).Row
Set
rng = Sheets(1).Range(
"G1:G"
& letzte)
For
Each
cel
In
rng
If
cel.Value
Like
"*AU*"
Then
cel.Offset(0, 2) =
"Automatisch"
Else
If
cel.Value
Like
"*MA*"
Then
cel.Offset(0, 2) =
"Manuell"
End
If
End
If
Next
cel