Frage zu - Not Application.Intersect-Methode

Question

Hallo Forum,
ich habe eine Tabelle mit den Spalten A und B.

Mit der Worksheet-Methode

If Not Application.Intersect(Target, Range("A1:A10")) Is Nothing Then.

bzw.

If Not Application.Intersect(Target, Range("B1:B10")) Is Nothing Then.

werden, abhängig von der veränderten Spalte, Anweisungen ausgeführt (das geschieht aber nur, wenn in einer Zelle tatsächlich etwas geändert wurde).

Wie kann ich nun erreichen, dass bei bestimmten Änderungen in der Spalte A automatisch auch die Anweisungen ausgeführt werden, die normalerweise nur durchlaufen werden, wenn in Spalte B etwas geändert wurde. Ich möchte also sozusagen VBA vorgaukeln das in Spalte B etwas verändert wurde, ohne das das tatsächlich geschehen ist!

Danke für die Hilfe

Answer 1

Hi,

Die Frage ist imo ein wenig "schwammig". Daher auch nur ein grober Ansatz (einfach mal ein x in einer Zelle von A1:A10 eintragen).

Private Sub Worksheet_Change(ByVal Target As Range)
Dim booAuchB As Boolean
If Not Application.Intersect(Target, Range("A1:A10")) Is Nothing Then
If Target.Value = "x" Then booAuchB = True
MsgBox "A"
End If
If Not Application.Intersect(Target, Range("B1:B10")) Is Nothing Or booAuchB Then
MsgBox "B"
End If
End Sub

Answer 2

Danke malSchauen,

Problem gelöst. Mir war nicht bekannt, dass man bei der Application.Intersect-Methode auch eine Boolsche Variable abfragen kann.