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
Else
Cells(y, 22) = ""
End If
Next y
For y = 3 To lngZeilen
If Not IsEmpty(table.Cells(y, 10)) And table.Cells(y, 5).Value Like "Frankreich*" Or table.Cells(y, 5) Like "frankreich*" Then
Cells(y, 23) = 1
Else
Cells(y, 23) = ""
End If
Next y
For y = 3 To lngZeilen
If table.Cells(y, 12).Value >= Date And table.Cells(y, 5) Like "Frankreich*" Or table.Cells(y, 5) Like "frankreich*" Then
Cells(y, 24) = 1
Else
Cells(y, 24) = ""
End If
Next y
For y = 3 To lngZeilen
If table.Cells(y, 12).Value <= Date And table.Cells(y, 5) Like "Frankreich*" Or table.Cells(y, 5) Like "frankreich*" Then
Cells(y, 25) = 1
Else
Cells(y, 25) = ""
End If
Next y
End Sub