Office: [Excel2003] makros problem? mehr als transponieren?

Hallo da draussen,

brauche ganz dringend hilfe. habe eine tabelle die in mappe 1 dargestell ist (erste tabelle). die kategorie bezieht sich immer auf die komplette firma, also nicht nur auf einzelne adresszeilen.
so, was ich daraus bastel möchte ist die zweite tabelle.

ich könnte jetzt die spalten adresse und ort durch transponieren erstellen und dann unter dem firmennamen entsprechend auslöschen, aber bei ca. 1000 firmen ist das mühsam und dauert zu lange.

ich habe keinen blassen schimmer von makros, leider

kann mir jemand weiterhelfen?? wäre sehr sehr nett.

LG

 

Hallo,

beiliegend die Excel-Datei mit dem Makro. Dieses kann ausgeführt werden durch Klick auf den Button "Kopieren" oder aber auch durch Drücken der Tastenkombination Alt+F8 gefolgt von Taste Eingabe.
Das Makro wird jeweils mit dem aktiven Arbeitsblatt ausgeführt.
Sollen die beiden Tabellen (Quelle, Ziel) an einen anderen Platz im Arbeitsblatt verschoben werden, muss das zuerst im Makro entsprechend angepasst werden (die entspechenden Stellen habe ich deutlich gekennzeichnet). Zurzeit ist für die Quelltabelle "A1" eingestellt und für die Zieltabelle "E1" (jeweils die linke obere Ecke).

 

erstmal großes dankeschön für deine hilfe. leider funktioniert es noch nicht ganz. wenn ich das makros ausführen will --> Laufzeitfehler 1004 'Die BorderAround-Mehtode des Range-Objektes konnte nicht ausgeführt werden'?!

habe die Quell- und Zieltabelle abgeändert (wobei schon im Beispiel der Laufzeitfehler kam). führe ich das makro aus löscht er mir nur die komplette tabelle und schreibt Nr in die erste Zelle der Zieltabelle, sonst passiert nichts

 

Hallo,

das einzige Problem bei meinem Makro war, dass ich in der BorderAround-Methode eine Konstante verwendet habe, die Excel offenbar erst ab Version 2007 kennt.
In der beigefügten Excel-Datei habe ich diese Konstantendefinition ausgetauscht, das Ganze dann tatsächlich mit Excel2003 getestet - und es läuft jetzt.

 

klappt hervorragend :) danke :)