Clever-Excel-Forum

Clever-Excel-Forum > Office-Anwendungen > Excel > Mehrere Zellen auf Änderung überprüfen
Normale Version: Mehrere Zellen auf Änderung überprüfen
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.

diving_excel

05.03.2019, 13:54
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

05.03.2019, 14:07
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

05.03.2019, 14:08
Hallo,

da steht es richtig ...
Code:
.Address(0, 0) = "G7"

hier nicht ...
Code:
.Address = "C7"

diving_excel

05.03.2019, 14:14
Vielen Dank!
Clever-Excel-Forum > Office-Anwendungen > Excel > Mehrere Zellen auf Änderung überprüfen