Office: Userform Login Benutzername in Zelle schreiben

Hallo mal wieder ins Forum,
ich habe mir nach einem Video ein Login nachgebaut. Das funktioniert auch einwandfrei.
Hier der Code:
Private Sub bttnAnmelden_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Application.ScreenUpdating = False
'Variablen dimensionieren
Dim rng As Range
Dim ws As Worksheet
'Benutzername suchen
Set rng = Range("tblZugriffsrechte[Benutzername]").Find(what:=txtBenutzername.Value, lookat:=xlWhole)
'Prüfen ob Benutzername angelegt
If rng Is Nothing Then
'Benutzer benachrichtigen
MsgBox "Benutzer existiert nicht!"
'Prozedur beenden
Exit Sub
End If
'Prüfen ob Passwort korrekt ist
If rng.Offset(0, 1).Value <> txtPasswort.Value Then
'Benutzer benachrichten
MsgBox "Passwort ist falsch!"
'Prozedur beenden
Exit Sub
End If
'Prüfen ob Benutzer Supervisor is
If rng.Offset(0, 2).Value = "Supervisor" Then
'Schleife über alle Tabellenblätter
For Each ws In ThisWorkbook.Worksheets
'Tabellenblatt einblenden
ws.Visible = xlSheetVisible
Next ws
ElseIf rng.Offset(0, 2).Value = "Benutzer" Then
'Schleife über alle Tabellenblätter
For Each ws In ThisWorkbook.Worksheets
'Prüfen
If ws.Name <> "Br" And ws.Name <> "S" And ws.Name <> "M" And ws.Name <> "I" _
And ws.Name <> "D" And ws.Name <> "Z" And ws.Name <> "T" And ws.Name <> "V" _
And ws.Name <> "Da" And ws.Name <> "K" Then
'Tabellenblatt einblenden
ws.Visible = xlSheetVisible
End If
Next ws
End If
If rng.Offset(0, 2).Value = "Admin" Then
'Schleife über alle Tabellenblätter
For Each ws In ThisWorkbook.Worksheets
'Prüfen
If ws.Name <> "Z" And ws.Name <> "B" And ws.Name <> "S" And ws.Name <> "M" _
And ws.Name <> "Infos" Then
'Tabellenblatt einblenden
ws.Visible = xlSheetVisible
End If
Next ws
End If
'UserForm schliessen
Unload Me
Application.ScreenUpdating = True
End Sub

Um eine Idee die ich jetzt habe und umsetzen möchte muss der Benutzername der eingetragen wird immer automatisch in die Zelle E1 auf Tabellenblatt "Zugriffsrechte" übertragen werden. Ich habe tausend Sachen versucht bekomme es aber einfach nicht hin. Ich hoffe hier erbarmt sich jemand und kann mir helfen.
Vielen Dank Nanu

 

ich konnte nicht sehen wo Du den Benutzername eingibts. Inputbox.

nur wenige schauen auf Deinen Rechner und sehen die Datei.
Ich möchte gerne den Fehler im Original sehen.

Ich baue keine Datei nach. Die Zeit hat schon jemand investiert.

Ein Nachbau sieht meist anders aus als das Original. <B>Darum sollte das Original verlinkt werden.</b>

Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten
Hinweis - Anonymisierung und Pseudonymisierung von Beispielmappen - MS-Office-Forum
änderrn.
Der Name einer hochgeladenen Mappe wird im Beitrag automatisch angezeigt, sodass es bei Verwendung von aussagekräftigen Namen leichter fällt, sie später im Ablageordner wiederzufinden und sie gedanklich einem bestimmten Thema zuzuordnen. Namen wie Muster*, Test*, Mappe*, Beispiel*, Fehler*, Kalender* usw. sind so allgemein, dass eine Zuordnung zu einem Thema unmöglich gemacht wird.
Es sollte ein aussagekräftiger Name sein.

Benutze hier im Forum die Funktion zum hochladen. Falls Du die nicht benutzen möchtest beachte, von unsicheren Servern wie z.B. www.file-upload.net lade ich keine Datei runter. (lt. Einschätzung meines Virenprogramms)3

Bilder lade ich mir nicht runter, da Excel damit nichts anfangen kann.

Bilder statt Datei | Excel ist sexy!

Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.

Das ist nur meine Meinung zu dem Thema.

 

Hi,

diese Zeile

Code:

    Worksheets("Zugriffsrechte").Range("E1") = txtBenutzername.Value

vor deine Kommentarzeile 'Prüfen ob Benutzer Supervisor is

---

 

Hallo Karin,
vielen Dank funktioniert hervorragend. Und das ganz ohne eine lange Antwort wo mir erklärt wird was derjenige alles nicht macht. Dir ein schönes Wochenende und ich kann meine Idee Dank dir umsetzen.
Nanu

 

Hallo Nanu,
ich habe Dir mal etwas zum Spielen gebastelt: Eine Arbeitsmappe mit drei Tabellen, die dem EVA-Prinzip folgen. Der jeweils angemeldete Benutzer wird nicht in eine Zelle geschrieben (das geht natürlich auch), sondern ganz unten links am Bildschirm in die Statuszeile. Du siehst eine kleine Userform, in der Du User mit unterschiedlichen Rechten auswählen kannst. Der erste Admin ist Charly mit einem fünf-stelligen Passwort. das mit 3 beginnt .... Die Userform kannst Du mit F12 einfach wieder aufrufen.

Warum diese doppelte Arbeit? Weil mir der Code, den Du da aus Deinem Video gedengelt hast, unnötig kompliziert erscheint. Falls Du meine Idee als Einstieg in effektive Programmierung nutzen magst, lass es mich wissen. Ich liefere ihn dann noch einmal ausführlich kommentiert zum Lernen.

Grüße (wie? so frisch dabei und schon Seitenhiebe gegen Textbaustein-schleudernde Nichtsmacher? Gut so!!)

 

Hallo d´r Bastler,
vielen Dank für deine Mühe und Arbeit. Das gucke ich mir später an und gebe natürlich eine Rückmeldung.
Vielen Dank
Nanu

 

Moin Nanu,
die ausführlich erklärte Version (nimm gleich die hier) meiner Spielerei findest Du jetzt hier. Viel Spaß damit - und Rückfragen - natürlich gerne.

Grüße

 

Hallo d´r Bastler,
das sieht super aus. Aber da muss ich mich jetzt das Wochenende mal durcharbeiten in wie weit ich das in mein Programm integriert bekomme. Am Montag gebe ich dir eine Rückmeldung. Wird nur etwas später eurer Zeit da ich in Costa Rica lebe und 8 Stunden hinter euch her bin. Und natürlich würde es mich freuen wenn du den Code etwas erkären könntest. Ich bin nämlich alles andere als ein Profi. Mit meinen doch sehr bescheidenen Kentnissen dauert das so seine Zeit Saludos Nanu

 

Moin Nanu,

schön, dass Dir mein Machwerk zusagt. Die ausführlich kommentierte Version habe ich hier eingestellt. Du musst Dich auf VBAsteleien.de nicht anmelden und kannst die Datei auch als Gast herunterladen. Für eine weiterführende Diskussion wäre es aber natürlich sinnvoll.
Irgendwie finde ich es unfair, dass Du da in Rica acht stunden länger schlafen darfst als ich

Internationale Grüße

 

Moin allerseits,
hier noch ein Link zu einer überarbeiteten und gut funktionierenden Lösung des Themas.
Grüße