Sub
Test()
Dim
Zeile
As
Long
Dim
SpalteSuche
As
Long
Dim
SpalteProzess
As
Long
Zeile = 0
SpalteSuche = 11
For
Zeile = 2
To
400
Select
Case
True
Case
ActiveSheet.Cells(Zeile, SpalteSuche).Contains(
"Auto"
)
Cells(Zeile, SpalteProzess) =
"Auto"
Case
ActiveSheet.Cells(Zeile, SpalteSuche).Contains(
"Baum"
)
Cells(Zeile, SpalteProzess) =
"Pflanze"
Case
ActiveSheet.Cells(Zeile, SpalteSuche).Contains(
"Schrank"
)
Cells(Zeile, SpalteProzess) =
"Möbel"
Case
Else
Cells(Zeile, SpalteProzess) =
"FEHLER"
End
Select
Next
Zeile
End
Sub