ich hoffe, es kann mir jemand helfen. Es geht um ein Änderungsformular für Stücklisten.
1. In Blatt "Dateneingabe" werden die zu ändernden Daten eingegeben
2. In Blatt "Vorlage" (mit Firmenlogo) werden die eingegeben Daten übernommen
3. Die Datei wird für die nächste Änderung kopiert und erhöht sich im Änderungsindex um 1.
Über ein weiteres Makro können dann Leerzeilen ein- oder ausgeblendet werden (funtioniert).
Ich habe hier im Forum schon was interessantes gefunden aber in meinem Fall funktioniert dies leider nicht ganz. Mit dem Befehl unten ("ActiveSheet.Pictures(1).Delete") wird nachher auch das Firmenlogo gelöscht.
Sub ProtectSheet()
Range("A1").Select
Range("A1:O20").CopyPicture _
Appearance:=xlScreen, _
Format:=xlBitmap
ActiveSheet.Paste
ActiveSheet.Protect
End Sub
Sub UnprotectSheet()
ActiveSheet.Unprotect
ActiveSheet.Pictures(1).Delete
End Sub
Ich hatte schon den Makrorekorder (Excel2000) gestartet und nur dieses Bild gelöscht, was dann für dieses Formular auch funktioniert. Aber dieses Formular wird für die nächste Änderung kopiert und unter neuer Version abgespeichert, dann funtioniert dies nicht mehr.
So wie es aussieht, wird dem Bild ein Namen zugewiesen, der bei dem nächsten Kopieren der Datei Probleme macht.
Wie kann ich die Zellen vor Eingabe in meinem Blatt "Vorlage" schützen?
Vielen Dank im Voraus!
Ingo