Public
Sub
aaa()
Dim
IMPORTDATEI
As
String
, Blatt
As
String
Blatt =
"IMP01"
Application.DisplayAlerts =
False
Application.ScreenUpdating =
False
Sheets(
"wait"
).Visible =
True
Sheets(Blatt).Visible =
True
Sheets(Blatt).Delete
Sheets.Add Before:=Sheets(
"Menü"
)
ActiveSheet.Name = Blatt
ActiveWindow.DisplayGridlines =
False
Sheets(Blatt).Visible =
False
Application.DisplayAlerts =
True
Application.ScreenUpdating =
True
Sheets(
"wait"
).Activate
MsgBox (
"Bitte wählen Sie die AnaCredit Bundesbank-Datei aus."
& Chr(13) &
"(Sollte *.xml-Datei sein)"
)
End
Sub