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!)
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!)

