Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1672to1676
1672to1676
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bei Klick auf Button "Neu" Abfrage nach Speichern

Forumthread: Bei Klick auf Button "Neu" Abfrage nach Speichern

Bei Klick auf Button "Neu" Abfrage nach Speichern
13.02.2019 14:47:39
Tobi
Hallo Zusammen,
ich wäre wieder einmal für Eure Hilfe dankbar, weil ich aufgrund meiner geringen Kenntnisse alleine leider nicht weiterkomme.
Ich möchte gerne verhindern, dass wenn jemand versehentlich vor dem Speichern eines neuen Datensatzes auf den Button "Neu" oder auf die "Listbox" klickt, eine Abfrage erscheint, ob der neue Datensatz gespeichert werden soll oder nicht und bei der Auswahl "Ja" auch gleich gespeichert und bei "Nein" verworfen wird.
Ich denke der entsprechende Code muss wohl in den Button "Neu" rein aber alle Versuche waren bisher erfolglos.
Vielleicht hat jemand eine Idee.
Liebe Grüße Tobi
https://www.herber.de/bbs/user/127626.xlsm
Anzeige

22
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bei Klick auf Button "Neu" Abfrage nach Speichern
13.02.2019 14:57:11
ede
Hallo,
dann setz doch in Private Sub CommandButton1_Click() auf:
CommandButton1.Enabled = False
und beim Speichern wieder auf:
CommandButton1.Enabled = True
AW: Bei Klick auf Button "Neu" Abfrage nach Speichern
13.02.2019 15:13:42
Tobi
Hallo Ede,
das war eine gute funktionierende Idee! Ich werde mal austesten, ob das Verhalten insgesamt geeignet ist.
Ich danke Dir herzlich für Deine Hilfe und werde diesen Thread als erledigt markieren.
Liebe Grüße Tobi.
Anzeige
AW: Bei Klick auf Button "Neu" Abfrage nach Speichern
13.02.2019 15:18:18
Tobi
Hallo Ede,
hier doch noch ein Problem. Deine Lösung war in der Hinsicht gut, dass man jetzt nicht mehr auf "Neu" klicken kann, bevor nicht gespeichert wurde. Allerdings kann man ja noch vor dem "Speichern" versehentlich auf einen Eintrag in der Liste klicken und dann sind die gemachten Einträge auch wieder weg. Gibt es da auch eine Lösung?
Liebe Grüße Tobi
Anzeige
AW: Bei Klick auf Button "Neu" Abfrage nach Speichern
13.02.2019 15:36:18
ede
hallo nochmal,
das musst du natürlich in dem entsprechendem Ereignis abfangen... 

Private Sub ListBox1_Click()
Dim lzeile As Long
If Not CommandButton1.Enabled Then
MsgBox "sie sind in der Neuanlage...., daten gehen verloren"
CommandButton1.Enabled = True
End If

Anzeige
AW: Bei Klick auf Button "Neu" Abfrage nach Speichern
13.02.2019 15:56:41
Tobi
Hallo Ede,
Du bist ein "Käpsele" vielen Dank. Das funktioniert fast perfekt bis auf ein Problem, dass er mir jetzt die eingegebenen Daten mit Klick auf "ok" in der MsgBox verwirft.
Gibt es denn eine Möglichkeit, dass er mit der MsgBox nach "Ja" oder "Nein" abfragt und bei "Ja" speichert und bei "Nein" verwirft?
Es wäre auch schon ausreichend, wenn auf den KLick mit "OK" die eingegebenen Daten nicht verworfen werden.
Vielen Dank für Deine bisherige große Hilfe.
Liebe Grüße Tobi
Anzeige
AW: Bei Klick auf Button "Neu" Abfrage nach Speichern
13.02.2019 16:12:03
Tobi
Hallo Ede,
mit Exit Sub glaube ich das Problem gelöst zu haben. Ich werde mich, wenn ich so damit zu recht komme, nochmals melden.
Vielen Dank vorerst.
Liebe Grüße Tobi
AW: Bei Klick auf Button "Neu" Abfrage nach Speichern
13.02.2019 16:15:06
Tobi
Hallo Ede,
das ist leider wider Erwarten doch keine Lösung mit Exit Sub.
Grüße Tobi
AW: Bei Klick auf Button "Neu" Abfrage nach Speichern
14.02.2019 07:35:09
ede
Guten Morgen,
dann ändere bitte den Aufruf so: 

