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
Devolo Powerline-Network funktioniert nicht?

Hey Leute, ich habe mal wieder ein schier unlösbares Problem :-)

In meinem Haus habe ich ein Devolo Powerline-Netzwerk eingerichtet, das aus einem LAN-Teil im Keller und zwei anderen Adaptern im Erdgeschoss und im Obergeschoss besteht.

Jedoch habe ich seit geraumer Zeit das Problem, dass der Adapter im Erdgeschoss nicht funktioniert. Das heißt, man kann sich mit ihm verbinden, aber an meinem Handy steht entweder "Internet eventuell nicht verfügbar" oder "IP-Adresse nicht abrufbar". Am Adapter selbst leuchtet die linke Taste (die mit dem Haus) rot, während die andere (die mit dem WLAN-Symbol) weiß leuchtet. Wenn man auf die rote Taste gedrückt hat, blinkte diese weiß und man hatte für ein paar Minuten Internetzugang mit diesem Adapter, bis er wieder in den oben beschriebenen Ausgangszustand zurückging. Der Adapter im OG funktionierte jedoch immer einwandfrei.

Ich bin kein WLAN-Spezialist und habe deshalb gestern Abend das einzige, das ich mir mit meinen bescheidenen Kenntnissen zugetraut habe, unternommen: Ich habe also alle drei Teile (den LAN-Teil im Keller sowie die beiden Adapter im EG und OG) auf Werkseinstellungen zurückgesetzt und sie mithilfe dieser Devolo-App noch einmal eingerichtet. Dann funktionierte alles für den Abend.

Als ich jedoch heute morgen nach dem Adapter gesehen habe, war er wieder wie vorher: linke Taste rot, rechte Taste weiß, Verbindung möglich, aber kein Internetzugriff. Der obere funktionierte wieder einwandfrei.

Ich habe mich also im Internet umgesehen, aber nicht viel herausfinden können, außer, dass es daran liegen könnte, dass ein Problem damit vorliegt, dass der Adapter ja nur die Stromleitung für das Signal benutzt und es deshalb nicht funktioniert. Daran könnte man dann ja nichts machen.

Fällt jemand noch eine andere Lösung des Problems ein oder geht es einfach wegen der Stromleitung nicht?

Danke schonmal im Voraus :)

PS: Wenn das nötig ist, die Bezeichnung für das Set mit den Adapter und dem LAN-Teil ist (glaube ich zumindest :-)) Devolo Magic 2 WiFi.

Computer, Internet, WLAN, Technik, LAN, Powerline, Devolo
Weitere Inhalte können nur Nutzer sehen, die bei uns eingeloggt sind.