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.

Hallo Henry
erst einmal vielen Dank für Deine schnelle Hilfe. Ich bin leider erst jetzt dazu gekommen Deinen Code aus zu probieren.
Er funktioniert auch bis auf eine Kleinigkeit.
Er löscht mir an dieser Stelle immer 4 Zeilen über der eigentlichen (j) Zeile.

Wenn man den Code mit F8 durchgeht, dann sieht man das die erste Übereinstimmung im Direktbereich bei j5 ist . Das ist Zeile 7 in Tabelle2
Er löscht mir dann aber in Tabelle2 nicht Zeile 7 sondern Zeile 3.

P.S. For j = LBound(Arr2.Value2, 1) To UBound(Arr2.Value2, 1)
Die 2 hinter Value muss doch bestimmt weg, weil Tippfehler Oder?

Hallo Henry,
vielen Dank, genau das war das Problem!

Ich hoffe ich darf Dir noch ein paar Verständnisfragen stellen.
Wieso muss das Arr2 als Range und darf nicht als Variant deklariert werden?
Bisher habe ich die Arrays immer mit einer Klammer als Variant deklariert. Also z.B. Dim Arr2()
Dann hatte ich im Direktbereich immer so etwas stehen wie Arr2 : Variant(1 to 193, 1 to 10)
Was mich wundert, das das Programm so wie ich es vorher geschrieben hatte ca. 5 sec. läuft und jetzt ca. 20 sec.
Bitte nicht falsch verstehen,das soll absolut kein Vorwurf sein. Ich verstehe es nur nicht.

Ich habe Dir zum besseren Verständnis noch einmal eine kl. Test Datei angehangen. Dort habe ich simple Rechenoperationen 1x ins Array programmiert und 1x normal.
Das Array ist viel schneller, weil es zwar öfters rechnet aber nur 1x das Ergebnis im Array ausgibt. Das andere Programm gibt pro Rechnung einmal aus.
Genau das hatte ich mir auch vorgestellt, aber irgendwie bekomme ich es nicht hin.
Lg Wolfgang

Dann

OK habe ich verstanden.
Mir ist aufgefallen, das ein Variant Array viel schneller ist, als ein Code ohne Array. (Siehe Code von gestern)
Dagegen ist ein Range Array nicht schneller als ein Code ohne Array, das hatte ich ja bereits mit meinem Code und Deinem Code getestet.
Bedeutet für mich, wenn ich nur den Zellenwert kopieren möchte, dann macht ein Variant Array im Code Sinn.
Wenn ich dagegen mit Zelleninformationen arbeiten möchte, dann ist es egal ob ich ein Range Array mit in den Code programmiere oder nicht.
Oder ich stehe auf dem Schlauch....

Ich komme hier einfach nicht weiter...
Der folgende Code funktioniert. Der Inhalt der Spalte A wird nach Spalte B kopiert. Und zwar alles auf einmal.
Ich möchte aber, das auch die Zelleninformation (Sprich Zellenfarbe etc: mit kopiert wird.
Daher wollte ich es als Range Array schreiben. Wenn ich also folgende Zeilen tausche 4 mit 5; 11 mit 12; 17 mit 18.
Dann kopiert er mir in der Schleife jede Zeile einzeln und löscht nach der Schleife alles.
Was mache ich falsch oder geht das gar nicht?

Hallo petaod,
in diesem Fall hast Du natürlich Recht.
In Wirklichkeit ist die If Bedingung aber eine andere, denn es werden über zwei Tabellen Werte miteinander verglichen und es darf natürlich nicht jeder Wert zurück gegeben werden.
Ich hatte dieses Beispiel so einfach wie möglixch gewählt.
Ich hätte in Zeile 16 auch schreiben können

Das Programm soll die If Schleife durchlaufen, und die entsprechenden Zellen einmalig als Kopie ausgeben.
Lg Wolfgang

An dieser Stelle schreibt er die zwischengespeicherten Zelleninhalte von Spalte A in einem Schritt vom Array zurück in Spalte B.
Wenn ich diese Zeile weg lasse passiert garnichts.

Ich glaube ich bringe es falsch rüber was ich meine.
Wenn ich den folgenden Code mit F8 durchgehe, dann geht das Programm zuerst die kompl. If Schleife durch, aber ohne jedesmal den Zelleinhalt bei beim Zutreffen der Bedingung von A nach B zu kopieren.
Das macht er Einmalig erst in Zeile 23.
Wenn ich dann wie gesagt die auskommentierten Zeilen also 4 durch 5; 11 durch 12; 17 durch 18 ersetze, dann kopiert er bereits in der If Schleife die Werte von A nach B, wenn die Bedingung zutrifft.

Aber dann kann ich das Array auch kompl. weg lassen uns es standartmäßig so programmieren.
Ist bei 1500 Zeilen genau so schnell wie die andere Variante. Ich erkenne dann keinen Vorteil mehr etwas im Array zu programmieren.

Vielen Dank petaod
jetzt habe ich es endlich verstanden.
Ich muss mich ab jetzt mit der Deklarierung der Variablen und welche Informationen sich hinter den Formaten verstecken, viel mehr beschäftigen.

Das ich nicht extra die Tabelle1 als Variable deklarieren muss ist etwas was selbst ich weiss. Ich habe halt einfach nen Teil aus dem ganzen Programm kopiert und daduch ist es mit drin gewesen.
Ich mache es aber sonst auch gerne wegen der Übersicht. Denn normalerweise heißen die Tabellenblätter nicht Tabelle1 ; 2; 3 .... wie im VB Explorer sondern "Analysatorreservierung" etc.
Dann spare ich mir jedesmal z.B. zu schreiben Sheets("Analysatorreservierung").

Ja, den Unterschied kenne ich.
Unter Eigenschaften im VB Explorer kann ich den Objektnamen ändern.
In Zukunft werde ich dort direkt den gewünschten Namen vergeben, dann kann ich mir das mit dem Dim Tabelle_xy as Worksheet sparen.