Office: (Office 2019) Wenn ein Text in eine Zelle geschrieben wird dann "Msg Box"

Guten Morgen zusammen,

ich habe eine Frage zu Excel VBA.

Folgendes Problem:
Ich habe schon einen VBA Befehl für die Spalte P, der sieht folgendermaßen aus:
"
Private Sub Worksheet_Change(ByVal Target As Range)

Dim Zelle As Range
Dim Bereich As Range
Set Bereich = Intersect(Target, Range("p2:p2000"))
If Not Bereich Is Nothing Then
For Each Zelle In Bereich
'Code für Bereich A:A
If Zelle = "" Then
Zelle.Offset(, -1).ClearContents
Else
Zelle.Offset(, -1) = Now
End If
Next Zelle
End If

End Sub
"
Nun benötige ich aber noch einen VBA-Befehl der, wenn ich einen Text in eine Zelle der Spalte P schreibe, mir eine Msg-Box öffnet mit einer Abfrage (j/n würde reichen)

Wie kann ich 2 dieser Befehle kombinieren?

Besten Dank schonmal

Grüße

Silver

 

Hallo Silver,

nach Else
If MsgBox("Wollen Sie den Auftrag wirklich löschen.", vbYesNo + vbQuestion, "Löschabfrage ?") = vbYes Then
MsgBox "Ja"
Else
MsgBox "Nein"
End If

 

Guten Morgen, danke für die schnelle Antwort.

Wenn ich das richtig kombiniert habe sollte das so aussehen oder?

"
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)

Dim Zelle As Range
Dim Bereich As Range
Set Bereich = Intersect(Target, Range("p2:p2000"))
If Not Bereich Is Nothing Then
For Each Zelle In Bereich
If Zelle = "" Then
Zelle.Offset(, -1).ClearContents
Else
Zelle.Offset(, -1) = Now

If MsgBox("Wollen Sie den Auftrag wirklich löschen.", vbYesNo + vbQuestion, "Löschabfrage ?") = vbYes Then
MsgBox "Ja"
Else
MsgBox "Nein"
End If
Next Zelle
End If

End Sub
"

leider funktioniert das nicht. "Variable oder Prozedur anstelle eines Moduls erwartet"

Der Zusatz kommt dann aber auch unter "Tabelle 1" oder sollte der in ein Modul?

Die Msg-Box sollte sich (mit dem Zusatz) öffnen wenn ein Text in eine Zelle der Spalte P geschrieben wird.
(mein bisheriger VBA Befehl trägt ja ein Datum in die Zelle links daneben ein, bzw löscht es wieder)


Beste Grüße

Silver

 

Erldigt... Hatte ein Modul mit dem selben Namen.
Mein Fehler.

Danke dir!