Hallo!
Hier mal eine andere Variante ohne find. Ist ungetestet - müsste aber funktionieren.
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
Bei deiner Variante mit find würde ich vermuten, dass der Fehler beim After in find liegt. Du hast ja, das Blatt Nutzwertanalyse aktiviert , suchst aber in der Materialdatenbank.Dies ist nicht aktiviert. Das heißt er sucht in einem Blatt startet aber nach der aktiven Zelle vom anderen Blatt. Das geht nicht. Nimm ansonsten mal den Wert after einfach raus und probiere es damit.
Schönes Wochenende.
|