Office: Userform mit MsGBox schließen

Hallo zusammen,

wie kann ich die UserForm1 schließen lassen, wenn ich bei der MsGBox mit okay bestätige?

Bei meinem Code klappt es nicht.

Private Sub CommandButton1_Click()
Dim varFrage As Variant
If ComboBox1.ListIndex > -1 Then
varFrage = MsgBox(prompt:="Soll der Eintrag wirklich gel?scht werden?", Buttons:=vbYesNo, Title:="L?schen der Daten")
If varFrage = vbYes Then
'Abfrage mit der MsgBox und wenn ja, dann l?schen und MsGBox und UserForm schlie?en, wenn nein dann MsgBox schlie?en
With Worksheets("Daten")
.Range(.Cells(ComboBox1.ListIndex + 3, 1), .Cells(ComboBox1.ListIndex + 3, 13)).ClearContents
End With
Unload Me
Unload UserForm1
' ThisWorkbook.Close False
Else
MsgBox "Es werden keine Daten gel?scht."
End If
End If
End Sub

:)

 

Code:

 

Hi,

(durchstreichen)
der MsgBox kannst noch weitere Eigenschaften wie zB Text in Titelleiste setzen.

https://docs.microsoft.com/de-de/off...sgbox-function
(/durchstreichen)

...was Du auch schon machst. Sorry, zu eifgrig geantwortet


gruß

 

Hallo Berni,

ich habe den Code entsprechend geändert, doch es passiert nichts. *eek.gif* *wink.gif*


Private Sub CommandButton1_Click()
Dim varFrage As Variant
If ComboBox1.ListIndex > -1 Then
varFrage = MsgBox(prompt:="Soll der Eintrag wirklich gel?scht werden?", Buttons:=vbYesNo, Title:="L?schen der Daten")
If varFrage = vbYes Then
'Abfrage mit der MsgBox und wenn ja, dann l?schen und MsGBox und UserForm schlie?en, wenn nein dann MsgBox schlie?en
With Worksheets("Daten")
.Range(.Cells(ComboBox1.ListIndex + 3, 1), .Cells(ComboBox1.ListIndex + 3, 13)).ClearContents
End With
Unload Me
If MsgBox("Es werden keine Daten gel?scht", vbYesNo) = vbYes Then
UserForm1.Hide
End If
' ThisWorkbook.Close False
Else
MsgBox "Es werden keine Daten gel?scht."
End If
End If
End Sub

 

Hi Mase,

alles klar und Dankeschön!

Gruß Olero

 

Du hast meinen Code (den ich schnell schnell, ohne deinen Code zu lesen geschrieben habe) einfach ungeprüft übernommen - da haben wir uns beide ausgezeichnet.

Wieso das aber bei dir nicht funktionieren soll, kann ich dir nicht sagen. Dazu müsste man deine Mappe kennen.
Hast du denn den CommandButton1 wirklich auf dem Userform1? Und heißt das offene Userform auch wirklich "Userform1"?

 

Hallo Berni,

der Code ist in Userform1 drin und die heißt auch so.

Ich habe die Datei mal mit eingepackt.

 

Moin,

bei mir funktionierts auch in deiner Testdatei. Es ist natürlich mäßig geeignet, die gleiche Abfrage zweifach zu starten, aber grundsätzlich wird die UserForm geschlossen, wenn die Erste Abfrage mit Nein, die zweite Abfrage mit OK und die dritte Abfrage mit Ja beantwortet wird.

VIele Grüße
derHöpp

 

Ja Hallo,

ich habe es jetzt in der Datei auch probiert und es klappt.
Ich hatte da noch eine andere Datei und da ist ein Fehler im Code gewesen.

Dankeschön euch noch einmal für eure Hilfe.
Echt Prima

Gruß Olero

 

Hallo zusammen,

irgendwie klappt es bei meiner MsgBox nicht mit dem schließen dieser bei Auswahl "Ja".

Es werden die Daten dann gelöscht in der Userform, aber es kommt eine neue MsgBox "Es werden keine Daten gelöscht" "Ja/Nein". Ich möchte gerne, dass diese Box nicht kommt, sondern nur der Eintrag gelöscht wird eine weitere MsgBox zurück gibt, dass der Eintrag gelöscht ist und man dann mit "ok" bestätigt und die MsgBox sich schließt.
Ich komme da mit meinem Latein leider nicht weiter.

Hier einmal der bisherige Code.

Private Sub CommandButton1_Click()
Dim varFrage As Variant
If ComboBox1.ListIndex > -1 Then
varFrage = MsgBox(prompt:="Soll der Eintrag wirklich gelöscht werden?", Buttons:=vbYesNo, Title:="Löschen der Daten")
If varFrage = vbYes Then
'Abfrage mit der MsgBox und wenn ja, dann löschen und MsGBox und UserForm schließen, wenn nein dann MsgBox schließen
With Worksheets("Daten")
.Range(.Cells(ComboBox1.ListIndex + 3, 1), .Cells(ComboBox1.ListIndex + 3, 13)).ClearContents
End With
Unload Me
If MsgBox("Es werden keine Daten gelöscht", vbYesNo) = vbYes Then
UserForm1.Hide




End If
End If
End If
End Sub

 

Hallo,

Code:

 

Hallo Olero,

geänderter Code für Userform1 - müsste funktionieren.
Code:

Grüße
evus

 

Hallo Uwe,

Danke für deine Hilfe. Klappt echt super.

Gruß Olero

 

Hallo Evus,

der Code klappt und ist echt super die Hilfe.

Ganz großes Dankeschön.

Gruß Olero