Ich habe folgenden Code (aus dem Internet, ich glaube sogar, hier aus dem Forum) um eine msgbox anzeigen zu lassen.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngZ As Range
For Each rngZ In Target
If rngZ.Address = "$A$8" Then
Select Case MsgBox("Willst Du die Zelle wirklich ändern?", vbOKCancel, "Hallo Hans")
Case vbOK
Exit Sub
Case vbCancel
With Application
.EnableEvents = False
.Undo
.EnableEvents = True
End With
End Select
End If
Next
End Sub
Leider funktioniert der Code nur in der Zelle A8.
Ich hätte gerne, dass er in dem Zellbereich A2:B50 funktioniert.
Ich bekomme das einfach nicht hin.
Mit freundlichen Grüßen
Hans-Jörg