Untenstehendes Makro habe ich schon einmal zum Testen ins Forum gestellt. Andre hat es getestet und keine Unreglemässigkeit festgestellt.
Wenn ich das Makro aber in Einzelschritten abarbeite (F8), erhalte ich beim Ansteuern der Anweisung
- Worksheets(1).Copy Before:=Sheets(1) - immer die Meldung
"Jetzt kann nicht in den Haltemodus gewechselt werden". Beenden oder Fortfahren.
Dies ist beim Weiterentwickeln des Makros sehr hinderlich.
Sub testen()
Application.DisplayAlerts = False
Workbooks("Mappe1").Activate: Worksheets(1).Activate: Range("A1").Select
'--- Blatt löschen
Dim Blatt As Object
'*** Loop
For Each Blatt In ActiveWorkbook.Sheets
If Blatt.Name = "test" Then
Worksheets(Blatt.Name).Delete
End If
Next Blatt
Application.DisplayAlerts = True
'*** Ende des Loops
'--- kopiert Blatt 1 an 1. Stelle mit dem Namen test
Worksheets(1).Copy Before:=Sheets(1)
ActiveSheet.Name = "test"
End Sub
Wenn ich das Makro in Einzelschritte abarbeite (F8), erhalte ich immer die Meldung
"Jetzt kann nicht in den Haltemodus gewechselt werden" Beenden oder Fortfahren.
Wer kann mir das Makro noch testen? Woran kann das liegen?
Danke und Gruss
Gregor