|
Hallo zusammen!
Ich habe leider keine passende Lösung gefunden, obwohl es das Problem sehr oft gab.
Ich versuche einen Makro automatisch auszuführen, nachdem der Wert meiner Zelle, der durch eine Formel berechnet wird, sich ändert. Der Makro an sich funktioniert perfekt (habe ihn manuell schon getestet).
Ich bin mir mittlerweile bewusst, dass ich Worksheet_Calculate benutzen muss und nicht Worksheet_Change, da ich zu viele Zelle habe, die auf meine Zelle ("Immoblienbewertung!D103") Einfluss nehmen.
Worksheet_Calculate durchsucht ja ein ganzes Tabellenblatt nach Neuberechnungen (wenn ich es richtig verstanden habe). Wie kann ich das Tabellenblatt z.B. "Immobilienbewertung" durchsuchen lassen?
Hier eine Lösung, die ich schon versucht habe, aber leider nicht funktioniert hat. Eine MsgBox wurde auch nicht angezeigt, als ich es mit MsgBox "XY" statt Call AutomatischeSortierung versucht habe.
Private Sub Worksheet_Calculate()
Dim target As Range
Set target = Range("Immobilienbewertung!D103")
If Not Intersect(target, Range("Immobilienbewertung!D103")) Is Nothing Then
Call AutomatischeSortierung
End If
End Sub
Ich hoffe Ihr könnt mir helfen!
Viele Grüße
Dominik
|