Werte aus einer Tabelle in UserForm übernehmen
MB
ich möchte eine Anmeldung mittels UserForm realisieren.
Dazu soll der angemeldete Benutzer ausgelesen werden --> user = Environ("Username"); funktioniert
In einer Tabelle suche ich die dazugehörigen Daten (Name, Vorname und Kennwort); funktioniert auch
Aber wie schreibe ich jetzt den Namen und Vornamen in die UserForm?
Hier mein Versuch:
wie gesagt, ich möchte per vba Name, Vorname und Benutzerkennung in die UserForm schreiben, dann soll der Anwender das Kennwort eingeben und mit OK soll´s dann weitergehen.
Dim wkb As Workbook
Dim wksUser As Worksheet
Dim user As String, n As String, vn as String, pw As String
Dim i As Integer
Set wkb = ActiveWorkbook
Set wksUser = Sheets("User")
user = Environ("Username")
With wksUser.Range("a1:a500")
Set b = .Find(user, LookIn:=xlValues)
i = b.Row
End With
vn =wksUser.Cells(i, 2)
n =wksUser.Cells(i, 3)
pw = wksUser.Cells(i, 4)
frmAnmeldung.Show
tbUser.Value = "ich"
bfName.Value = n
DoEvents
Liebe Grüße
Michael