Laufzeitfehler 13
Stan
Private Sub Cmb_nein_Click()
frm_Eingabe.Eintragen
Unload frm_valid
Dim wb As Workbook
For Each wb In Application.Workbooks
If Not wb.Name = "Eingabemaske Nachschubprobleme.xls" Then
wb.Close False
End If
Next
MsgBox ("Ihre Daten wurden übertragen! Bitte speichern sie die Dateien!")
frm_Eingabe.beenden
End Sub
Es kommt unterschiedlich oft. Mit was kann es zusammenhängen?
Danke für Eure Hilfe.
Gruß Stan
Anzeige