Excel Makro Button

Lasse mit einem Excel Makro Button eine vorgefertigte Kette von Anweisungen ausführen und deine Arbeit vereinfachen.

Wie Du einen solchen Button erstellst, um ein definiertes Makro aufzurufen lernst Du in meinem heutigen Beitrag zum Thema Excel VBA.

Vielleicht hast Du ja später noch Interesse an anderen Excel VBA Beiträgen: VBA For Schleife, MsgBox, Range.

Achtung! Bevor Du mit Makros durchstarten kannst, musst Du Sie vorher in Excel aktivieren!

Was sind Makros?

Nicht zu verwechseln mit dem slawischen, männlichen Vornamen „Marko“, ist ein Makro eine Folge von Anweisungen.

Besonders häufig, bzw. besonders beliebt sind Makros im Automatisierungsbereich in verschiedenen Kontexten.

Speziell die Arbeit mit Tabellen aus z. B. Microsoft Excel bietet die Erstellung und Verwendung solcher hilfreichen Makros an.

Dabei wird dem Nutzer nicht nur vorhandene und zukünftige Arbeit abgenommen, die Arbeit kann dadurch auch wesentlich effizienter gestaltet werden!

Makros ausführen

Um bereits erstellte Makros auszuführen kannst Du verschiedene Methoden verwenden, darunter:

Möglichkeiten

• durch eine Tastenkombination
• beim Öffnen einer Projektmappe
• aus dem Visual Basic Editor (VBE)
• und mehr..

In diesem Beitrag beschäftigen wir uns allerdings mit einem Button, also dem Ausführen eines Makros bei Klick auf einem Button.

Methode 1: Button als Form einfügen

Damit wir einen Knopf verwenden können, um ein jeweiliges „auf Ihm“ hinterlegtes Makro auszuführen, müssen wir diesen Knopf natürlich erst einmal hinzufügen.

Achtung! Je nach Excel Version kann sich die Menüführung unterschiedlich gestalten. Schaue auch ggf. in den Entwicklerwerkzeugen in Excel vorbei und prüfe vorher, ob du Diese aktiviert hast! Verwende für Excel-Sheets mit Makros auch die Dateiendung ".xlsm".

Einfügen Menü

Gehe dazu in das obere Menü von Excel und suche den Punkt „Einfügen„:

Abgerundetes Rechteck

Wähle anschließend aus, dass Du eine Form wie z. B. das abgerundete Rechteck einfügen möchtest:

Achtung! Auch hier nochmal der Hinweis auf unterschiedliche Excel-Versionen – Falls Du nicht fündig wirst, schaue doch mal ins Menü "Entwickler" (es muss erst aktiviert werden!)

Button gestalten

Danach kannst Du deinen Button, bzw. dein abgerundetes Rechteck so gestalten wie Du magst:

Makro an Button binden

Nachdem wir im vorherigen Schritt den Button an sich mit Einfügen eines abgerundeten Rechtecks erledigt haben, können wir Diesem nun das Makro zuweisen.

Klicke den Button dazu einfach mit der rechten Maustaste an und wähle „Makro zuweisen“ – fertig!

Nun kannst Du Dein definiertes Makro über den hinzugefügten und gestylten Button aufrufen!

Methode 2: Schaltfläche über den Entwickler-Tab einfügen

Die zweite – und oft bessere – Methode nutzt den Entwickler-Tab in Excel.
Damit erhältst Du eine echte Formular-Schaltfläche, bei der das Makro
direkt beim Erstellen zugewiesen wird.

Schritt 1: Entwickler-Tab aktivieren

Falls der Entwickler-Tab noch nicht sichtbar ist:
Datei → Optionen → Menüband anpassen → Entwicklertools aktivieren → OK.

Schritt 2: Schaltfläche einfügen

Wechsle in den Tab „Entwickler“ und klicke auf „Einfügen“. Unter „Formularsteuerelemente“ findest Du das Symbol für eine Schaltfläche (erstes Icon). Zeichne die Schaltfläche auf dem gewünschten Bereich im Sheet.

Schritt 3: Makro direkt zuweisen

Direkt nach dem Loslassen der Maus öffnet sich automatisch der Dialog „Makro zuweisen“. Wähle Dein Makro aus der Liste, oder erstelle ein neues direkt über „Neu“.

Ein einfaches VBA-Makro als Beispiel

Falls Du noch kein Makro hast, hier ein schnelles Beispiel zum Testen. Öffne den VBA-Editor mit Alt + F11, füge ein neues Modul ein und trage folgenden Code ein:

Sub MeinMakro()
    MsgBox "Makro wurde erfolgreich ausgeführt!", vbInformation, "Info"
End Sub

Weise dieses Makro anschließend Deinem Button zu — fertig. Beim Klick auf den Button erscheint eine Meldung als Bestätigung.

FAQ

Der Beitrag Excel Makro Button erschien zuerst auf Robert Skibbe.

IFS VBA

Möchtest Du mit der IFS VBA Funktion/Formel umzugehen wissen, bzw. verstehen was Diese überhaupt ist?

Dann heiße ich Dich in meinem heutigen Beitrag zur Visual Basic for Applications Kategorie herzlich willkommen.

Vielleicht steht Dir anschließend auch noch der Sinn nach anderweitigen VBA relevanten Beiträgen: VBA For Schleife, InStr, Range.

Achtung! Die IFS Funktion ist nur im Excel-Kontext als Formel vorhanden! Die dazu benötigte Excel Version findet man auf Windows & Mac, wenn man mind. Office 2019, oder ein Microsoft 365 Abonnement hat.

Awendungsfälle

Wer kennt es nicht? Man möchte durch kurze geschickte Abfragen den Ablauf des Programmes bestimmen und leiten.

Vielleicht sind Dir auch schon derartige Konstroll– , bzw. Verzweigungs-Strukturen wie das „If-Then-Else“- & das „Select-Case“ bekannt.

Das gut bekannte „If-Then-Else„-Konstrukt wird eher für die Abarbeitung, bzw. Steuerung von verschiedenen Ausgangspunkten verwendet.

Ich kann prüfen, ob die Performance einer Aktie gut war, jedoch dennoch die Dividende gekürzt wurde.

Bei dem „Select-Case„-Konstrukt hingegen, prüft man für gewöhnlich einen Ausgangspunkt – z. B. auch Bereiche dessen – und handelt je nach Ergebnis.

Bleiben wir bei unserem kleinen Aktien-Beispiel und verfahren je nach Dividendenrendite anders:

Dim dividendYieldPercentage As Integer = 9
Dim message As String = ""
Select Case
    Case 1 To 2
        message = "Dividend yield is okay!"
    Case 3 To 4
        message = "Woah! Nice yield!"
    Case 5 To 6
        message = "Hmm, nice but maybe too much!?"
    Case Else
        message = "Woah, this is too much to be good!"
End Case

In der Kürze..

Häufig sagt man, dass in der Kürze die bekannte Würze liegt, man möchte es also ab und zu gerne kurz und schmerzlos haben.

Wenn man jedoch die Länge des jeweiligen Konstruktes in Augenschein nimmt, hat man ein anderes Gefühl, eher lang und wiederholend.

Im Falle einer relativ simplen „If-Anweisung“ kann man den Ausdruck natürlich auch optional auf eine Zeile reduzieren.

Je komplexer die eben erwähnte „If-Anweisung“ allerdings wird, desto unlesbarer und unmöglich wird die Anweisung.

Dim performance As Integer = 100
If performance <= 20 Then MsgBox("Yay")

Nehmen wir allerdings das Beispiel von oben, wäre es unlesbar und teilweise auch nicht möglich, daher würde ich nur in seltenen Fällen zur Verkürzung raten.

IFS VBA Erklärung

Mit der IFS-Funktion haben wir eine weitere Kontrollstruktur, um den Ablauf des „Programmes“ zu gestalten.

Die IFS VBA (Excel) Formel wird dabei zunächst analog zum „Einzeiligen If“ formuliert, mit einem kleinen Unterschied.

Statt weniger Ausdrücke wie im If-Beispiel, können wir nun mehrere Ausdrücke wie durch Zauberhand kombinieren.

IFS VBA Syntax – Schreibweise

Schauen wir uns zum obigen Vergleich einmal die Struktur, bzw. die Syntax der IFS-Funktion an:

=IFS(<condition 1>, <value 1>, <condition 2>, ....)

Dabei stellen wir fest, dass wir innerhalb der Klammern – also durch Angabe von Parametern – verschiedene Paare an Konditionen & Werten angeben können.

Laut offizieller Dokumentation der IFS VBA Funktion von Microsoft, können wir bis zu 127 verschiedene Bedingungen prüfen und auswerten.

Natürlich sollte man das nach Möglichkeit vermeiden, wer möchte schon eine gefühlt 40000 Zeichen lange Zeile lesen..

Neben der schier endlos langen Zeile, hat man natürlich noch ein Problem mit den einzelnen Reihenfolgen, wo man sich dann leicht irren kann.

Beispiel – Excel Zelle anhand IFS Formel

Um nun beispielsweise den Wert einer Zelle im Excel-Sheet zu setzen, könnte man analog zu oben folgendes Beispiel verwenden.

Wir ziehen uns die Dividendenrendite dafür nun aus einer Zelle namens „A2“ und setzen den Wert der Zelle „A3“ dann auf das Ergebnis.

=IFS(A2<3, "Yield OK!", A2<5, "Nice yield!", A2<7, "Too much!")

Wenn im Beispiel der Wert in der Zelle „A2“ z. B. unter 3 liegt, dann gibt die Formel den Wert „Yield OK!“ zurück.

Bei einem Wert unter 5 dann „Nice yield!“ und und und..

Funktioniert übrigens auch bei Google Sheets

Die IFS-Formel gibt es übrigens auch für die bekannte Cloud-Tabellen-Plattform Google Sheets.

Der einzige simple Unterschied ist, dass man dort statt Kommas (,) dann Semikolons (;) verwenden muss.

Aber ich wollte IFS für VBA :(!?

Kein Problem! Leider wird man wie oben gesehen bei den Begriffen „IFS VBA“ größtenteils nur im Bereich der Tabellen – also Microsoft Excel & Google Sheets – fündig.

Es gibt allerdings auch Codes wie Dieser hier (vom Stackoverflow-Nutzer „jsheeran“), Welcher eine ähnliche Implementierung im Bereich VBA darstellt:

Public Function UdfIfs(ParamArray args() As Variant) As Variant
  Dim i As Integer
  i = 0 ' or 1 if you're not using zero-based indexing
  Do Until CBool(args(i)) Or (i >= UBound(args))
    i = i + 2
  Loop
  If i < UBound(args) Then
    UdfIfs = args(i + 1)
  End If
End Function

Der Beitrag IFS VBA erschien zuerst auf Robert Skibbe.