PDA

Vollständige Version anzeigen : Benutzeranmeldung mit vielen Benutzer


paullenrtvba2016
06.03.2017, 09:32
Hallo,

ich habe eine Userform erstellt wo sich mehrere Benutzer anmelden können.
Die Benutzer und die Passwörter sind in Tabelle2 gespeichert (BN Spalte A - PW Spalte C).

Es klappt soweit auch alles, nur werden nicht alle Benutzer angezeigt, sondern nur die ersten 6 Zeilen. Wie kann ich das ändern das alle Benutzer angezeigt werden.

Der Code lautet:
_____________________________________________

Private Sub CommandButton1_Click()
If ComboBox1 = Sheets("Tabelle2").Cells(ComboBox1.ListIndex + 1, 2) Then
MsgBox "Anmeldung erfolgreich..."

Unload UserForm13

MsgBox ("Bitte den kompletten Bericht ausfüllen")

'Worksheets("Parameterliste").Unprotect Password:="als"

'Worksheets("Parameterliste").Protect Password:="als"

UserForm1.Show
UserForm13.Hide
Else
MsgBox "Passwort falsch..."
End If
End Sub

___________________________________


Anbei habe ich einmal die Datei hochgeladen.

Habt Ihr da eine Lösung.

Vielen Dank.

paullenrtvba2016
06.03.2017, 15:16
Ups, habe die Falsche Datei hochgeladen. Tut mir leid.

paullenrtvba2016
06.03.2017, 15:27
Hallo zusammen,

meine Dummheit.

Ich habe es hinbekommen.

Bei der ComboBox unter Eigenschaften

Muss man bei dem Feld "RowSource" einfach die Tabelle erweitern.

Trotzdem vielen Dank an alle

Luschi
06.03.2017, 15:28
Hallo paullenrtvba2016,

in den Eigenschaften von Combobox1 steht für RowSource:
Tabelle2!A1:A6

Und Das ist der Anzeigebereich für diese Combobox; schreibe rein:
Tabelle2!A2:A15 oder mache es dynamisch.

Gruß von Luschi
aus klein-Paris