Worksheet_Change bei Wertänderung
02.03.2004 14:26:38
Christian
ich habe den folgenden VBA-Code:
Sub Worksheet_Change(ByVal target As Excel.Range)
Dim i As Integer
If target.Column = 2 And target.Row < 4 And target.Row > 1 Then
Sheets("Diagramm1").Activate
ActiveChart.SeriesCollection(1).Select
For i = 1 To 3
ActiveChart.SeriesCollection(1).Points(i).Interior.ColorIndex = 23
If Sheets("Tabelle1").Cells(i + 1, 2) < 0 Then
ActiveChart.SeriesCollection(1).Points(i).Interior.ColorIndex = 22
End If
Next i
End If
Sheets("Tabelle1").Activate
Range("A1").Select
End Sub
Mein Problem ist, dass Excel die Änderungen in den Zellen nicht erkennt, da es sich um ein Verknüpfung zu einer anderen Arbeitsmappe handelt. Gibt es eine Möglichkeit, dass Excel auf die Änderung des Wertes in einer Zelle reagiert?