zwei spalten durchsuchen, wenn wert vorhanden dann Summe bilden

[steve1da]

muss irgendein Formatierungsfehler drin sein...

Nicht ganz. Im Blatt "imp" und im Blatt "Summe" sind hinter den Bezeichnungen noch Leerzeichen - die gibt es im Blatt "KFS" nicht, also wird der Wert dort auch nicht gefunden.
Suchen/Ersetzen in den beiden Spalten. Suchen nach Leerzeichen, Ersetzen durch nichts.

[Gast 123]

Hallo

man kann in beiden Blättern mit dem Standard Suchen/Ersetzen Leerzeichen löschen, das verändert aber auch den Originaltext!
Dieses kleine Makro löscht nur die Space am Textanfang und Textende.  Der Text bleibt im Original erhalten, wird nur bereinigt!
Danach sollte die SummeWenn Formel einwandfrei klappen.  Probiert es bitte mal aus.  Viel Spass beim testen ...

mfg Gast 123

Code:

Sub Leerzeichen_löschen()
Dim AC As Range, lz1 As Long
Application.ScreenUpdating = False
With Worksheets("KFS")
    lz1 = .Cells(Rows.Count, 1).End(xlUp).Row
    For Each AC In .Range("A6:A" & lz1)
        AC.Value = Trim(AC)
    Next AC
End With

With Worksheets("imp")
    lz1 = .Cells(Rows.Count, 2).End(xlUp).Row
    For Each AC In .Range("B3:B" & lz1)
        AC.Value = Trim(AC)
    Next AC
End With
End Sub