Problem msgBOX und INPUTBOX
21.04.2006 10:46:24
helena
kleines Problem evtl. habe ich schlechte Lösung, Makro funktioniert soweit
hat aber Schönheitsfehler, MSGBOX1 kommt JA/NEIN wenn JA kommt INPUTBOX aber MSGBOX bleibt stehen könnte ja weggehen anschliessend kommt nochmals MSGBOX zu Info, aber jetzt sind 3 BOXEN auf Screen !!!
gibt es da Lösung MSGBOX1 wenn JA -->INPUT öffnet MSG geht weg --> INPUT erledigt OK INPUTBOX geht weg ---> MSGBOX2 erscheint
also kurz Stepweise verabeitung und nicht Screenfüller
Sub beenden()
Application.ScreenUpdating = False
Dim strQuest As String
Dim neuName As String
Dim Speicherpfad As String
Sheets("Grundblatt").Unprotect "xxx"
Speicherpfad = Sheets("Grundblatt").Range("B30").Value
strQuest = MsgBox("Sind Sie sicher alle Mc-Typen ausgewählt ? schliessen von Konfigurator" & _
" alles gewählt JA / NEIN wenn NEIN keine Speicherung ?", vbYesNo + vbQuestion, " JA dann bestätigen")
'Wenn die Abfrage mit "Nein" bestätigt wird,
'wird die Prozedur mit dem nächsten Befehl abgebrochen.
If strQuest = vbNo Then Exit Sub
Sheets("Grundblatt").Unprotect "xxx"
Windows("works_für_Konfig_V8.xls").Activate
neuName = InputBox("Unter welchem Namen soll die Datei gespeichert werden?")
Application.ScreenUpdating = False
ActiveWorkbook.SaveAs Filename:=Speicherpfad & neuName & ".xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
MsgBox " Die Datei wurde unter " & Speicherpfad & "\" & neuName & ".xls gespeichert !", vbInformation
Windows("KonfiguratorIBS_v8.xls").Activate
ActiveWorkbook.Close SaveChanges:=False '(oder False, je nachdem)
Application.ScreenUpdating = True
End Sub
gruss helena
Anzeige