Ich verwende folgendes Makro:
Sub testen()
Application.DisplayAlerts = False
Workbooks("Mappe3").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 vorlage an 1. Stelle mit dem Namen laufende Projekte
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 testen? Woran kann das liegen?
Danke und Gruss
Gregor