code hängt excel auf
23.08.2006 14:47:58
rouven
ohne der zuweisung in den sternchen geht es, mit bleibt excel hängen...?
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer
For i = 39 To 97
If (Cells(i, 2) <> "" And Cells(i, 2) >= Cells(37, 1) And Cells(i, 5) >= Cells(38, 1)) Then Exit For
Next i
[b4] = Cells(i, 2)
*[c4] = Cells(i, 3)*
End Sub
gruss
rouven