hab in meiner Datei leider ein Fehler aber weiss nicht, wie ich das ändern kann. Könnte mal jemand bitte schauen!
https://www.herber.de/bbs/user/49961.zip
Vielen Dank
T.
Private Sub Workbook_Open()
Static Fehler As Byte
Dim TextBox1 As String
Dim tage As Long
UserForm1.Show
Select Case user
Case "A"
Select Case ThisWorkbook.Sheets("Tabelle1").Range("B1")
Case ""
ThisWorkbook.Sheets("Tabelle1").Range("B1") = Date
Case Is
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Cancel = CloseMode vbFormCode
End Sub
Passwort wird zwar abgefragt aber es wird nicht die Anzahl der falsch Eingaben geprüft.
T.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen