And richtig
19.03.2009 18:35:24
Rolf
Wer kann es richtig machen-es will nicht!
Bei wenn sollte etwas gemacht werden
Sub Test()
If Range("E2") = True Then
Range("B12") = "1" And Range("C12").ClearContents And Range("C16") = Range("B15")
ElseIf Range("E2") = False Then
Range("C12") = "2" And Range("B12").ClearContents And Range("C16") = Range("C15")
End If
End Sub
Grüße
Rolf