Supportnet Computer
Planet of Tech

Supportnet / Forum / Tabellenkalkulation

Wie per Makro Bereiche markieren mit übergabe in andere Excel Tabelle ausgeben?





Frage

Hallo zusammen, habe folgendes Problemchen: eine Tabelle die so aussieht: 1) ----- 2) test 3) test2 4) dsadsad 5) 213213 6) 213321 7) dasdsadasd 8) asdasdsa 9) ----- 10) 213213213123 11) asdsa 12) ddsa 13) dsa 14) ----- 15) sadsadsad 16) 213123 17) dasdas 18) rewqrew 19) ----- Jetzt moechte ich gerne alles, was zwischen Zeile 1) bis 7) steht markieren und in eine andere Tabelle ausschneiden bzw. einfuegen (andere Tabelle "unten am Excel rand" nicht anderes Excel Sheet!) Wie ich das loese, hab ich mir soweit ueberlegt: Set X = b.Find("-----") dann hab ich die Zeile 1) gefunden und als X eingetragen Nun muesste ich ein weiteres malnach den "-----" suchen und er soll in Zeile 9) hinspringen, jedoch nur bis 1ne Zeile ueber 9) (also 8) markieren, ausschneiden und in die 2. Excel Mappe ab Zeile A15 einfügen. So sollte das auch mit den Inhalten zwischen Zeile 9) - 13) und 14) - 18) weiterkopieren. Je in eine andere Tabelle in der Excel Mappe Wenn er keine 2x "-----" findet (z.B. Zeile 1+9) die er benoetigt, um von 1-8 zu markieren) sollte das Makro aufhoeren Kann mir jmd. weiterhelfen? :-) Danke und Gruss Patrick

Antwort 1 von Patrick F.

Sorry, meinte im 1. Absatz:

Jetzt moechte ich gerne alles, was zwischen Zeile 1) bis 8) steht markieren und in eine andere Tabelle ausschneiden bzw. einfuegen (andere Tabelle "unten am Excel rand" nicht anderes Excel Sheet!)