In der Recherche habe ich zwar viel lesen können wegen Dokumentation und so, aber leider nichts zu meinem "Problem". Vielleicht kann sich dem jemand annehmen?
Durch großartige Hilfe aus dem Forum habe ich den nachfolgenden Code bekommen.
Mittels einer UF soll der Benutzer und das Passwort abgefragt werden (das klappt tadellos und das ist auch der Code) . Jetzt soll "nur noch" der Benutzer in die Tabelle "Auswertung" in Zelle "A1" geschrieben werden.
Wäre großartig, wenn ich hier nochmal Hilfe bekommen könnte!
Vielen Dank und Viele Grüße
Klaus
Private Sub CommandButton3_Click()
Dim varIndexName As Variant, strKW As String, Zeile As Long
Dim Fehleingabe As Integer
Dim wks As Worksheet
Set wks = Worksheets("Grunddaten")
'Zeile mit Username (Textbox1) in Spalte B (2) suchen _
(Groß-/Kleinschreibung wird unterschieden)
With wks
For Zeile = 1 To .Cells(Rows.Count, 2).End(xlUp).Row
If .Cells(Zeile, 2).Text = TextBox1.Value Then
varIndexName = Zeile
Exit For
End If
Next
End With
If varIndexName > 0 Then
'Kennwort in Textbox2 mit Kennwort in Spalte C (3) der Liste vergleichen _
(Groß-/Kleinschreibung wird unterschieden)
If TextBox2.Value = Application.WorksheetFunction.Index(wks.Columns(3), _
varIndexName, 1) Then
Fehleingabe = 0
Unload Me
'UserForm1.Show
Else
If Fehleingabe = 2 Then
Application.Quit
Application.DisplayAlerts = False
Exit Sub
End If
'UserForm2.Show
'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 TextBox2
.Value = ""
.SetFocus
End With
Fehleingabe = Fehleingabe + 1
End If
Else
If Fehleingabe = 2 Then
Application.DisplayAlerts = True
Application.Quit
Exit Sub
End If
MsgBox "Der eingegebene Username ist nicht in der Liste der berechtigten Anwender" _
& Chr(10) & "Groß-/Kleinschreibung beachten!"
Fehleingabe = Fehleingabe + 1
TextBox2 = ""
With TextBox1
.Value = ""
.SetFocus
End With
End If
End Sub