Hi Leute,
laut VBA habe "End IF"'s zu viel, kann jemand helfen?
Do While i <= k
If Cells(i, 2) = hash Then
i = k + 10
If Cells(i, 3) = "" Then Cells(i, 3) = pDatum Else
If Cells(i, 3) > pDatum Then Cells(i, 3) = pDatum Else
If Cells(i, 4) = "" Then Cells(i, 4) = pDatum Else
If Cells(i, 4) < pDatum Then
Cells(i, 4) = pDatum
End If
End If
End If
End If
Else
i = i + 1
End If
Loop
laut VBA habe "End IF"'s zu viel, kann jemand helfen?
Do While i <= k
If Cells(i, 2) = hash Then
i = k + 10
If Cells(i, 3) = "" Then Cells(i, 3) = pDatum Else
If Cells(i, 3) > pDatum Then Cells(i, 3) = pDatum Else
If Cells(i, 4) = "" Then Cells(i, 4) = pDatum Else
If Cells(i, 4) < pDatum Then
Cells(i, 4) = pDatum
End If
End If
End If
End If
Else
i = i + 1
End If
Loop