Certain string in cell A1 causes a change in Cell B1

  • Thread starter Thread starter andreashermle
  • Start date Start date
A

andreashermle

Dear Experts:

I would like to run a macro with the following requirements.

As soon as the cell value in A1 changes and the string "Mont" is part
of the cell value in A1, the Contents of B1 is to change to "This is
the responsibility of...). If this not the case nothing is to be
displayed in Cell B1

Help is much appreciated. Thank you very much in advance.

Regards, Andreas
 
Hi
Would a formula do ?, if yes try this..
=IF(ISERROR(SEARCH("Mont",A1,1)),"","This is
the responsibility of..")
HTH
John
 
This code is to be pasted into the sheet code module for the sheet with the
applicable cells a1 and b1. Right click the sheet name tab and select View
Code from the pop up menu. The appropriate code window should open.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target = Range("A1") Then
If InStr(1, LCase(Target.Value), "mont") > 0 Then
Range("B1") = "This is the responsibility of..."
Else
Range("B1") = ""
End If
End If
End Sub
 
Hi,

may be this

Private Sub Worksheet_Change(ByVal Target As Range)
If InStr(1, Range("A1"), "Mont", vbTextCompare) > 0 Then
Application.EnableEvents = False
Range("B1").Value = "This is the responsibility of...)"
Else
Range("B1").ClearContents
End If
Application.EnableEvents = True
End Sub
--
Mike

When competing hypotheses are otherwise equal, adopt the hypothesis that
introduces the fewest assumptions while still sufficiently answering the
question.
 
Hi
Would a formula do ?, if yes try this..
=IF(ISERROR(SEARCH("Mont",A1,1)),"","This is
the responsibility of..")
HTH









- Zitierten Text anzeigen -
Click to expand...

Hi John,

great. It is working as desired. Thank you very much for your terrific
help.
Regards, Andreas
 
This code is to be pasted into the sheet code module for the sheet with the
applicable cells a1 and b1.  Right click the sheet name tab and select View
Code from the pop up menu.  The appropriate code window should open.

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target = Range("A1") Then
    If InStr(1, LCase(Target.Value), "mont") > 0 Then
       Range("B1") = "This is the responsibility of..."
    Else
       Range("B1") = ""
    End If
  End If
End Sub










- Zitierten Text anzeigen -
Click to expand...

Hi JLG,

great / terrfic help. It works just fine. Regards, Andreas
 
Hi,

may be this

Private Sub Worksheet_Change(ByVal Target As Range)
If InStr(1, Range("A1"), "Mont", vbTextCompare) > 0 Then
Application.EnableEvents = False
    Range("B1").Value = "This is the responsibility of...)"
Else
    Range("B1").ClearContents
End If
Application.EnableEvents = True
End Sub
--
Mike

When competing hypotheses are otherwise equal, adopt the hypothesis that
introduces the fewest assumptions while still sufficiently answering the
question.










- Zitierten Text anzeigen -
Click to expand...

Hi Mike.

Great support. Thank you very much. It works as desired. Regards,
Andreas
 
Back
Top