Misteriöser Fehler
22.10.2004 16:41:55
Matthias
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
Anzeige