Change-Ereignis wenn Summe geändert
01.04.2023 22:06:55
Timm R.
Guten Abend zusammen,
ich möchte per Change-Ereignis bei Änderung einer Summe (Tabelle2) in einer anderen Tabelle (Tabelle1) eine Zelle farbig markieren.
Hier findet ihr die Beispieldatei.
https://www.herber.de/bbs/user/158549.xlsm
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Datum As Date
Dim Suche As Variant
Set Target = Intersect(Target, Range("D2:D8"))
Datum = Target.Offset(0, -3).Value
Suche = Application.Match(Datum, Tabelle1.Range("A2:A8"), 0)
Tabelle1.Cells(Suche, 2).Interior.Color = vbGreen
End Sub
Nachfolgend nun noch eine genauere Beschreibung meines Vorhabens. In Tabelle2 Spalte D befinden sich Summenformel. Sobald sich eine dieser Summen ändert soll in Tabelle1 bei dem entsprechenden Datum die Zelle farbig markiert werden.
Folgende Fehlermeldungen erhalte ich bei der Ausführung:
1.) die Suche findet das Datum in Tabelle1 nicht-->Fehlercode2042
2.) Laufzeitfehler 91 : Objektvariable oder With-Blockvariable nicht festgelegt
Verstehe nicht wo die Fehler liegen.
Gruß
Timm