Mehrere Zellen auf Änderung überprüfen

[diving_excel]

Hallo!

ich würde gerne zwei Zellen auf Änderung überprüfen. Momentan verwende ich folgenden Code für die Überwachung einer einzigen Zelle:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address(0, 0) = "G7" Then
  Worksheets("Tabelle1").Range("I7").Value = Range("C7") + Range("G7")
End If

End sub

Jetzt würde ich gerne das zwei Zellen auf Änderungen überwacht werden, sobald in einer der beiden eine Änderung auftritt soll die IF Funktion ausgelöst werden.
Hätte das jetzt so gelöst, scheinbar geht das nicht:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address(0, 0) = "G7" Or Target.Address = "C7" Then
 Worksheets("Tabelle1").Range("I7").Value = Range("C7") + Range("G7")
End If

End sub

 
Wisst ihr wo der Fehler liegt?
Danke und Gruß

[cysu11]

Hi,


so:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Address(0, 0)
   Case "G7", "C7"
       Worksheets("Tabelle1").Range("I7").Value = Range("C7") + Range("G7")
   Case Else
End Select
End Sub

LG
Alexandra

[Flotter Feger]

Hallo,

da steht es richtig ...

Code:

.Address(0, 0) = "G7"

hier nicht ...

Code:

.Address = "C7"

[diving_excel]

Vielen Dank!