displayalert geht nicht aus

Liebes Forum,
meine letzte Frage wurde super beantwortet, leider habe ich mir für mein Dankesschreiben so lange Zeit gelassen, dass mein Beitrag im Archiv lag.
Ich habe ein wenig mit Excel und VBA experimentiert und schreibe auch kleine Tabellen jetzt für mich auf Arbeit.
Jetzt habe ich einen Code, in dem ich die Displayalert aus schalten möchte. Zum Testen habe ich alles auf

Sub einschaltewn()
Application.EnableEvents = False
Application.DisplayAlerts = False
Application.EnableEvents = True
Application.DisplayAlerts = True
End Sub

reduziert.
Wenn ich mit F8 durch die Zeilen hüpfe und bei "Application.EnableEvents = True" bin, zeigt er mir an, dass "DisplayAlerts" immer noch wahr ist.
Im langen Code habe ich das selbe Problem, er setzt es einfach nicht als Falsch.
Google hilft mir leider nicht weiter.
Ein ähnliches Problem habe ich beim Forschen noch festgestellt. Wenn ich die Makrobremse mit "with application" nutze, lässt er EnableEvents auch auf wahr.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Wetten, dass

07.03.2016 15:02:56

RPP63

AW: Überredet

08.03.2016 08:17:41

Stefan

Warum so kompliziert?

08.03.2016 09:18:36

RPP63

AW: Warum so kompliziert?

08.03.2016 10:31:15

Stefan

Ich muss weg

08.03.2016 10:43:12

RPP63

Der Direktbereich bestätigt deine Theorie, das soll einer wissen.
Nachdem diese Idee dann nicht stimmt, brauche ich doch etwas umfangreicher eure Hilfe.
Ich habe im letzten Beitrag einen Stundennachweis für Ehrenamtliche geschrieben. Jetzt nach 2 Monaten hat sich heraus gestellt, dass dieser mit VBA-Code sehr kompliziert ist (zum Beispiel wird bei jedem Speichern eine andere Datei geöffnet), wollte ich ihn jetzt aus allen (ich glaube 50) bereits benutzten Nachweisen wieder entfernen.

Sub umbenennen()
Dim fs As Object
Dim fVerz As Object
Dim fDatei As Object
Dim fDateien As Object
Dim StatusCalc As Long
Dim DateiName As String
Dim wkbAktuell As Object
Set fs = CreateObject("scripting.filesystemobject")
Set fVerz = fs.getfolder(ThisWorkbook.Path)
Set fDateien = fVerz.Files
With Application
.EnableEvents = False
.DisplayAlerts = False
'    .ScreenUpdating = false
'   StatusCalc = .Calculation
'  .Calculation = xlCalculationManual
End With
Debug.Print Application.DisplayAlerts
Debug.Print Application.EnableEvents
For Each fDatei In fDateien
If InStr(fDatei, "") > 0 And Not Right(fDatei.Name, 15) = "umbenennen.xlsm" Then 'hier gibt  _
es sicher eine elegantere Lösung,
'um nicht  _
die eigene Datei zu löschen
Set wkbAktuell = Excel.Application.Workbooks.Open(fDatei)
DateiName = fDatei.Name
DateiName = Left(DateiName, InStrRev(DateiName, ".") - 1)
wkbAktuell.SaveAs fVerz & "/" & DateiName, FileFormat:=51
wkbAktuell.Close
'fDatei.Delete
End If
Next fDatei
With Application
.EnableEvents = True
.DisplayAlerts = True
'     .ScreenUpdating = True
'     .Calculation = StatusCalc
End With
MsgBox "ende"
End Sub

...ist meine Idee um den Code zu entfernen, und die Dateien ohne Makros zu nutzen.
Da Excel mein Freund und Helfer ist, warnt er mich trotzdem (ich hoffte, dass DisplayAlerts mir die Nachfrage erspart) dass ein Speichern im xlsx die Makros unwiederruflich löscht.
Wie erkläre ich Excel, dass ich mir dieser Gefahr bewusst bin und er einfach macht was ich möchte.

Beliebteste Forumthreads (12 Monate)

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread