excel-vba
Wie man ein Makro aufnimmt

Wie man ein Makro aufnimmt

Die einfachste Möglichkeit zum Aufzeichnen eines Makros besteht darin, dass die Schaltfläche in der linken unteren Ecke von Excel folgendermaßen aussieht:

Wenn Sie darauf klicken, werden Sie in einem Popup gefragt, ob Sie das Makro benennen und entscheiden möchten, ob Sie eine Tastenkombination benötigen. Fragt außerdem, wo das Makro gespeichert werden soll und eine Beschreibung. Sie können einen beliebigen Namen auswählen, Leerzeichen sind nicht erlaubt.

Wenn Sie Ihrem Makro eine Tastenkombination zuweisen möchten, wählen Sie einen Buchstaben, den Sie sich merken werden, damit Sie das Makro schnell und einfach wieder verwenden können.

Sie können das Makro in "Diese Arbeitsmappe", "Neue Arbeitsmappe" oder "Persönliche Makro-Arbeitsmappe" speichern. Wenn das Makro, das Sie gerade aufnehmen möchten, nur in der aktuellen Arbeitsmappe verfügbar sein soll, wählen Sie "Diese Arbeitsmappe". Wenn Sie es in einer neuen Arbeitsmappe speichern möchten, wählen Sie "Neue Arbeitsmappe". Wenn das Makro für jede geöffnete Arbeitsmappe verfügbar sein soll, wählen Sie "Persönliche Makro-Arbeitsmappe".

Nachdem Sie dieses Popup ausgefüllt haben, klicken Sie auf "Ok".

Führen Sie dann alle Aktionen aus, die Sie mit dem Makro wiederholen möchten. Wenn Sie fertig sind, klicken Sie auf die gleiche Schaltfläche, um die Aufnahme zu beenden. Es sieht jetzt so aus:

Jetzt können Sie zur Registerkarte "Entwickler" gehen und Visual Basic öffnen. (oder verwenden Sie Alt + F11)

Sie haben jetzt ein neues Modul im Ordner Modules.

Das neueste Modul enthält das gerade aufgezeichnete Makro. Doppelklicken Sie darauf, um es aufzurufen.

Ich habe ein einfaches Kopieren und Einfügen vorgenommen:

Sub Macro1()
'
' Macro1 Macro
'

'
    Selection.Copy
    Range("A12").Select
    ActiveSheet.Paste
End Sub

Wenn Sie nicht möchten, dass es immer in "A12" eingefügt wird, können Sie relative Verweise verwenden, indem Sie auf der Registerkarte "Entwickler" das Kontrollkästchen "Relative Verweise verwenden" aktivieren.

Wenn Sie die gleichen Schritte wie zuvor ausführen, wird das Makro jetzt folgendermaßen:

Sub Macro2()
'
' Macro2 Macro
'

'
    Selection.Copy
    ActiveCell.Offset(11, 0).Range("A1").Select
    ActiveSheet.Paste
End Sub

Der Wert wird immer noch von "A1" in eine Zelle 11 Zeilen nach unten kopiert. Jetzt können Sie dasselbe Makro mit einer Startzelle ausführen, und der Wert aus dieser Zelle wird in die Zelle 11 Zeilen nach unten kopiert.