Sub SpalteDurchlaufen_E_P()
Dim Zelle As Range
Dim Trennzeichen As String
Dim Tmp1 As String
Dim Tmp2 As String
Trennzeichen = ", "
For Each Zelle In Range("K10:Y10")
If Zelle.Value = "E" Then
Tmp1 = Tmp1 & Zelle.Offset(-1, 0).Value & Trennzeichen
End If
If Zelle.Value = "P" Then
Tmp2 = Tmp2 & Zelle.Offset(-1, 0).Value & Trennzeichen
End If
Next
If Len(Tmp1) > 0 Then
Range("B12") = Left$(Tmp1, Len(Tmp1) - Len(Trennzeichen))
Else
Range("B12") = vbNullString
End If
If Len(Tmp2) > 0 Then
Range("B10") = Left$(Tmp2, Len(Tmp2) - Len(Trennzeichen))
Else
Range("B10") = vbNullString
End If
End Sub