Sub test()
Dim table As Worksheet, x As Long, y As Long, lngZeilen As Long
Set table = Worksheets("Tabelle1")
lngZeilen = table.Cells(table.Rows.Count, 1).End(xlUp).Row
For y = 3 To lngZeilen
If table.Cells(y, 5) Like "Frankreich*" Or table.Cells(y, 5) Like "frankreich*" Then
Cells(y, 22) = 1
ElseIf table.Cells(y, 5) Like "Italien*" Or table.Cells(y, 5) Like "italien*" Then
Cells(y, 26) = 1
ElseIf table.Cells(y, 5) Like "Finnland*" Or table.Cells(y, 5) Like "Luxemburg*" Or table.Cells(y, 5) Like "Niederlande*" Then
Cells(y, 30) = 1
End If
Else
Cells(y, 22) = ""
Cells(y, 26) = ""
Cells(y, 30) = ""
End If
Next y