Wie geht das?
In A45 soll am Ende also eine Liste von Namen plus Vornamen erscheinen, die einen Wert von über 0 in C und "ok" in D haben.
Option Explicit
Sub til()
Dim strAllNames As String
Dim C As Range
For Each C In Range("A2:A44") 'Hier stehen die Nachnamen
If C "" And C.Offset(0, 2) > 0 And C.Offset(0, 3) = "ok" Then
strAllNames = strAllNames & C & ", " & C.Offset(0, 1) & vbLf
End If
Next C
Range("A45") = Left(strAllNames, Len(strAllNames) - 1)
End Sub
VG, Boris