Ändert sich eine Zelle dann "SpeichernUnter"

Hallo,

ich bin neu was Excel - VBA angeht. Ich möchte das, wenn sich eine Zelle ändert, das Fenster „SpeichernUntern“ öffnet.
MeinCode:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("$J$8")) Then
Call speichereArbeitsblatt
End If
End Sub

Beim Ausführen, wird ein Fehler angezeigt:
Laufzeitfehler 91:
Objektvariable oder With-Blockvariable nicht festgelegt.

Habe überhaupt keine Ahnung was damit gemeint ist. Bin für jede Hilfe dankbar.

Gruß Khai…

Hallo Khai,

hast Du ein Unterprogramm mit dem Namen „speichereArbeitsblatt“ angelegt oder usr das der komplette VBA-Code, der in deiner ExcelTabelle hinterlegt ist?

Liebe Grüße
Jonas

Hier mal ein möglicher Code zur Überwachung der Zelle und den Aufruf der Speicherfunktion

Sub Worksheet_Change(ByVal Target AsExcel.Range)

If Target.Address = „$J$8“ = Then
Application.Dialogs(xlDialogSaveAs).Show
End If
End Sub

Müsste so funktionieren, da ich aber grad kein Excel zum Testen da habe, kote ich es nicht testen

[MOD]: Doppelposting, bitte eins drunter antworten (o. w. T.).
.