Sheets Select / Copy
02.09.2004 09:50:02
Andy
Ich habe untenstehenden Code. Das TAbellenblatt "Ergebnis" (Geschützt) soll als eigenständige Datei gespeichert werden. An sich funktioniert das Kopieren und erstellen mit einem geschützten Blatt. Jedoch wird mir teilweise eine Fehlermeldung aussgegeben, dass die Copy-Methode falsch ist.
Woran kann das Liegen?
If Dir(sPath & sFile) <> "" Then
MsgBox "Es existiert bereits eine Datei " & Chr(10) & sPath & sFile _
& Chr(10) & "Bitte überprüfen Sie Ihre Grunddaten !!"
Exit Sub
Else:
Sheets("Ergebnis").Select
Sheets("Ergebnis").Copy
Danke
Andy