Tipps: Bestimmte Zelle per Makro auf aktives Blatt kopieren (CHIP 12/2003)

Bestimmte Zelle per Makro auf aktives Blatt kopieren

Ich möchte vordefinierte Zellen von einem Tabellenblatt in die aktive Zelle einer anderen Tabelle kopieren. Ein dafür aufgezeichnetes Makro funktioniert nur innerhalb einer Tabelle. Wie muss es aussehen, damit ich die Zellen auch in andere Arbeitsmappen einfügen kann?

Das von Ihnen aufgezeichnete Makro verwendet einen festen Tabellennamen. Sie müssen jedoch mit einem variablen Bezug arbeiten, sonst ist es nicht möglich, die zu kopierende Zelle in die jeweils aktive Tabelle einzufügen. Zur Korrektur Ihres Makros wählen Sie »Extras | Makro | Makros«. Markieren Sie es in der Liste und klicken Sie auf »Bearbeiten«. Ergänzen Sie im VBA-Editor das Listing um die folgenden Zeilen:

Sub Ferien()

 Sheets("InfoBlatt").Range("A5").Copy

 ActiveSheet.Paste

 Application.CutCopyMode = False

End Sub

Passen Sie noch den Namen des Tabellenblattes (hier: InfoBlatt) und die Zellposition (hier: A5) Ihren Vorgaben an. Danach beenden Sie den VBA-Editor mit »Datei | Schließen und zurück zu Microsoft Excel«. Einmal gestartet, fügt das Makro die festgelegte Zelle an der aktuellen Cursor-Position ein und schaltet danach den Kopiermodus wieder aus. Dabei erledigt der Copy-Befehl den Kopiervorgang in einem Rutsch, ohne den Fokus von der aktiven Tabelle zu nehmen, was zwangsläufig einen Wechsel der aktiven Zelle nach sich ziehen würde.

Wenn Sie die Befehlskette häufig nutzen, ordnen Sie ihr eine Tastenkombination zu. »Extras | Makro | Makros« öffnet den richtigen Dialog; markieren Sie in der Liste den Eintrag und klicken Sie auf »Optionen«. Drücken Sie die gewünschte Tastenkombination und bestätigen Sie die Einstellung mit »OK«.