Thema Datum  Von Nutzer Rating
Antwort
Rot VBA - Makro automatisch ausführen, wenn Zellenwert sich ändert
06.07.2019 15:13:47 Dominik
NotSolved
06.07.2019 15:27:22 Gast7777
NotSolved
06.07.2019 15:36:55 Gast7777
NotSolved
06.07.2019 15:42:40 Gast17035
NotSolved
06.07.2019 15:45:23 Gast7777
NotSolved
06.07.2019 15:54:32 Gast29721
NotSolved
06.07.2019 16:13:14 Gast7777
Solved
06.07.2019 16:41:58 Gast13176
NotSolved

Ansicht des Beitrags:
Von:
Dominik
Datum:
06.07.2019 15:13:47
Views:
49
Rating: Antwort:
  Ja
Thema:
VBA - Makro automatisch ausführen, wenn Zellenwert sich ändert

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


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot VBA - Makro automatisch ausführen, wenn Zellenwert sich ändert
06.07.2019 15:13:47 Dominik
NotSolved
06.07.2019 15:27:22 Gast7777
NotSolved
06.07.2019 15:36:55 Gast7777
NotSolved
06.07.2019 15:42:40 Gast17035
NotSolved
06.07.2019 15:45:23 Gast7777
NotSolved
06.07.2019 15:54:32 Gast29721
NotSolved
06.07.2019 16:13:14 Gast7777
Solved
06.07.2019 16:41:58 Gast13176
NotSolved