Abfrage zum Speichern Userform

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub CommandButton3_Click() 'Eintrag speichern Dim lzeile As Long, lIndex As Long If ListBox1.ListIndex = -1 Then lzeile = Tabelle1.Cells(Rows.Count, 5).End(xlUp).Row + 1 Else lzeile = ListBox1.Column(1) End If lIndex = ListBox1.ListIndex If Trim(TextBox2.Text) = "" Then MsgBox "Feld Anrede muss gefüllt sein!", vbCritical + vbOKOnly, "FEHLER!" 'Abbrechen der Speicherroutine Exit Sub Else boGespeichert = True With Tabelle1 .Cells(lzeile, 1).Value = TextBox1.Text 'A Verwaltuns Nr. .Cells(lzeile, 2).Value = TextBox2.Text

Private Sub UF1_Liste_Click() If boGespeichert Then Unload Me ' Userform2.UF2_Lb1.ListCount Call Userform2.UF2_Lb1_Zuweisen Userform2.Show Else MsgBox "Achtung, Daten wurden noch nicht gespeichert." End If End Sub

Hallo Tobi,
über den Button "Neu" ist das ja kein Problem. Dort einfach boGespeichert auf False setzen.

Private Sub CommandButton1_Click() 'Neu
boGespeichert = False
ClearFields
TextBox1.Text = Format(Tabelle2.Cells(2, 53) + 1, "000000")
ListBox1.ListIndex = -1
TextBox2.SetFocus
End Sub

Die Frage, ob Daten geändert wurden ist da nicht so einfach. Da müsste man ja sämtliche Eingabefelder der Userform auf Änderungen überwachen. Ich würde die Sache ganz anders angehen. Einfach generell bei Klick auf Liste überprüfen, ob boGespeichert = True, wenn ja wechsel in Userform2.
Wenn nein eine Messagebox mit entsprechendem Hinwei und Ok / Nein / Abbruch.
Klick auf Ok: Daten werden gespeichert und es wird in Userform2 gewechselt, boGespeichert wird auf False gesetzt.
Klick auf Nein: Es wird nicht gespeichert und es wird in Userform2 gewechselt.
Klick auf Abbruch: Messagebox wird geschlossen und es wird auf Userform1 verblieben.

Private Sub UF1_Liste_Click() 'Liste
Dim varAuswahl As Variant
If boGespeichert Then
Unload Me
Call Userform2.UF2_Lb1_Zuweisen
Userform2.Show
boGespeichert = False
Else
varAuswahl = MsgBox("Daten wurden noch nicht gespeichert." & vbLf _
& "Soll jetzt gespeichert werden.", vbYesNoCancel, "Hinweis")
If varAuswahl = vbYes Then
Call CommandButton3_Click
ElseIf varAuswahl = vbNo Then
Unload Me
Call Userform2.UF2_Lb1_Zuweisen
Userform2.Show
Else
Exit Sub
End If
End If
End Sub

Alle anderen Makros so lassen, nur die beiden austauschen. Schau dir das mal an.
Gruß Werner

Private Sub UF1_Liste_Click() 'Liste Dim varAuswahl As Variant If boGespeichert Then Unload Me Call Userform2.UF2_Lb1_Zuweisen Userform2.Show boGespeichert = False Else varAuswahl = MsgBox("Daten wurden noch nicht gespeichert." & vbLf _ & "Soll jetzt gespeichert werden.", vbYesNoCancel, "Hinweis") If varAuswahl = vbYes Then Call CommandButton3_Click Unload Me Call Userform2.UF2_Lb1_Zuweisen Userform2.Show boGespeichert = False ElseIf varAuswahl = vbNo Then Unload Me Call Userform2.UF2_Lb1_Zuweisen Userform2.Show Else Exit Sub End If End If End Sub

Hallo Werner,
ich habe Deinen Code geprüft. Wie Du auch bereits erwähnt hast, fragt er jetzt allerdings immer nach dem "Speichern" wenn ich bei einem vorhandenen Eintrag auf den "ListeButton" klicke. Auch wenn ich einen neuen Kontakt angelegt und gespeichert habe und dann auf den "ListeButton" klicke, fragt er nach dem "Speichern". Dein Code funktioniert somit, weil Du dieses Verhalten ja angekündigt hattest.
Ich denke aber, dass mir dieses Verhalten zu lästig ist und ich den Code lieber nicht verwenden werde. Ich danke Dir trotzdem für Deine tolle Ausarbeitung, ich wäre niemals so weit gekommen.
Trotzdem hatte ich eine Idee und hierzu würde mich Deine Meinung interessieren:
Ich habe überlegt was passiert, wenn ich den gesamten Code des "SpeicherButtons" zusätzlich in den Code des "ListeButtons" einfüge und siehe da, jetzt speichert es mir den Eintrag nicht nur bei Klick auf den "SpeicherButton" sondern auch mit Klick auf den "ListeButton".
Somit habe ich die Fehlerquelle, dass jemand einen Eintrag vornimmt, ohne zu speichern auf den "ListeButton" klickt und der Eintrag nicht gespeichert wurde, beseitigt.
Was hältst Du von dieser Gangart?

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Abfrage zum Speichern Userform

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread