Beim nochmaligen drüberfliegen fiel mir gerade auf das du vielleicht gar nicht weißt wie du es ausführen sollst ...
Wenn du dich im VBA-Editor befindest, hast du ein ein kleines Fenster, dem sogenannten Projekt-Explorer.
Rechtsklicke dort auf deine Mappe (oder irgendwo innerhalb deren Baumverzeichnis) und geh in dem Popup-menü auf Einfügen -> Modul.
Doppelklick dann im Projekt-Explorer auf das Modul um es zu öffnen und kopier dort den Code hinein:
Option Explicit
Sub Example()
With Worksheets("Sheet1")
.Range("B63").GoalSeek Goal:=.Range("B62"), ChangingCell:=.Range("B65")
End With
End Sub
Drück dann anschließend die Taste F5 (s. Menü: Ausführen) und führe das Makro aus. Wenn du den Textcursor innerhalb der obigen Prozedur plazierst, wird es sofort ausgeführt, ansonsten erscheint ein Fenster in dem du die obige Prozedur sehen solltest (dort markieren und auf Ausführen klicken).
Falls du weitere Fragen dazu hast, frag einfach. ;)
|