worksheet_change
04.06.2006 12:53:08
chris
habe da ein problem mit der worksheet-change fuktion
habe folgenden code
Private Sub Worksheet_Change(ByVal Target As Range)
If nd1 <> Worksheets("Eingabe").Range("d11").Value Then
Range(Cells(14, 4), Cells(22, 5)).Interior.Color = RGB(192, 192, 192)
Range(Cells(14, 4), Cells(22, 5)).ClearContents
Range(Cells(13, 4), Cells(13, 4)).ClearContents
Range(Cells(13, 4), Cells(13, 5)).Copy
Range(Cells(14, 4), Cells(13 + Range("d11").Value, 5)).Select
ActiveSheet.Paste
nd1 = Worksheets("Eingabe").Range("d11").Value
End If
End Sub
soll bezwecken dass jedesmal wenn sich dre wert in d11 ändert ein paar formatierunen erfolgen sollen
das problem is nun dass er glaube ich eine endlosschleife durchläuft da er jedes mal wieder bei worksheet_change beginnt wenn er zum beispiel die zellimnhalte wie angegeben löscht
kann mir da einer weitrehelfen
also die erste möglichkeit wäre das makro erst aufrufen zu lassen wenn sich genau die eine zelle ändert und nicht wenn sich irgendwas im blatt ändert (was abre glaube ich nicht funktioniert)
oder zweitens den code so zu schreiben dass die endlosschleife oder was er sonst für ein problem hat ausbleibt
wäre dankbar wür antworten