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