Microsoft VB for Applications. Werte zwischen Steuerzeichen kopieren

[MFL]

Hallo zusammen,
vllt. kann mir ja auch einer bei meinerm Excelproblem helfen.

Ich habe eine Exceltabelle wo eine Menge mist drin steht. Der für mich interessante Teil steht zwischen zwei Steuerzeichen in den Spalten A und C,
das sieht aus wie folgt:

Snip_Akku.jpg

Das erste Steuerzeichen (») steht immer in A114, das zweite Steuerzeichen («) steht in i-einem A-Feld
weiter unten. Mein Makro soll alle Tabellenspalten von A und C, welche sich zwischen den Steuerzeichen befinden,
kopieren.

Ich hoffe ihr könnt mit meiner komplizierten Erklärung was anfangen ;-)

[Christian Marquardt]

Es lässt sich immer viel erreichen, in dem man eine Aufzeichnung startet und sich den erzeugten Code ansieht. Hier ist die Aufgabe doch in 3 Teile zu teilen

- suchen der Start- und Endezelle
- markieren dieses Bereiches
- kopieren

Teil 2 und 3 sollte sich mit der erwähnten Aufzeichnung erledigen, Teil 1 mit http://www.google.de/search?q=excel+...-a&safe=active

[MFL]

Danke, das hat mir schon sehr geholfen ;-)

[MFL]

Hallo nochmal,

ich habe mal eine ziemlich simple Frage,
und zwar möchte ich Alle Spalten bis zur letzten gefüllten Spalte durchlaufen und in der ersten Freien Spalte möchte
ich einen zuvor kopierten Wert einfügen.

Mein Ansatz sieht bis jetzt folgendermaßen aus:

 Sheets("Tabelle1").Cells(Sheets("Tabelle1").Cells(Columns.Count, "$A$11").End(xlUp).Columns + 1, "$A$11").PasteSpecial xlPasteValues

Ich danke euch schon mal im Vorraus ;-)

[MFL]

versuche es jetzt mit einer While-Schleife,
das funktioniert leider nicht so wie ich mir das vorstelle :-/

 Do While Range(intCol & intRow).Value <> ""
                Range(intCol & intRow).Select
                intCol = intCol + 1
            Loop

Als Fehlermeldung kommt: " Die Methode 'Range' für das Objekt '_Global' ist fehlgeschlagen"

Wäre wirklich nett wenn einer von euch eine Idee hätte