Aller Tage Abend ist noch nicht ganz, wenn du noch nicht im "Feierabendmodus" sein solltest, hätte ich noch eine letzte (wirklich und defintiv, die letzte Frage / Bitte an dich)

Wenn ich den vorgegebenen Code um eine weitere Bedingung ergänzen möchte hau ich diese ja direkt unter die Zeile 10, denn nur dann soll auch das Ergebnis errechnet werden. 

Ich möchte zusätzlich noch sicherstellen, dass ein der Wert in der Tabelle, in der gefundenen Zeile des Wertes in der "anderen Tabelle" einem bestimmten Wort entspricht. Dieses Wort steht in Spalte K der "anderen" Tabelle. 

Also ich hoffe du verstehst meine Fragestellung. 

Die Funktion ermittelt mir ja die gefundenen Zeilen in der Tabelle "andere Tabelle". Diese andere Tabelle besteht aus weiteren Spalten. In der Spalte K der "anderen Tabelle" stehen Wörter. Hier möchte ich prüfen ob das Wort in der Zeile zu dem gefundenen Wert bspw. "Auto" entspricht. Wenn ja sollen die Berechnung in Zeile 11 durchgeführt werden. 

Sub test()
    Dim c As Range
    Dim firstAddress As String
    Dim dblErgebnis As Double
    With Worksheets("andere Tabelle")
        Set c = .Columns(1).Find(Range("U2").Value, LookIn:=xlValues, lookat:=xlWhole)
        If Not c Is Nothing Then
            firstAddress = c.Address
            Do
                If IsNumeric(.Cells(c.Row, "N")) Then
                    dblErgebnis = dblErgebnis + .Cells(c.Row, "N").Value
                End If
                Set c = .Columns(1).FindNext(c)
            Loop While Not c Is Nothing And c.Address <> firstAddress
        End If
    End With
    Range("A4").Value = dblErgebnis
End Sub

Ich würde mich freuen wenn du mir ein letztes Mal helfen könntest, denn damit hätte ich tatsächlich alle Fälle abgedeckt die ich für mein Vorhaben bräuchte.