Office: Bestimmte Daten mit VBA übernemen

Hallo Ihr VBA-Spezialisten,

nach langer Zeit mal wieder ein Problem, dass ich bis jetzt noch nicht lösen konnte und ich hoffe mal wieder auf etwas Hilfe :-)

Ich habe eine Ausgangstabelle mit verschiedenen Auswahlmöglichkeiten (Flyer, Prospekt usw.) Wähle ich Flyer und Katalog aus (x,x), möchte ich dass nur diese Auswahl untereinander in ein neues Tabellenblatt kopiert wird (ohne Preise). Allerdings muss das Makro erkennen, wie oft es die Spalte A von 3 bis 6 kopieren muss. Denn jede Auswahl bekommt die selbe Bezeichnung.
Nach jeder Seite muss die Summe ausgewiesen werden.
Auch muss ein automatischer Umbruch nach jeder Endsumme erstellt werden, wenn die erste Position (Flyer) fertig ist, also nach der Summe 10,-
Gehe davon aus, dass das nur mit einem Makro zu lösen ist. Ich weiß ja, wie ich die Spalten kopieren kann und rüber bekomme, nur wie kann ich mit einem Makro die Auswahl so treffen, dass wirklich nur das in ein neues Blatt kopiert wird, was ein x hat.

Ich hoffe, Ihr konntet verstehen, was sich brauche.

Für Hilfe wäre ich Euch dankbar.
hexlein

 

Hallo,

auf Basis Deiner Excel-Tabelle habe ich Dir ein Makro gebastelt, das, so hoffe ich, Deine Vorstellungen erfüllt.
1) Dieses Makro setzt voraus, dass es ein Arbeitsblatt 'Kalkulation' gibt, das in Spalte A das Wort 'KALKULATION' enthält. Die Zellen, die diese Zelle umgeben, enthalten die Quelldaten. Damit dieser Quelldatenbereich korrekt erkannt wird, muss er von lauter Leerzellen umgeben sein.
2) Bevor das Makro gestartet wird, muss ein Zielarbeitsblatt ausgewählt werden (-> wird zum aktiven Blatt).
3) Das Makro wird gestartet, indem die Tastenkombination Alt+F8 gedrückt wird, gefolgt von der EINGABE-Taste, wodurch das Makro 'Kalk_Kopieren' gestartet wird.

Im Arbeitsblatt 'Tabelle3' ist Datenbeispiel enthalten, das vom obigen Makro aufgrund der Daten im Blatt 'Kalkulation' erzeugt wurde.
Die Vorgaben aus Punkt 1) können abgeändert werden, was bedeutet, dass das Makro entsprechend angepasst werden muss. Zu diesem Zweck habe ich es mit reichlich Kommentar ausgestattet.

 

Hallo,

bin begeistert, habe dein Makro jetzt durchlaufen lassen und muss sagen, genial. Vielen Vielen Dank.

Werde nun testen, wie weit ich mit dem "umschreiben" für meine Datei komme und dann berichten, ob es auch im großen Rahmen funktioniert hat.
Denke, es wird noch die ein, oder andere kleine Frage geben und hoffe dann noch mal auf Hilfe.

Danke
hexlein

 

Hallo noch mal,

jetzt fangen meine Probleme an.
Die Aufgabe ist nun komplexer geworden, es müssen Worte gelöscht/ersetzt werden. Die einzelnen Makroschritte verstehe ich ja noch, jedoch trotz super Beschreibung, was alles "passiert", habe ich Probleme, die weiteren Schritte in dieses Makro einzubauen.

Habe in dem Anhang mal dargestellt, wie es nun "erstmal" aussehen soll. In Angebot sollen nun 3 "Summen" angezeigt werden. Die Zeile mit Rabatt soll allerdings raus und die Felder sollen andere Namen bekommen. Zusätzlich muss nun noch inkl. stehen. Da ich mich nur bedingt mit den normalen Befehlen auskenne, jedoch fleißig am lesen/lernen bin, bin ich bei diesen verschachtelten jedoch etwas überfordert.

Eine Zeile löschen geht ja mit:
Selection.Delete Shift:=xlUp
aber wie mit dem Befehl Cells....Resize...Clear?????????
Auch das Einfügen des Strichs würde ich hinbekommen, aber nicht innerhalb dieses Makros, dass es ja immer dann machen muss, wenn vorher x ausgewählt wurde.

Vielleicht erbarmt sich ja nochmal jemand und hilft mir?

Danke schon mal.

 

Hallo,

in der beigefügten Datei habe ich das bisherige Makro modifiziert. Ein Datenbeispiel, wie es vom Makro aufgrund der Daten in "Kalkulation" anhand des Musters aus "Tabelle2" erzeugt wurde, befindet sich im Arbeitsblatt "Tabelle1".
Die bisherige Voraussetzung, dass zuerst das Zielarbeitsblatt ausgewählt werden muss und dann erst das Makro "Kalk_Kopieren" gestartet werden darf, ist gleich geblieben.

 

Hallo,

vielen Dank, funktioniert super.
Werde mich jetzt durch deine super Beschreibungen wurschteln und hoffentlich für die Zukunft was lernen ;-)

Danke
hexlein