|
Hallo Zusammen,
ich habe ein Problem mit einer Makro Aufzeichnung und komme nicht so recht weiter.
Ich möchte Daten aus einer Tabelle(1) einer Arbeitsmappe (1) in eine andere Tabelle(2) einer anderen Arbeitsmappe(2) kopieren. Im konkreten Beispiel ist es eine Graphik. Die jeweilige passende Graphik finde ich über eine ID, die ich mir bereits durch eine Formel aus dem Tabellenblatt(1) in Tabelle(2) ziehe.
Ich habe hierzu nun ein Makro aufgezeichnet in dem ich alle Aktionen, die ich machen möchte, aufzeichne. Da ich es dynamisch für verschiedene Zeilen anwenden möchte, habe ich die Funktion "relative verweise" angeklickt.
Im spezifischen soll das Makro folgendes tun: Von einer Ausgangsposition (in Tabelle 2) eine Zeile runter springen, die Formelverzweigung kopieren (ID als Verweis), in einer anderen Zelle diesen als Wert ausgeben (ID als Wert), diesen Wert in der Zelle kopieren und in der Spalte A in Tabelle 1 suchen, ein paar Spalten nach rechts springen in der Zeile, das dortige Bild kopieren, das Bild in der Ausgangposition (Tabelle 2) einfügen, den kopierten Wert in in Tabelle 2 löschen.
Folgender Code wird mir angezeigt (angehangen), wobei mir für
Selection.Find(What:="132", After:=ActiveCell, LookIn:=xlValues, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
ein Bug angezeigt wird. Ich verstehe nur nicht, was daran falsch ist.
Das makro soll er dann natürlich wiederholen können, wenn ich auf einer anderen Ursprungszelle es auslöse...
Kann mir einer hierbei bitte helfen?
Vorab bereits vielen Dank!
|