Hallo,

ich brauche eine Art Zahlengenerator, dafür habe ich schon einen ganz einfachen makro:

Sub Schaltfläche1_BeiKlick()
Range("A5").Select
Nummer = ActiveCell.Value
Nummer = Nummer + 1
ActiveCell.Formula = Nummer
End Sub

und einmal

Sub Schaltfläche1_BeiKlick()
Range("A5").Select
Nummer = ActiveCell.Value
Nummer = Nummer - 1
ActiveCell.Formula = Nummer
End Sub

dies funktioniert gut, nun sollen aber alle hundert (also *00 und *000) übersprungen werden - kann mir hier jemand helfen?



PS: luxus wäre noch ein Makro, der in eine Celle die Zeit, Datum und den letzten Bearbeiter anzeigt :-)



Vielen Dank im Voraus