Wie führt man ein Makro in Excel basierend auf dem Wert einer Zelle aus?
Angenommen, Sie haben mehrere Makros in Ihrer Arbeitsmappe und möchten diese basierend auf dem Wert einer Zelle ausführen. Dieser Artikel behandelt verschiedene Szenarien, die Ihnen im täglichen Umgang mit Excel begegnen können.
Makro ausführen oder auslösen, wenn der Zellenwert größer oder kleiner als ein bestimmter Wert ist (mit VBA-Code)
Beispielsweise soll Makro1 ausgeführt werden, wenn der Wert in Zelle A1 zwischen 10 und 50 liegt, und Makro2, wenn der Wert größer als 50 ist. Um diese Aufgabe in Excel zu lösen, verwenden Sie bitte den folgenden VBA-Code.
1. Klicken Sie mit der rechten Maustaste auf die Arbeitsblattregisterkarte, für die das Makro basierend auf einem Zellenwert ausgeführt werden soll, und wählen Sie im Kontextmenü Code anzeigen. Fügen Sie im geöffneten Fenster Microsoft Visual Basic for Applications den folgenden Code in das leere Modul ein:
VBA-Code: Makro ausführen, wenn der Zellenwert größer oder kleiner ist:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Cells.Count > 1 Then Exit Sub
If IsNumeric(Target) And Target.Address = "$A$1" Then
Select Case Target.Value
Case 10 To 50: Macro1
Case Is > 50: Macro2
End Select
End If
End Sub
Hinweis: Im obigen Code:
A1ist die Zelle, die den spezifischen Wert enthält, auf dessen Grundlage das Makro ausgeführt werden soll;
Case 10 To 50: Macro1: Dies bedeutet, dass Makro1 ausgeführt wird, wenn der Wert zwischen 10 und 50 liegt;
Case Is > 50: Macro2: Dies bedeutet, dass Makro2 ausgeführt wird, wenn der Wert größer als 50 ist.
Bitte passen Sie diese Makronamen und Kriterien entsprechend Ihren Anforderungen an. Sie können auch weitere Kriterien gemäß dem Case-Skript hinzufügen.
2. Schließen Sie anschließend dieses Codefenster. Sobald Sie nun einen Wert zwischen 10 und 50 in Zelle A1 eingeben, wird Makro1 ausgelöst; ist der eingegebene Wert größer als 50, wird Makro2 ausgeführt.
Entfesseln Sie die Magie von Excel mit KUTOOLS AI
- Intelligente Ausführung: Führen Sie Zelloperationen durch, analysieren Sie Daten und erstellen Sie Diagramme – alles ganz einfach per Sprachbefehl.
- Benutzerdefinierte Formeln: Erstellen Sie maßgeschneiderte Formeln, um Ihre Arbeitsabläufe optimal zu optimieren.
- VBA-Programmierung: Schreiben und implementieren Sie VBA-Code ganz mühelos.
- Formelinterpretation: Verstehen Sie komplexe Formeln spielend leicht.
- Textübersetzung: Überwinden Sie Sprachbarrieren direkt in Ihren Tabellenkalkulationen.
Makro ausführen oder auslösen, wenn die Zelle Wert ist gleich einen bestimmten Text enthält (mit VBA-Code)
Möchten Sie ein Makro auslösen, sobald ein bestimmter Text in einer Zelle eingegeben wird – beispielsweise Makro1 bei „Delete“ und Makro2 bei „Insert“? Dann hilft Ihnen der folgende Code weiter.
1. Klicken Sie mit der rechten Maustaste auf das Arbeitsblatt, für das das Makro basierend auf dem Zellenwert ausgeführt werden soll, und wählen Sie im Kontextmenü Code anzeigen. Fügen Sie den folgenden Code im geöffneten Microsoft Visual Basic for Applications-Fenster in das leere Modul ein:
VBA-Code: Makro ausführen, wenn der Zellenwert ein bestimmter Text ist
Sub worksheet_change(ByVal target As Range)
Set target = Range("A1")
If target.Value = "Delete" Then
Call Macro1
End If
If target.Value = "Insert" Then
Call Macro2
End If
End Sub
Hinweis: Im obigen Code sind „Delete“ und „Insert“ die Zellentexte, anhand derer Makros ausgeführt werden sollen; Macro1 und Macro2 sind die auszuführenden Makros. Passen Sie diese bitte entsprechend Ihren Anforderungen an.
2. Speichern Sie anschließend diesen Code und schließen Sie dieses Fenster. Sobald Sie nun den Text „Delete“ in Zelle A1 eingeben, wird Makro1 ausgelöst; bei Eingabe von „Insert“ wird Makro2 ausgeführt.
Verwandte Artikel:
Wie führt man ein Makro aus, sobald sich der Wert einer Zelle in Excel ändert?
Wie lässt sich ein Makro in Excel automatisch vor dem Drucken ausführen?
Wie führt man in Excel ein Makro basierend auf dem aus einer Dropdown-Liste ausgewählten Wert aus?
Wie führt man ein Makro in Excel durch einen Klick auf Hyperlinks aus?
Wie führt man ein Makro aus, sobald ein Arbeitsblatt aus einer Arbeitsmappe ausgewählt wird?
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins