In der Angehängten Datei habe ich mit Sub Status_1 ein Programm geschrieben, was die SN: Nr. aus Spalte F & den Status Spalte I vom Blatt "geplante Analysatoren (2)" ins Blatt "geplante Analysatoren" überträgt.
Und zwar dann wenn die Artikel Nr. Spalte D der beiden Blätter übereinstimmen. Bei Übereinstimmung wird die SN: Nr. ohne Formatierung und der Status mit Formatierung kopiert. Gleichzeitig wird die betroffene Zeile aus Blatt "geplante Analysatoren (2)" gelöscht.
Das Programm funktioniert einwandfrei. Da die originale Datei aber viel länger ist, dauert mir der Code zu lange. Daher hatte ich mit überlegt, das ganze im Array zu programmieren.
Dazu habe ich 2 weiter Subs geschrieben (Status_2 & Status_3)
Beim Sub 2 funktioniert die folgende Zeile noch also das kopieren ohne Formatierung
Beim kopieren mit Formatierung und das löschen der Zeile meldet das Programm mir einen Fehler. Auch andere copy paste Methoden funktionierten nicht.
Beim Sub 3 funktioniert auch das kopieren ohne Formatierung schon nicht mehr.
Ich habe jetzt schon mehrere Tage verschieden Codes ausprobiert. Leider ohne Erfolg. Kann mir hier bitte jemand weiter helfen.
Lg Wolfgang
P.S. Das Blatt Archiv habe ich dran gehangen, damit man schneller wieder ausprobieren kann, weil das Programm ja die Zeilen löscht.
Und zwar dann wenn die Artikel Nr. Spalte D der beiden Blätter übereinstimmen. Bei Übereinstimmung wird die SN: Nr. ohne Formatierung und der Status mit Formatierung kopiert. Gleichzeitig wird die betroffene Zeile aus Blatt "geplante Analysatoren (2)" gelöscht.
Das Programm funktioniert einwandfrei. Da die originale Datei aber viel länger ist, dauert mir der Code zu lange. Daher hatte ich mit überlegt, das ganze im Array zu programmieren.
Dazu habe ich 2 weiter Subs geschrieben (Status_2 & Status_3)
Beim Sub 2 funktioniert die folgende Zeile noch also das kopieren ohne Formatierung
Beim kopieren mit Formatierung und das löschen der Zeile meldet das Programm mir einen Fehler. Auch andere copy paste Methoden funktionierten nicht.
Beim Sub 3 funktioniert auch das kopieren ohne Formatierung schon nicht mehr.
Ich habe jetzt schon mehrere Tage verschieden Codes ausprobiert. Leider ohne Erfolg. Kann mir hier bitte jemand weiter helfen.
Lg Wolfgang
P.S. Das Blatt Archiv habe ich dran gehangen, damit man schneller wieder ausprobieren kann, weil das Programm ja die Zeilen löscht.
Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „Parawolli“ ()