|
Hallo zusammen,
ich hab da ein Problem und vlt. hat einer eine Lösung für mich :)
Ich lasse in einer For-Schleife mehrere Tabellenblätter durchsuchen und bei einem Treffer wird ein bereich kopiert und der soll dann im ersten Tabellenblatt an einer bestimmten Stelle wieder eingefügt werden.
Stellt euch vor im ersten Blatt stehen 10 Schlagwörter untereinander. Mein Programm durchsucht die folgenden Blätter nach dem Schlagwort und kopiert einen Bereich von ebenfalls untereinander stehenden Informationen. Ich lasse hier ermitteln auf welchem Blatt die meisten (infos /Zeilen) vorhanden sind.
Nun kehre ich auf Blatt 1 zurück und lasse mir entsprechend viele Leerzeilen unter dem jeweiligen Schlagwort einfügen.
Das erste Problem ist hierbei das wenn ich mit (ActiveCell.EntireRow.Insert) eine Zeile einfüge er mir den Inhalt aus meinem Rangeobjekt einfügt welches ich auf den anderen Blättern kopiert habe.
Das ist erstmal nicht weiter schlimm, da man ja die Zeile ganz einfach wieder leeren kann.
Das größerer Problem ist. das wenn ich nun im Anschluss meine Rangeobjekt einfügen (ActiveSheet.Paste) will die Meldung kommt.
Die Paste-Methode des Worksheet_objektes konnte nicht ausgeführt werden.
Setzte ich den Befehl bevor ich die zeilen einfüge klappt es. Als wenn er die zwischenablage nach dem Insert befehl einmal leer macht :(
Irgendwelche Vorschläge ? :)
Grüße Hagen
|