Buttonclicks Anzahl begrenzen
03.06.2020 08:13:41
Stephan
ich habe eine Userform2 mit einem Textbox1, in das eine Zahl eingetragen wird in Abhängigkeit von UserForm1. Auf Userform2 befinden sich zwei Buttons (Button1 und Button2). Ich würde jetzt gerne die Anzahl, wie oft man auf diese beiden Buttons drücken kann in Abhängigkeit von der Zahl in Textbox1 machen.
Beispiel:
TextBox1 hat eine 10, also darf man auch nur 10 mal gesamt auf Button1 und Button2 drücken.
Hintergrund:
Das ganze soll ein kleines Programm werden, das Produkte überprüft ob Sie "ok" sind oder "nicht ok" und dann die Ergebnisse in eine Datenbank übernimmt. Code dafür:
Private Sub CommandButton1_Click()
Dim last As Long
With Sheets("Datenbank")
last = .Cells(Rows.Count, 2).End(xlUp).Row + 1
.Cells(last, 2).Value = Date
.Cells(last, 3).Value = Format(Now, "hh:mm")
.Cells(last, 4).Value = "Ok"
End With
End Sub
Private Sub CommandButton2_Click()
Dim last As Long
With Sheets("Datenbank")
last = .Cells(Rows.Count, 2).End(xlUp).Row + 1
.Cells(last, 2).Value = Date
.Cells(last, 3).Value = Format(Now, "hh:mm")
.Cells(last, 4).Value = "Nicht Ok"
End With
End Sub
Wie kann ich denn jetzt die Begrenzung der Klicks auf die Buttons einbauen? Hat da jemand eine Lösung für mich?
Vielen Dank und beste Grüße,
Stephan