Private Sub ListBox1_Click()
Dim lzeile As Long
If Not CommandButton1.Enabled Then
If MsgBox("Daten noch nicht gesichert, sollen diese gespeichert werden?", _
vbYesNo, "Datensatz speichern") = vbYes Then
Call CommandButton3_Click       'speichern klicken
End If
CommandButton1.Enabled = True   'Button1 aktivieren
End If
ClearFields

Anzeige
AW: Bei Klick auf Button "Neu" Abfrage nach Speichern
14.02.2019 07:40:48
ede
bitte auch beim speichern den button1 aktivieren...

Private Sub CommandButton3_Click()
'Eintrag speichern
Dim lzeile As Long, lIndex As Long
CommandButton1.Enabled = True
If ListBox1.ListIndex = -1 Then

AW: Bei Klick auf Button "Neu" Abfrage nach Speichern
13.02.2019 17:25:42
onur
Dann poste mal eine Datei, mit der man auch arbeiten kann,
Deine Beispielsdatei hat weder irgend einen Button noch korrekte Datensätze.
Es müssen ja nicht viele sein, aber wenigstens so aufgebaut wie in der Datenmaske (Userform).
Anzeige
AW: Bei Klick auf Button "Neu" Abfrage nach Speichern
13.02.2019 19:36:21
Tobi
Hallo Onur,
so ganz verstehe ich Deine Informationen nicht. Die UserForm enthält alle relevanten Buttons, die für die Lösung meiner Frage benötigt werden. Es handelt sich hierbei um keine gekürzte Version, in der etwas weggelassen wurde. Darin sind aktuell 3 Datensätze angelegt, mit denen doch sicher getestet werden kann, auch wenn diese nicht vollständig ausgefüllt sind. Eine vollständige Befüllung ist doch bestimmt nicht maßgebend für das was ich benötige, oder?
Anzeige
AW: Bei Klick auf Button "Neu" Abfrage nach Speichern
13.02.2019 19:40:37
onur
Wenn ich deinen Code anaysieren soll, muss ich ihn auch testen können.
Ist es denn zu viel verlangt, 3-4 Zeilen (anonymisiert) aus der Originaldatei inkl. richtigem Spaltentext in die Datei zu kopieren, damit ich unter Realbedingungen testen kann?
AW: Bei Klick auf Button "Neu" Abfrage nach Speichern
13.02.2019 19:47:28
Tobi
Onur,
ich habe doch die Orginaldatei (UserForm) als Link angehängt, was genau benötigst Du denn noch?
Anzeige
AW: Bei Klick auf Button "Neu" Abfrage nach Speichern
13.02.2019 19:49:38
Tobi
Ich kann die UserForm gerne noch mal anhängen, es gibt nichts aber auch gar nichts zu verstecken.
https://www.herber.de/bbs/user/127642.xlsm
AW: Bei Klick auf Button "Neu" Abfrage nach Speichern
13.02.2019 19:52:17
onur
Hast Recht - sorry, habe nur 5-6 Spalten gesehen, da nach rechts gescrollt war.
AW: Bei Klick auf Button "Neu" Abfrage nach Speichern
13.02.2019 19:54:04
Tobi
Onur,
das macht gar nichts, deshalb redet man ja miteinander, kein Thema.
Anzeige
AW: Bei Klick auf Button "Neu" Abfrage nach Speichern
13.02.2019 23:50:31
Tobi
Hallo Onur,
vielen Dank für Deine Arbeit. Sicher wird damit unterbunden, dass man vor dem Speichern eines neuen Kontakts auf den Button "Neu" oder auf die "Listbox" klicken kann und der noch nicht gespeicherte Eintrag versehentlich weg ist. So gesehen ist das eine Lösung.
Leider ist diese Lösung aber auch recht nervig, weil jetzt die MsgBox auch nach jedem Klicken auf die ListBox abfragt.
Folgende Überlegung:
Ede hatte mir ja bereits beim Button "Neu":
CommandButton1.Enabled = False und beim Button "Speichern":
CommandButton1.Enabled = True und in die ListBox:
If Not CommandButton1.Enabled Then MsgBox "sie sind in der Neuanlage...., daten gehen verloren" CommandButton1.Enabled = True
End If
vorgeschlagen.
Die MsgBox meldet sich in diesem Fall wenn ich auf die Listbox klicke. Leider gehen jetzt die eingegebenen Daten verloren wenn ich die MsgBox mit "OK" bestätige.
Meine Fragen:
Kann man denn genau diese Meldung so codieren, dass eine JA/NEIN - Abfrage erscheint und ich beim Klick auf "JA" in der MsgBox gleich abspeichere?
Beispiel:
Neuanlage: Es werden Daten eingegeben - jetzt klickt jemand vor dem Speichern dieser Daten aus Versehen auf einen Namen in der ListBox - jetzt erscheint die MsgBox und fragt: Möchten Sie den eingegebenen Datensatz speichern? Ja oder Nein - Ich klicke auf "NEIN" und es wird nicht gespeichert und die Daten sind weg - Ich klicke auf "JA" und die Daten werden gespeichert.
Oder was noch akzeptabel wäre:
Wenn ich die MsgBox mit "Ok" bestätige aber die eingegebenen Daten nicht weg sind.
Die Kontaktliste mit Ede´s Code als Link unten.
Vielleicht kannst Du durchdringen aber auch wenn nicht, danke ich Dir tausend mal für Deine bisherige Hilfe, das war sehr nett von Dir.
https://www.herber.de/bbs/user/127647.xlsm
Anzeige
AW: Bei Klick auf Button "Neu" Abfrage nach Speichern
14.02.2019 00:07:43
onur
Sorry, aber dafür ist mir dein Code zu chaotisch - ich müsste zu viel ändern.
z.B. Warum rufst du dauernd Userform_Initialize auf? Sie sollte nur 1x inialisiert werden, und zwar durch Userform.Show.
Wenn sich die Userform dauernd selbst initialisiert, gibt das nur Chaos.
AW: Bei Klick auf Button "Neu" Abfrage nach Speichern
14.02.2019 00:28:11
Tobi
Hallo Onur,
danke für Deine Mühe. Bis jetzt hat die UF prima funktioniert, bis eben auf diese Änderung bzw. Sicherheitsmaßnahme gegen versehentliches Klicken. Es wird genau 2 Mal initialisiert, UF1 und UF2 und das ist bedingt durch den Code insgesamt.
Liebe Grüße Tobi
Anzeige
AW: Bei Klick auf Button "Neu" Abfrage nach Speichern
14.02.2019 11:40:37
Tobi
Ich lass den Thread offen, vielleicht hat ja noch jemand eine Idee.
AW: Bei Klick auf Button "Neu" Abfrage nach Speichern
14.02.2019 16:00:10
Tobi
Selber erledigt, vielen Dank !

