Worksheet.change erst nach Bestätigung
17.11.2014 08:44:16
Marcus
Folgendes will nicht ganz funktionieren.
Private Sub Worksheet_Change(ByVal Target As Range)
If MsgBox("Wollen Sie das Jahr wirklich ändern? Alle Einträge gehen verloren!", vbYesNo, " _
Sicherheitsabfrage") vbYes Then
Dim rngJahr As Range
Set rngJahr = Intersect(Range("A1"), Target)
If Not rngJahr Is Nothing Then
If varJahr rngJahr.Value Then Call Start_Format: varJahr = rngJahr.Value
End If
Else: Exit Sub
End If
End Sub
Die Abfrage kommt zwar, aber "Start_Format" wird direkt ausgeführt.
Kann mir jemand den Denkfehler aufzeigen?