also ungefähr so
if variable = 10(20, 30...) then
"Text"
wäre schön, wenn´s mir jemand sagen könnte
als Ansatz:
If Range("A1").Value Mod 10 = 0 ThenSub Textausgabe()
Code eingefügt mit Syntaxhighlighter 1.14
MsgBox "Das Ergebnis ist durch 10 teilbar"
Else
MsgBox "Das Ergebnis ist nicht durch 10 teilbar"
End If
End Sub
Falls die Zelle automatisch geprüft werden soll, kannst du das Makro ja in das Workbook_Change-Ereignis schreiben.
Gruß
Bonte
Vielleicht hilft Dir dieses kleine Beispiel schon weiter.
=WENN(REST(Variable;10)=0;Meldung;Keine Meldung)
Die Funktion muß natürlich noch angepaßt werden.
Wenn Du trotzdem nicht weiterkommst, frag noch einmal nach. Dann schreibe ich Dir das Teil in VBA.
Bis dann
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