Code Snippet "VBA Excel"

Verarbeitung erfolgt, wenn User OK-Taste drückt

Sub WeiterWennOK()
  If MsgBox("Sollen diese Zellen rot formatiert werden?", _
      vbOKCancel, "Rot formatieren") = 1 Then
    Selection.Interior.ColorIndex = 3
  End If
End Sub