Makrostart bei Veränderung einer Zelle mit Formel
24.02.2024 16:43:42
Schneider, Franz
ein durch eine Formel geänderter Eintrag in einer Zelle soll den Start eines Makros auslösen. Durch Googeln bin ich zwar auf Codes gestoßen, leider funktionieren sie bei mir nicht wie gewünscht. Was mache ich falsch oder was fehlt? Der Code wurde zur zugehörigen Tabelle eingegeben. Bei händischem Ändern der Zelle oder einer Zelle im eingegebenen Bereich startet das Makro.
Hier zwei Beispiele:
Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$A$1" Then
MsgBox "Sie haben gerade Zelle A1 verändert!"
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1:A3")) Is Nothing Then
MsgBox "Im Bereich A1:A3 wurde eine Zelle geändert!"
End If
End Sub
Ein anderer Versuch mit einem bestimmten Eintrag (hier: Start) in eine Zelle schlug ebenfalls fehl. Auch hier startete der Code nach händischem Eintrag.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
If Target.Value = "Start" Then
Application.Run "'" & ActiveWorkbook.Name & "'!Makroname"
End If
End If
End Sub
In einem anderen Forenbeitrag wurde darauf hingewiesen, dass in den Beispielen auch eine Berechnung (Application.Calculate) angestoßen werden muss. In dem genannten Beitrag wurde der Code bedauerlicherweise nicht in Gänze veröffentlicht. Jedenfalls muss es wohl funktioniert haben, denn der Fragesteller hat sich nach einem privaten Mailwechsel für den funktionierenden Code bedankt.
Das ist leider alles zu hoch für mich. Ich hoffe, jemand von euch hat eine Lösung für mein Problem. Danke schon einmal.
Gruß
Franz
Anzeige