Freddy schrieb am 23.11.2010 10:18:03:
dann soll ne fehlermeldung in ner msgBox angezeigt werden. ich brauch nur die ifBedingung .. hab schon an die mid funktion gedacht aber keine Ahnung wie man die auf das Problem anwenden könnte.
Nehmen wir mal an, Du willst das in einer Zelle überprüfen, dann sähe das etwa so aus:
Private Sub Worksheet_Change(ByVal Target As Range)
If InStr(1, Target, ".@",vbBinaryCompare) <> 0 Then
MsgBox "...."
End If
End Sub
Severus |