Ich habe folgendes Problem :
Wird bei dem ersten Makro die Abfrage mit Ja beantwortet, sollte normalerweise die Userform11 geschlossen werden und danach die Abfrage vom zweiten Makro erfolgen.
Mein Problem ist: DIESE UserForm11 schließt sich vor dem Öffnen der zweiten Abfrage nicht. Warum bitte nicht, wenn ich Unload UserForm11 vor "Call KurKurz" setze?
Danke
Josef
Sub Loesch_Kurztext()
Dim wks As Worksheet
Set wks = Workbooks("Masterfile.xls").Worksheets("Ausprägungen")
Dim mldg, stil, titel, grc
mldg = "Ist der Eintrag korrekt"
stil = vbYesNo + vbCritical + vbDefaultButton2
titel = "Frage ?"
grc = MsgBox(mldg, stil, titel)
If grc = vbYes Then
Unload UserForm11
wks.Cells(Rows.Count, 2).End(xlUp)(2, 1).Select
Call KurKurz
Exit Sub
Else
If grc = vbNo Then
Unload UserForm11
Call Del_Ausprägung_Kurztext
UserForm11.Show
End If
End If
End Sub
Sub KurKurz()
Dim wks As Worksheet
Set wks = Workbooks("Masterfile.xls").Worksheets("Ausprägungen")
Dim mldg, stil, titel, grc
mldg = "Soll ein GW HO-Kürzel eingetragen werden?"
stil = vbYesNo + vbCritical + vbDefaultButton2
titel = "Frage ?"
grc = MsgBox(mldg, stil, titel)
If grc = vbYes Then
UserForm5.Show
Exit Sub
Else
If grc = vbNo Then
Exit Sub
End If
End If
End Sub