Hallo liebe Community,

Ich möchte gerne die Spalte A des Worksheets Materialdatenbank nach einem Suchbegriff durchsuchen. Wenn der Begriff gefunden wurde (er wird immer gefunden!) soll mir die Zeilennummer des Fundorts ermittelt werden, da ich mit dieser Zeilenummer weiter arbeiten möchte.

Folgenden Code habe ich dazu:

Private Sub CommandButton_NutzwertanalyseStart_Click()
Dim Suchbegriff As String
Dim ZeileTreffer As Long

With Worksheets("Nutzwertanalyse")
For Spalte = 2 To 20
.Activate
Suchbegriff = .Cells(3, Spalte).Value

  ZeileTreffer = Worksheets("Materialdatenbank").Columns("A:A").Find(What:=Suchbegriff, After:=ActiveCell, LookIn:=xlWhole, _
  LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
   MatchCase:=False, SearchFormat:=False).Row
   
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
End Sub

Es kommt leider immer der Fehler "Typen unverträglich" und es wird folgende Zeile markiert:

  ZeileTreffer = Worksheets("Materialdatenbank").Columns("A:A").Find(What:=Suchbegriff, After:=ActiveCell, LookIn:=xlWhole, _
  LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
   MatchCase:=False, SearchFormat:=False).Row

Ich kann den Fehler einfach nicht finden... Hat jemand eine Idee?

Vielen Dank für eure Mühe!