Thema Datum  Von Nutzer Rating
Antwort
Rot Bei Klick auf Schaltfläche eine Zelle um 1 erhöhen aber alle 100 auslassen
13.02.2020 21:30:10 jeanson
NotSolved
13.02.2020 22:00:23 X-Post
NotSolved
13.02.2020 22:54:09 Gast14341
NotSolved

Ansicht des Beitrags:
Von:
jeanson
Datum:
13.02.2020 21:30:10
Views:
88
Rating: Antwort:
  Ja
Thema:
Bei Klick auf Schaltfläche eine Zelle um 1 erhöhen aber alle 100 auslassen

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


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Bei Klick auf Schaltfläche eine Zelle um 1 erhöhen aber alle 100 auslassen
13.02.2020 21:30:10 jeanson
NotSolved
13.02.2020 22:00:23 X-Post
NotSolved
13.02.2020 22:54:09 Gast14341
NotSolved