Wie führe ich ein Makro basierend auf dem Zellenwert in Excel aus?
Angenommen, ich habe mehrere Makrocodes in meiner Arbeitsmappe, und jetzt möchte ich diese Codes basierend auf dem Zellenwert ausführen. In diesem Artikel werde ich auf verschiedene Situationen eingehen, die bei der täglichen Arbeit mit Excel bei Ihrer täglichen Arbeit auftreten können.
Führen Sie ein Makro aus oder lösen Sie es aus, wenn der Zellenwert mit VBA-Code größer oder kleiner als ein bestimmter Wert ist
Wenn der Wert in Zelle A1 beispielsweise zwischen 10 und 50 liegt, führen Sie Makro1 aus, und wenn der Wert größer als 50 ist, führen Sie Makro2 aus. Um diesen Job in Excel zu lösen, wenden Sie bitte den folgenden VBA-Code an.
1. Klicken Sie mit der rechten Maustaste auf die Registerkarte Blatt, auf der Sie das Makro basierend auf einem Zellenwert ausführen möchten, und wählen Sie dann aus Code anzeigen aus dem Kontextmenü und im geöffneten Microsoft Visual Basic für Anwendungen Kopieren Sie im Fenster den folgenden Code und fügen Sie ihn in das leere Modul ein:
VBA-Code: Führen Sie ein Makro aus, wenn der Zellenwert größer oder kleiner als:
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:
A1 ist die Zelle, die den spezifischen Wert enthält, auf dem das Makro ausgeführt werden soll;
Fall 10 bis 50: Makro1: bedeutet, wenn der Wert zwischen 10 und 50 liegt, führen Sie Macro1 aus;
Fall ist> 50: Macro2: Wenn der Wert größer als 50 ist, führen Sie Macro2 aus.
Bitte ändern Sie diese Makronamen und -kriterien nach Ihren Wünschen. Sie können auch weitere Kriterien hinzufügen Gehäuse Skripte.
2. Speichern und schließen Sie dann dieses Codefenster. Wenn der von Ihnen in Zelle A10 eingegebene Wert zwischen 50 und 1 liegt, wird Makro1 ausgelöst. Wenn der eingegebene Wert größer als 50 ist, wird Makro2 ausgeführt.
Führen Sie ein Makro aus oder lösen Sie es aus, wenn der Zellenwert einem bestimmten Text mit VBA-Code entspricht
Wenn Sie das Makro basierend auf einem bestimmten Text in einer Zelle auslösen möchten, um beispielsweise das Makro1 auszuführen, wenn der Text "Löschen" eingegeben wird, und das Makro2 auszuführen, wenn der Text "Einfügen" eingegeben wird. Der folgende Code kann Ihnen einen Gefallen tun.
1. Klicken Sie mit der rechten Maustaste auf das Blatt, auf dem Sie das Makro basierend auf dem Zellenwert ausführen möchten, und wählen Sie dann Code anzeigen aus dem Kontextmenü und im geöffneten Microsoft Visual Basic für Anwendungen Kopieren Sie im Fenster den folgenden Code und fügen Sie ihn in das leere Modul ein:
VBA-Code: Makro ausführen, wenn 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 “Löschen" und "Insert”Sind die Zellentexte, auf denen Sie Makros ausführen möchten, und Macro1 und Macro2 sind die Makros, die Sie basierend auf Text ausführen möchten. Bitte ändern Sie sie nach Ihren Wünschen.
2. Speichern Sie dann diesen Code und schließen Sie das Fenster. Wenn Sie nun den Text „Löschen“ in Zelle A1 eingeben, wird Makro1 ausgelöst. Wenn der Text „Einfügen“ eingegeben wird, wird Makro2 ausgeführt.
In Verbindung stehende Artikel:
Wie führe ich ein Makro aus, wenn sich der Zellenwert in Excel ändert?
Wie führe ich ein Makro automatisch aus, bevor ich in Excel drucke?
Wie führe ich ein Makro aus, indem ich in Excel auf Hyperlinks klicke?
Wie führe ich ein Makro aus, wenn ein Blatt aus einer Arbeitsmappe ausgewählt wird?
Die besten Tools für die Office-Produktivität
Kutools for Excel löst die meisten Ihrer Probleme und erhöht Ihre Produktivität um 80%
- Wiederverwendung: Schnell einfügen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
- Super Formelriegel (leicht mehrere Textzeilen und Formeln bearbeiten); Layout lesen (leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
- Zellen / Zeilen / Spalten zusammenführen ohne Daten zu verlieren; Inhalt geteilter Zellen; Kombinieren Sie doppelte Zeilen / Spalten... doppelte Zellen verhindern; Bereiche vergleichen...
- Wählen Sie Duplizieren oder Eindeutig Reihen; Wählen Sie Leere Zeilen (alle Zellen sind leer); Super Find und Fuzzy Find in vielen Arbeitsmappen; Zufällige Auswahl ...
- Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen zu mehreren Blättern; Aufzählungszeichen einfügen, Kontrollkästchen und mehr ...
- Text extrahieren, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen;; Paging-Zwischensummen erstellen und drucken; Inhalt und Kommentare zwischen Zellen konvertieren...
- Superfilter (Speichern und Anwenden von Filterschemata auf andere Blätter); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
- Kombinieren Sie Arbeitsmappen und Arbeitsblätter;; Tabellen basierend auf Schlüsselspalten zusammenführen; Daten in mehrere Blätter aufteilen; Batch-Konvertierung von xls, xlsx und PDF...
- Mehr als 300 leistungsstarke Funktionen. Unterstützt Office / Excel 2007-2021 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. 30-tägige kostenlose Testversion mit allen Funktionen. 60 Tage Geld-zurück-Garantie.
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
