mit dem nachfolgenden Code versuche ich eine Kopie eines Mustersheets zu machen. Offensichtlich durch den Übergebenen Wert kommt es zu einem Fehler "Jezt kann nicht in den Haltemodus gewechset werden"; Abbruch bzw Fortfahren . Machmal erscheint ein weiterer Fehler, manchmal folgt der Absturz.
Wer kann mir helfen ?
Danke.
Matthias
Sub u()
Call Sheets_erweitern("SIE")
End Sub
Sub Sheets_erweitern(ByVal Ticker As String)
'auf Basis des Master-Sheets wird eine neues Sheet angelegt
[Master].Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = Ticker
ActiveSheet.Range("A1") = Ticker
End Sub