Forumthreads zu verwandten Themen

Beim Klick auf Abbrechen Makro beenden
chandler

Hallo,
wenn im nachfolgenden Makro auf die Schaltfläche Abbrechen geklickt wird bleibt das Makro stehen und wird nicht beendet. On Error Resume Next hilft nicht. Sub Test() 'Test ChDrive Left(CurDir, 1) ChDir CurDir Dim z As Range Dim search As String Set wbtarget = ThisWorkbook.Worksheets...
05.11.2012 14:39:02
Thread-ID: 1285354
5 Beiträge
Optionsbutton ausblenden funzt nur bei klick
EarnyToLearny

Liebe Excel-Profis,
es sollen 2 Optionsbuttons (nicht aus Formular erstellt) ausgeblendet werden, wenn ein Wert 1 in Zelle R25 steht. Funktioniert mit folgenden Code: Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.ScreenUpdating = False If Sheets("Tabelle1").Range(...
26.01.2013 17:07:38
Thread-ID: 1296107
5 Beiträge
userform bei klick auf button Uhrzeit in Zelle
Andreas

Hallo liebe fleißige Helfer.
Ich bastel gerade an einem VBA-Code der mir Verkehrszählungen vereinfachen soll. Ich nutze eine userform und wenn ich auf den button "pkw" klicke erhöht es mir ein Textfeld um ein. soweit so gut.
Nun möchte ich aber am ende ein zählprotokoll haben, bei dem i...
27.08.2014 16:05:10
Thread-ID: 1378511
33 Beiträge
Bei Klick auf Checkbutton soll Gedruckt werden
Langmantl

Hallo,
bei Klick auf Checkbutton soll selektiert werden, ob die Datei in Farbe oder in Schwarzweiß gedruckt wird und es soll mittels inputbox die Anzahl der kopien definierbar sein, danach drucken.
Wie lautet hierzu der Code?
05.11.2014 14:49:50
Thread-ID: 1390643
3 Beiträge
Anzeige
Klick auf CommandButton, Link nicht öffnen
Propman

Hallo,
ich habe eine kleine Testdatei hier aufgebaut:
https://dl.taikocloud.com/download.php?id=115&token=EkfT3Bffiltj4gpJfsfDbzEfW6dkU4Jp
(Wie schon mehrfach geschrieben ist es mir leider nicht möglich vom Mac aus irgendwelche Dateien bei Herber hochzuladen, weder mit Safari no...
01.03.2015 12:15:54
Thread-ID: 1412078
3 Beiträge
Aufrufenden cmdButton eines UF bestimmen
Wusel

Hallo zusammen,
ich habe mal wieder ein kleines Problem und hoffe man kann mir hier weiterhelfen :)
Ich habe ein Userform(UF1) gebaut und möchte dies nun von 2 verschiedenen anderen Userforms(UF2/UF3) aufrufen. Je nachdem ob UF2 oder UF3 aufruft soll UF1 aber anders befüllt werden. Jetz...
03.06.2015 22:27:42
Thread-ID: 1429182
5 Beiträge
Button auf Homepage klicken
Hermann

Hallo zusammen,
nach erfolgloser Suche & Testen habe ich es nun aufgegeben und benötige Hilfe von einem Experten.
Ich möchte mittels eines VBA einen bestimmten Button auf dieser Homepage klicken: "http://www.unternehmen24.info/Firmeninformationen/DE/4232667"
Freue mich um Suppor...
30.06.2016 18:28:50
Thread-ID: 1501912
4 Beiträge
Button auf Webseite anklicken (Firefox) - Teil
Markus

Hallo,
ich verwende folgenden Code, um eine Webseite in Firefox zu öffnen.
Das funktioniert soweit, mein Problem sind nur die letzten drei Zeilen (nach Shell...). Hier möchte ich einen Button auf der Webseite anklicken. In IE würde ich das über ein Object machen, aber ich weiss nicht,...
24.04.2017 11:15:01
Thread-ID: 1554333
3 Beiträge
Klick auf Listbox unterbinden
Sarah

Hallo Zusammen,
ich habe eine Suchfunktion, die eine Datei durchsucht und anschließend in der Listbox ausgibt. Mit Klick kann der entsprechende Datensatz zur Änderung übernommen werden.
Sollte die Suche keinen Erfolg haben, dann wird "Kein Eintrag" ausgegeben. Allerdings kann dies in de...
19.12.2017 13:30:02
Thread-ID: 1598054
3 Beiträge
klick auf Button fügt Zeile darunter
Michael

Hallo,
ich möchte beim aktivieren eines Buttons die Zeile mit Inhalt kopieren und darunter einfügen. Dabei sollen alle darunter stehenden Zeilen entsprechend weiterrutschen.
Es handelt sich um die Zeile in der der Button sich befindet. Also sinngemäß wie: Sub Zeileeinfügen() Zeile der...
29.10.2018 13:02:41
Thread-ID: 1654107
2 Beiträge
Anzeige
klick auf Button fügt Zeile darunter
Michael

Hallo,
ich möchte beim aktivieren eines Buttons die Zeile mit Inhalt kopieren und darunter einfügen. Dabei sollen alle darunter stehenden Zeilen entsprechend weiterrutschen.
Es handelt sich um die Zeile in der der Button sich befindet. Also sinngemäß wie: Sub Zeileeinfügen() Zeile der...
29.10.2018 13:10:32
Thread-ID: 1654109
7 Beiträge
Spalten ein- und ausblenden auf Klick
Joachim

Hallo zusammen,
ich möchte einen Belegungsplan erstellen und wo belegte Tage belegt gekennzeichnet sind (Farbe und "X"). Mit "Klick" auf die Zelle mit dem "X" (quasi Tagesdatum) in sollen die ausgeblendenen Spalten mit gleichem Tagesdatum rechts daneben eingeblendet und sichbar werden, so d...
06.11.2018 12:30:37
Thread-ID: 1655697
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige