11.08.2017, 10:02
Und sowas zum Wochenende,
Guten Tag,
Ich weiß nicht was los ist, aber Excel Ignoriert die Speicher Baustein in meinem Code. Das hatte ich vorher mit der PW Abfrage und das Speichern ging, nun geht die PW Abfrage aber das speichern nicht mehr.
Ich verzweifel noch hier. Da es in der UF1 und UF2 nicht mehr geht und ich keine Ahnung haben warum, in einer anderen Tabelle geht es nach wie vor.
Guten Tag,
Ich weiß nicht was los ist, aber Excel Ignoriert die Speicher Baustein in meinem Code. Das hatte ich vorher mit der PW Abfrage und das Speichern ging, nun geht die PW Abfrage aber das speichern nicht mehr.
Ich verzweifel noch hier. Da es in der UF1 und UF2 nicht mehr geht und ich keine Ahnung haben warum, in einer anderen Tabelle geht es nach wie vor.
Code:
Private Sub CommandButton1_Click()
'Passwortabfrage aus Tabbelle ("Passwörter")
Zeile = 1
gefunden = False
txtsuche = ""
Do While Worksheets("Passwörter").Cells(Zeile, 1) <> ""
If Worksheets("Passwörter").Cells(Zeile, 2) = txt_passwort.Text Then
txtsuche = Worksheets("Passwörter").Cells(Zeile, 1)
gefunden = True
End If
Zeile = Zeile + 1
Loop
If gefunden Then
Zeile = 2
Do While Worksheets("protokoll").Cells(Zeile, 1) <> ""
Zeile = Zeile + 1
Loop
Worksheets("protokoll").Cells(Zeile, 1) = txt_nachname
Worksheets("protokoll").Cells(Zeile, 2) = Now()
Dim lZeile As Long
'Wenn kein Datensatz in der ListBox1 markiert wurde, wird die Routine beendet
If ListBox1.ListIndex = -1 Then Exit Sub
'Ich muss prüfen, ob die ID Spalte auch gefüllt ist!!
If Trim(CStr(txt_nachname.Text)) = "" Then
'Meldung ausgeben
MsgBox "Sie müssen mindestens einen Namen eingeben!", vbCritical + vbOKOnly, "FEHLER!"
'Abbrechen der Speicherroutine
Exit Sub
End If
'AB HIER FÄNGT ER AN DEN TEIL ZU ÜBERSPRIGEN
-------------------------------------------------------------------------------------------------------------
'Zum Speichern benötigen wir die Zeilennummer des ausgewählten Datensatzes
lZeile = 2 'Start in Zeile 2, Zeile 1 sind ja die Überschriften
'Schleife solange etwas in der zweiten Spalte in Tabelle 1 drin steht
Do While Trim(CStr(Worksheets("usernamen").Cells(lZeile, 2).Value)) <> ""
'Datensatz ID Spalte mit selektiertem Eintrag der ListBox vergleichen
If ListBox1.Text = Trim(CStr(Worksheets("usernamen").Cells(lZeile, 2).Value)) Then
'Eintrag gefunden, TextBoxen in die Zellen schreiben
Worksheets("usernamen").Cells(lZeile, 2).Value = Trim(CStr(txt_nachname.Text))
Worksheets("usernamen").Cells(lZeile, 3).Value = Trim(CStr(txt_vorname.Text))
Worksheets("usernamen").Cells(lZeile, 4).Value = txt_DG.Text
Worksheets("usernamen").Cells(lZeile, 5).Value = txt_datum.Text
'UND AB HIER STEIGT ER WIEDER EIN
------------------------------------------------------------------------------------------------------------
'Die ListBox muss nun neu geladen werden
'allerdings nur, wenn sich der txt_Nachname (ID) geändert hat
If ListBox1.Text <> Trim(CStr(txt_nachname.Text)) Then
If ListBox1.ListCount > 0 Then ListBox1.ListIndex = 0
End If
Exit Do 'Vorzeitiges Ende, da der Datensatz schon gefunden ist
End If
lZeile = lZeile + 1 'Nächste Zeile bearbeiten
Loop
Else
MsgBox "Falsches PW"
End If
End Sub