Hallo David
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
If Not IsEmpty(table.Cells(y, 10)) Then
Cells(y, 23) = 1
End If
If table.Cells(y, 12).Value >= Date Then
Cells(y, 24) = 1
End If
If table.Cells(y, 12).Value <= Date Then
Cells(y, 25) = 1
End If
Else
Cells(y, 22) = ""
Cells(y, 23) = ""
Cells(y, 24) = ""
Cells(y, 25) = ""
End If
Next
End Sub
Gruß Detlev
|