Private
Sub
CommandButton_NutzwertanalyseStart_Click()
Dim
Suchbegriff
As
String
Dim
zeile
As
Long
Dim
ZeileTreffer
As
Long
Worksheets(
"Nutzwertanalyse"
).Activate
With
Worksheets(
"Nutzwertanalyse"
)
For
Spalte = 2
To
20
Suchbegriff = .Cells(3, Spalte).Value
zeile = 1
While
.Cells(zeile, 1) <> Suchbegriff
zeile = zeile + 1
Wend
ZeileTreffer = zeile
If
Worksheets(
"Materialdatenbank"
).Cells(ZeileTreffer, 3).Value < Prozesstemp
Then
.Cells(4, Spalte).Value = 0
ElseIf
Worksheets(
"Materialdatenbank"
).Cells(ZeileTreffer, 3).Value > Prozesstemp
And
Worksheets(
"Materialdatenbank"
).Cells(ZeileTreffer, 3).Value < Prozesstemp + 10
Then
.Cells(4, Spalte).Value = 1
ElseIf
Worksheets(
"Materialdatenbank"
).Cells(ZeileTreffer, 3).Value > Prozesstemp + 10
Then
.Cells(4, Spalte).Value = 3
End
If
Next
End
With