Guten Morgen liebes Forum,
ich habe eine UserForm bei der in eine TextBox eine fünftstellige Serial eingegeben werden muss. Anschließend wird ein Button gedrückt und auf mein Tabellenblatt mit dem Namen "Datenbank" werden Spalten wie folgt ausgefüllt.
Spalte 1 - fortlaufende Nummer
Spalte 2 - Seriennummer
Spalte 3 - Datum
Spalte 4 - Uhrzeit
Spalte 5 - "OK"
In Spalte 7-9 wird ein "X" gesetzt, wenn Checkbox 1,2 oder 3 angewählt ist. Das ganze funktioniert super mit folgendem Code:
Private Sub CommandButton1_Click()
Dim last As Long
If Len(TextBox2.Text) [größer,kleiner] 5 Then
MsgBox ("Bitte letzten 5 Nummern der Serial eingeben")
Else
With Sheets("Datenbank")
last = .Cells(Rows.Count, 2).End(xlUp).Row + 1
.Cells(last, 1).Value = j: j = j + 1
.Cells(last, 2).Value = TextBox2.Value
.Cells(last, 3).Value = Date
.Cells(last, 4).Value = Format(Now, "hh:mm")
.Cells(last, 5).Value = "Ok"
If CheckBox1.Value = True Then
.Cells(last, 7).Value = "X"
End If
If CheckBox2.Value = True Then
.Cells(last, 8).Value = "X"
End If
If CheckBox3.Value = True Then
.Cells(last, 9).Value = "X"
End If
End With
Label3 = j
TextBox1.Value = CLng(TextBox1 - 1)
TextBox2.Value = ""
If TextBox1 = "0" Then
CommandButton1.Visible = False
CommandButton2.Visible = False
CommandButton3.Visible = True
MsgBox ("Die Prüfung ist abgeschlossen")
End If
End If
CheckBox1 = False
CheckBox2 = False
Nun würde ich gerne in dieselbe UserForm einen Button einbauen, der den Eintrag rückgänig machen kann und dabei auch die fortlaufende Nummer berücksichtigt. Also Beispiel:
Ich habe forlaufende Nummer "1" mit Serial "12345" und den anderen Daten, drücke auf den Button und dann wird das so in die Tabelle eingetragen. Als nächstes wäre dann fortlaufende Nummer "2" dran. Jetzt habe ich aber festgestellt, dass Nummer "1" einen Fehler hat. Ich möchte also auf einen Button "Zurück" drücken und den vorherigen Eintrag löschen, dabei müsste aber auch meine Zählervariable zurückgesetzt werden. Hatte es hiermit veruscht:
last = .Cells(Rows.Count, 2).End(xlUp).Row - 1
.Cells(last, 1).Value = j: j = j - 1
Aber das hat nicht so geklappt ... :( Hat jemand eine Idee wie das funktionieren könnte?
Vielen Dank!
Beste Grüße,
Emma