so sieht mein Projekt aus:
In der Eingabemaske der Userform seht ihr Daten die ich bereits eingegeben und mit "Anmelden" bestätigt habe, weshalb die Daten Links in die Tabelle eingetragen wurden. Dafür folgender Code bei Bestätigen des Buttons "Anmelden":
Private Sub Button_Anmelden_Click()
'Einträge der Schaltfläche Anmelden in die Arbeitsmappe übernehmen
Dim last As Integer
last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
ActiveSheet.Cells(last, 1).Value = CDate(Date)
ActiveSheet.Cells(last, 2).Value = Time
ActiveSheet.Cells(last, 3).Value = mdeErfassung.Text_MDE.Value
ActiveSheet.Cells(last, 5).Value = mdeErfassung.Text_Mitarbeiter.Value
ActiveSheet.Cells(last, 7).Value = "Angemeldet"
End Sub
Hier der Code für den Button "Abmelden":
Private Sub Button_Anmelden_Click()
'Einträge der Schaltfläche Anmelden in die Arbeitsmappe übernehmen
Dim last As Integer
last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
ActiveSheet.Cells(last, 1).Value = CDate(Date)
ActiveSheet.Cells(last, 2).Value = Time
ActiveSheet.Cells(last, 3).Value = mdeErfassung.Text_MDE.Value
ActiveSheet.Cells(last, 5).Value = mdeErfassung.Text_Mitarbeiter.Value
ActiveSheet.Cells(last, 7).Value = "Abgemeldet"
End Sub
Nun möchte ich aber, dass wenn ich jetzt mit den gleichen Daten erneut auf Anmelden klicke mir die Meldung gezeigt wird, "Achtung, MDE bereits angemeldet". Erst wenn ich mich zuvor abgemeldet hätte mit dem Button "Abmelden" sollen die Daten in die Tabelle übernommen werden. Andersherum soll das auch für "Abmelden" funktionieren. Wenn ich mich abmelden möchte, obwohl der letzte Eintrag zu diesen Daten bereits Abgemeldet ist, soll die Meldung "Achtung, MDE bereits abgemeldet" angezeigt werden. Ich möchte also nicht das ich mich 2+ mal mit dem gleichen Gerät (MDE Barcode) anmelden kann. Es muss sich zuvor abgemeldet werden.
Eventuell lässt sich das An- und Abmelden nur über ein Button steuern, das wäre natürlich sehr geil!
Liebe Grüße
Nico