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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen