Makro innerhalb von Grenzen ausführen
02.12.2015 15:49:41
Grenzen
ich habe nachfolgend Code.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim bSuccess As Boolean
On Error Resume Next
bSuccess = Range("B13").GoalSeek(0, Range("C13"))
On Error GoTo 0
If Not bSuccess Then
MsgBox "Goal Seek Failed for Cell ""X""!"
End If
End Sub
Wie kann ich den Code so anpassen, dass der Code erst ab der Anfangsmarke Anfang bis zur Endmarke Ende ausgeführt wird.
Die Anfangsmarke/Endmarke wird über den Namensmanager laufen.
Für alle Zeilen dazwischen sollte immer die Berechnung erfolgen.
Besten Dank.
Gruß
Anzeige