Microsoft Excel – die besten Beiträge

Verwandte Themen
Kiwitastisch
13.05.2020, 13:18
Mit Bildern

Excel VBA UserForm "Passwort ändern" funktioniert nicht?

Ich komme echt nicht weiter bei so einem einfachen Code! :(

Das Problem ist, dass die UserForm einmal funktioniert, aber beim zweiten Mal sagt er "Das Passwort ist nicht korrekt", obwohl es das eigentlich sein müsste. Per Direktbereich abgefragt ergibt sich dann immer, dass das Passwort auf "" steht. Findet jemand im Code den Fehler?

PS: "NeuesPasswort1" steht für die obere, "NeuesPasswort2" für die untere Reihe.

Option Explicit

Sub CheckBoxAltesPasswort_Click()
  If CheckBoxAltesPasswort.Value = True Then
    TextBoxAltesPasswort.PasswordChar = ""
    Else
      TextBoxAltesPasswort.PasswordChar = "*"
  End If
End Sub

Sub CheckBoxNeuesPasswort1_Click()
  If CheckBoxNeuesPasswort1.Value = True Then
    TextBoxNeuesPasswort1.PasswordChar = ""
    Else
      TextBoxNeuesPasswort1.PasswordChar = "*"
  End If
End Sub

Sub CheckBoxNeuesPasswort2_Click()
  If CheckBoxNeuesPasswort2.Value = True Then
    TextBoxNeuesPasswort2.PasswordChar = ""
    Else
      TextBoxNeuesPasswort2.PasswordChar = "*"
  End If
End Sub

Sub CommandButtonAbbrechen_Click()
  Me.Hide
End Sub

Sub CommandButtonSpeichern_Click()
  If TextBoxAltesPasswort.Value <> AltesPasswort Then
    MsgBox ("Das Passwort ist nicht korrekt.")
    Exit Sub
  End If
  If TextBoxNeuesPasswort1.Value <> TextBoxNeuesPasswort2.Value Then
    MsgBox ("Die Passwörter stimmen nicht überein.")
    Exit Sub
  End If
  If Len(TextBoxNeuesPasswort1.Value) < 5 Then
    MsgBox ("Bitte wählen Sie ein Passwort mit mindestens 5 Zeichen.")
    Exit Sub
  End If
  NeuesPasswort = TextBoxNeuesPasswort1.Value
  Passwort = NeuesPasswort
  Me.Hide
End Sub

Sub UserForm_Activate()
  AltesPasswort = Passwort
End Sub
Bild zum Beitrag
Computer, Microsoft Excel, programmieren, VBA, passwort-aendern, UserForm
1 Antwort
Gipfelstuermer
11.05.2020, 19:14
Mit Bildern

Excel aus einer Ergebnisliste nach Rang und dazugehörigem Namen absteigend anordnern?

Hallo zusammen,

ich habe mal wieder eine Excel frage und zwar veranstalte ich privat im Freundeskreis mit insgesamt 16 Leuten eine kleines Age of Empires 2 Turnier, dazu sind je 4 Spieler in 4 Gruppen sortiert, um das besser auszuwerten habe ich dies in Excel organisiert, die Basis Sachen habe ich schon hinbekommen, siehe Bild:

Es spielt jeder gegen jeden auf je 5 Karten, kommen also paar Spiele zusammen....

Nun aber zur eigentlichen Frage, nun will ich mir auf einer Übersichtsseite alle Daten direkt rausziehen, für mich primär interessant sind eigentlich nur Punkte, der draus resultierende Platz und der Spielername.

Und zwar sollte es dynamisch sein, sprich Platz 1 steht oben und Platz 4 unten und dazu die jeweiligen Punkte, die Punkte auf der jeweiligen Karte halte ich für optional, aber wenn ich da Prinzip einmal verstanden habe, bekomme ich das auch selber hin.

Sprich meine Idee wäre das das Am ende so aussieht:

An der Form kann ich immer noch feilen, aber so sollte das Prinzip sein.

Ich scheitere allerdings an der Umsetzung zunächst hatte ich über den Platz an einen WVerweis gedacht, sprich such dir Platz 1 raus und und such mir den Namen dazu der 7 Zeilen oben drüber steht und gibt die Punkte aus, die 1 Zeile oben drüber stehen. Problem an der Sache aber ist bei gleichstand, dann wird mir 2x er gleiche Spieler ausgegeben.

Hat jemand Ideen, wie ich das lösen könnte? und schonmal vielen Dank für Eure Anregungen!

Gruß
Gipfelstürmer

Bild zum Beitrag
Computer, Microsoft Excel, Formel, Verweis, Rang, indirekt
1 Antwort

Meistgelesene Beiträge zum Thema Microsoft Excel

Mehr meistgelesene Fragen zu Microsoft Excel