Ich bekomme einen 1004 Fehler hier: Set rngS = rngS.Offset(1).Resize(rngS.Rows.Count - 1) 'zu kopierende Datensätze

Ich habe nochmals die Datei hochgeladen, die Ergebnisse beinhaltet, die nach dem Durchlaufen des Scriptes erzeugt wurden. Ich glaube, dass ich kann noch nicht sagen, ob wir auf der selben Linie sind, was die Aufgabe betrifft.

Aufgabe (diese ist jetz vollkommen unabhängig von der ursprünglichen Frage/ Bitte):

Das ist die Datei mit 2 worksheets und jeweils 1 Datensatz im worksheet in diesem Format. Die Datensätze in den Spalten mit den Namen "Target", "Acqiror" und "Vendor" müssen die Datensätze jeweils in "X", "Industry of X" und "Country of X" aufgeteilt und in ein neues worksheet mit dem Namen "Sum" kopiert werden (X ist jeweils Target, Acquiror bzw. Vendor). Die Informationen sind folgender Maßen kodiert (falls die Informationen da sind: Vendor ist z.B. nicht immer vorhanden, dann steht in der Zelle nur "-"): "Name (Industry - Country)". Im worksheet "Sum" sind die Spalten mit den Spaltennamen schon vorhanden, wo die Daten kopiert werden sollten. Die Daten, die sonst noch bei jedem Datensatz vorhanden, wie "Deal headline", "Deal status", "Date completed", "Deal value" werden einfach ins worksheet "Sum" übernommen. Zur Identifikation, muss noch in die Spalte "Spreadsheet" im worksheet "Sum" der Name des Datenblattes aus dem der Datensatz stammte kopiert werden. Im Ergebnis sieht die "Sum"-Tabelle folgender Maße aus: hier ein Bild.

Ergänzung: Da es nur eine Beispieldatei ist, sind nur 2 Datenblätter mit jeweils einem Datensatz vorhanden. Ich habe jedoch 16 Datenblätter mit unterschiedlichen Anzahl an Datensätzen pro Datenblatt. Alle diese Datenblätter beginnen im Namen mit "CB_" oder "DOM_". Alle 16 Datenblätter müssen dann verarbeitet werden.

Ich hoffe, ich habe Dich jetzt nicht verwirrt. Die ursprüngliche Aufgabe/ Bitte sehe bitte absolut getrennt von dieser Aufgabe. Die alte Aufgabe hat nichts mit dieser zu tun.

Danke Dir nochmals vielmals für Deine Hilfe!!! Ohne Dich wäre ich schon verloren.

Viele Grüße

timi