Private Sub Worksheet_Calculate
05.11.2006 21:30:10
Thomas
habe dieses Macro gefunden und möchte das es auf meine Bedürfnisse noch angepasst wird.
Bei inderekten Bezug K50 erscheint die MsgBox und danach soll das Blatt aktiviert und gedruckt werden.
Der Name des Sheets stehht in AB2 wo der Bezug erscheint.
Ist das machbar?
Private Sub Worksheet_Calculate()
If [k50] <> [a3000] Then
MsgBox "k50 geändert!"
'Dein Makro hier
[a3000] = [k50]
End If
End Sub
Gruß Thomas