Hab da nochmal ein Problem und keine Lösung. Die Recherche hat mir hier leider nicht weitergeholfen, oder aber ich hab mal wieder falsch gesucht.
Folgenden Code hab ich in einer UserForm:
Private Sub CommandButton1_Click()
If TextBox1 = "12345" And TextBox2 = "" Or TextBox1 = "54321" And TextBox2 = "" Then
Fehleingabe = 0
Unload Me
'UserForm1.Show
Else
If Fehleingabe = 2 Then
Application.Quit
Application.DisplayAlerts = False
Exit Sub
End If
MsgBox "Das Passwort ist leider falsch - Bitte versuchen Sie es erneut"
MsgBox "Excel wird nach 3 maliger Falscheingabe ohne Vorwarnung komplett! beendet!" & Chr(13) & "noch offene Mappen werden nicht gespeichert!" & Chr(13) & "Wenn Sie die notwendigen Daten nicht kennen, klicken Sie auf Abbrechen!"
With TextBox1
.Value = ""
.SetFocus
End With
TextBox2 = ""
Fehleingabe = Fehleingabe + 1
End If
End Sub
Ich möchte nun, dass der Name des Mitarbeiters, der in einem Blatt Namens "Grundeinstellungen" steht und dort mit einem Namen "name" versehen ist, automatisch in die Textbox2 eingetragen wird.
Was muss hier geändert werden?
Für Euere Hilfe mal wieder besten Dank im Voraus!
Viele Grüße
Klaus