eigentlich antworte ich Crosspostern ja nicht

aber der Vollständigkeit halber....

Sub was_fehlt()
    Dim i As Long
    Dim c As Range
    Dim strBuchung As String
    With Sheets("A (Beleg, Abbuchung)")
        For i = 5 To .Cells(.Rows.Count, 3).End(xlUp).Row
            Set c = Sheets("B geplant - Tabelle").Columns(5).Find(.Cells(i, 3).Value, LookIn:=xlValues, lookat:=xlWhole)
            If Not c Is Nothing Then
                .Cells(i, 6).Value = "ja"
            Else
                .Cells(i, 6).Value = "fehlt"
            End If
        Next
    End With
End Sub

und dann mach ich hier den HaJo und bin raus