ich habe eine Range E7:E27 wenn ein Komma enthalten in zelle dann eine MSGBOX öffnen.
HILFE
LG Stefan
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D7")) Is Nothing And Target.Count = 1 Then
If InStr(1, Target, ",", vbTextCompare) 0 Then
MsgBox "Komma gefunden"
End If
End If
End Sub
Gruß Matthias
A | |
4 | Hallo, ich bin Stefan |
5 | 25,23 |