ich habe eine Tabelle mit Dezimalzahlen z. B.: 6,3 6,6 5,8 usw.
Gibt es eine Möglichkeit, dass bei allen Zahlen, die nach dem Komma 4, 5 oder 6 haben, eine Meldung erscheint?
Vielen Dank für eure Tipps
Hannah
schreib das folgende Makro in Codeseite der entsprechenden Tabelle:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim E
E = ActiveCell.Value
If IsNumeric(E) = True Then
If InStr("456", Right(E, 1)) > 0 Then MsgBox "Hier ist die Meldung!"
End If
End Sub
Gruß
Peter
Ich hoffe, das reicht Dir als Tip, sonst kannst Du mich auch gern anmailen..
bis dann, Frank
Gruss
M@x
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim E
E = Target.Value
If IsNumeric(E) = True Then
If Len(E) > 2 Then
If E > Empty Then
If InStr(",4,5,6", Right(E, 2)) > 0 Then MsgBox "Hier ist die Meldung!"
End If
End If
End If
End Sub
Gruß
Peter