Ich habe momentan ein black out:
Ich möchte gerne alle Zahlen einer Tabelle färbig markieren, die durch 10 ohne Dezimalstellen zu teilen sind. Also zum Beispiel: 10, 20, 30, 40, 50 usw.
Danke im Voraus für Eure Hilfe
Erwin
Sub musst du nur noch die Färbung eingeben und dann denke ich klappt es. Lad doch mal ne Tabelle hoch dann kann man besser darauf eingehen.
Sub zahlen()
Dim max
Dim Ergebnis
max = 11 ' am besten Schleife die Tabelle durchläuft
If Ergebnis = 10 Mod 1 Then: Exit
Sub ' hier Färbung eintragen und Exit
Sub löschen
End Sub
Gruß
Kersten