Option Explicit
Dim a As String
Dim b As String
Dim i As Integer
Dim j As Integer
Dim c As Integer
 
 
 
 
Sub filmfehlliste()
 
 
a = Sheets("Tabelle1").Cells(1, 4)
b = Sheets("Tabelle1").Cells(1, 1)
c = InputBox("wert")
For i = 1 To c
 
a = Sheets("Tabelle1").Cells(i, 4)
b = Sheets("Tabelle1").Cells(i, 1)
If a = "x" Then
    MsgBox (b)
Else
 
End If
Next i
 
End Sub