Hallo,
kann mir jemand sagen,was bei diesem Code, der unter Excel2000 erstellt wurde und darunter einwandfrei funktioniert, aber unter Excel 97 nicht, obwohl alles im entsprechenden Format (97-03) gespeichert wurde …
Private Sub CommandButton1_Click()
ActiveSheet.Unprotect
Range(„R1“) = Range(„R1“) + 1
ActiveSheet.Copy After:=Sheets(ThisWorkbook.Sheets.Count)
ActiveSheet.OLEObjects(„CommandButton1“).Delete
ActiveSheet.Name = „Test“ & Sheets(„Test“).Range(„R1“).Text
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Die Fehlermeldung:
Laufzeitfehler ‚1004‘: Die Copy-Methode des Worksheet-Objetes ist fehlerhaft.
Hängt dann zunächst in Zeile 4.
Danke für die Hilfe.
kann mir jemand sagen,was bei diesem Code, der unter Excel2000
erstellt wurde und darunter einwandfrei funktioniert, aber
unter Excel 97 nicht, obwohl alles im entsprechenden Format
(97-03) gespeichert wurde …
Hallo KK,
am Code liegt das nicht, es liegt an einer CommandButton-Eigenschaft,
TakeFocusOnClick.
Setze die auf False, dann klappt es.
Und, das ist kein Problem was es nach XL97 nicht mehr gibt, derartige
„Fehler“ mit/bei dem CommandButton haste auch noch in größeren
XL-Versionen. Es lohnt sich also sich das zu merken mit dem TakeFocusOnClick als mögliche Ursache wenn CB-Code nicht klappt.
Gruß
Reinhard
Hallo Reinhard,
besten Dank … das ich da nicht drauf gekommen bin … 
)
Ich werd’s mir auf jeden Fall merken!
Gruß
KK
am Code liegt das nicht, es liegt an einer
CommandButton-Eigenschaft,
TakeFocusOnClick.
Setze die auf False, dann klappt es.
Und, das ist kein Problem was es nach XL97 nicht mehr gibt,
derartige
„Fehler“ mit/bei dem CommandButton haste auch noch in größeren
XL-Versionen. Es lohnt sich also sich das zu merken mit dem
TakeFocusOnClick als mögliche Ursache wenn CB-Code nicht
klappt.
Gruß
Reinhard
Hallo KK,
besten Dank … das ich da nicht drauf gekommen bin … )
sehr schwierig darauf zu kommen wenn man den CB nicht verdächtigt.
Ich werd’s mir auf jeden Fall merken!
Ja, macht Sinn. Mag ja sein daß MS da was geändert hat ab XL2000,
soadaß da CB in Verbindung mit .Copy funktioniert ohne die Eigenschaft
auf False zu setzen.
Aber Standardmäßig steht sie auch bei höheren Versionen auf True.
Dann geschieht auch da aus gleichem Grund ein Fehler, halt nicht bei .Copy.
Ein Tipp, schreib direkt in den Code zuoberst mit Hochkomma dazu,
daß unbedingt TakeFocusOnClick auf false gesetzt werden muß.
Ansonsten kommt bei .Copy in XL97 Fehler 1004, Copy konte nicht ausgeführt werden.
Seeeeehr hilfreich wenn du in drei Monaten den Code in einem anderen Blatt benutzen willst 
Sag ich aus leidvoller eigenen Erfahrung.
Gruß
Reinhard, mit begrenzter Merkfähigkeit für das komplexe Excel
und seinen feinsten Feinheiten