Makro trotz UF öffnen weiter laufen
21.05.2017 13:53:04
Sigi
das speichern einer ausgeblendeten Arbeitsmappe soll wie folgt geschehen.
1.) Es wird geprüft ob die benötigten Felder (UF) ausgefüllt sind, wenn nicht erscheint eine eigene Userform (wie MsgBox). Hierzu "Call Fehler_speichern" öffnet die UF.
Das funktioniert auch, wenn ein Fehler auftritt.
2.) Jetzt soll eine UF geöffnet werden, welche nut den Zweck hat, anzuzeigen, dass die ausgeblendete Arbeitsmappe gespeichert wird.
Sub Stamm_speichern()
Dim bytZaehler As Byte
Dim obj as Object
With UF1.mlp1.Pages(1)
For Each obj In .Controls
Select Case TypeName(obj)
Case "TextBox", "ComboBox"
If obj.BorderColor = 16711680 And obj = "" Then bytZaehler = bytZaehler + 1
End Select
Next obj
End With
If bytZaehler 0 Then
Call Fehler_speichern: Exit Sub 'UF wird geöffnet
End If
strMakro = "Stamm_sp1"
UF_Warten_speichern.Show 'UF wird geöffnet
End Sub
Private Sub UserForm_Activate() 'UF_Warten_speichern
Application.Run (sMakro) 'wie muß ich das Makro Stamm_sp1 ansprechen?
Unload UF_Warten_speichern
End Sub
code....
End Sub Vielen Dank für Eure Hilfe.
Gruß
Sigi