Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.10.2025 10:29:26
Userform Multipage - Page auswählen
19.10.2025 21:57:06
Diagrammpunkte in unterschiedlichen Farben je nach Wert
19.10.2025 18:21:56
Prüfen, ob Bild geladen wurde
19.10.2025 15:24:14
VBA -Drucken nur, wenn ich mit bestimmtem WLAN verbunden bin
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1548to1552
1548to1552
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Mit Formel "Wenn..." Makro aufrufen

Forumthread: Mit Formel "Wenn..." Makro aufrufen

Mit Formel "Wenn..." Makro aufrufen
23.03.2017 17:48:36
Dieter(Drummer)
Guten Tag VBA-Spezialisten,
im aktiven Tabellenblatt ist in Zelle F18 folgende Formel:
  • =WENN(E5="";"";ZÄHLENWENN(G5:G16;"ü"))

    • Nun soll, wenn der Wert in Zelle F18 "12" ist, mein Makro ausgeführt werden.
    Mit diesem Makro (im Modul),im Tabellenblatt, funktioniert es nicht: 
    Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$18" = 12 Then
Call MeinMakro
End If
End Sub

    Was ist da falsch?
    Mit der Bitte um Hilfe, grüßt
    Dieter(Drummer)
    Anzeige

    9
    Beiträge zum Forumthread
    Beiträge zu diesem Forumthread

    Betreff
    Datum
    Anwender
    Anzeige
    AW: Mit Formel "Wenn..." Makro aufrufen
    23.03.2017 17:55:30
    Hajo_Zi
    Hallo Dieter, 
    
Über wenn Makro starten
Du musst dazu einen Umweg anlegen.
Die WENN-Funktion lautet z.B.
=WENN(A1>10;MakroStart();"Nix")
Die Wenn-Bedingung kann kein Makro starten, aber eine Funktion ausführen. Diese Funktion kann  _
wiederum ein Makro aufrufen.
Die Funktion ist so aufgebaut und ruft das abhängige Makro auf:
Function MakroStart()
Application.Volatile
MakroStart_Makro
End Function
Sub MakroStart_Makro()
MsgBox ("TuT")
End Sub
von Ramses (Rainer)


    Anzeige
    AW: Mit Formel "Wenn..." Makro aufrufen
    23.03.2017 18:00:47
    Dieter(Drummer)
    Danke Hajo,
    dass muss ich langsam umsetzen. Es wird wohl etwas dauern, aber ich gebe Nachricht, ob ich es dann richtig gemacht habe und es klappt.
    Danke erstmal und Gruß, Dieter(Drummer)
    AW: Danke Hajo, klappt prima ...
    23.03.2017 18:21:26
    Dieter(Drummer)
    ... es hat perfekt nach meinen Vorstellungen funktioniert.
    Ich habe in G18 die Formel: 
    
=WENN(F18>11;MakroStart();"")

    und im Tabellenblatt die Function: 
    Function MakroStart()
Application.Volatile
MakroStart_Makro
End Function
Sub MakroStart_Makro()
Call MausLinks
End Sub

    Es klappt perfekt.
    Danke und einen schönen Abend,
    Dieter(Drummer)
    Anzeige
    AW: Mit Formel "Wenn..." Makro aufrufen
    23.03.2017 18:00:31
    Daniel
    Hi
    das Worksheet_Change-Event spricht nur an, wenn die Zellformel ansich geändert wird.
    es spricht nicht an, wenn sich bei gleicher Formel das Formelergebnis durch eine Neuberechnung ändert.
    du müsstest hier also das Calculate-Event verwenden, dieses spricht bei einer Neuberechnung der Formeln im Tabellenblatt an.
    allerdings kannst du nicht ermitteln, welche Zellen bzw Formeln dabei ihren Wert geändert haben.
    die andere Alternative ist, dass du im Change-Event diejenigen Zellen überwachst, die einen Einfluss auf das Formelergebnis von F18 haben, also E5 und G5:G16:
    Sub Worksheet_Change(ByVal Target As Range)
If not Intersect(Target, Range("E5,G5:G16")) is Nothing then
If Range("$F$18").value = 12 Then
Call MeinMakro
end If
End If
End Sub
    aber auch das geht nur, wenn in E5 und G5:G16 keine Formeln stehen, sondern Festwerte.
    Gruß Daniel
    Gruß Daniel
    Anzeige
    AW: Danke Daniel ...
    23.03.2017 18:08:44
    Dieter(Drummer)
    Hallo Daniel,
    dann wird wohl dein Hinweis-Makro nicht helfen, da in E5 ein Festwert ist, aber in G5:G16 Formeln stehen.
    Dennoch Danke und
    Gruß, Dieter(Drummer)
    AW: Danke Daniel ...
    23.03.2017 18:11:56
    Daniel
    naja, du kannsst die Zellen, auf die sich die Formeln von G5:G16 beziehen überwachen.
    das Change-Event reagiert immer nur auf eine manuelle Eingabe in die Zelle.
    das Calculate-Event reagiert zwar auf neuberechnung der Formeln, aber du kannst nicht ermitteln, welche Formeln neu berechnet wurden und ob sich der Wert geändert hat.
    Gruß Daniel
    Anzeige
    AW: Danke nochmal Daniel ...
    23.03.2017 18:16:58
    Dieter(Drummer)
    ... mit Hajos Version hat es schon funktioniert.
    Gruß und einen schönen Abend, Dieter(Drummer
    AW: Danke Daniel ...
    23.03.2017 18:21:13
    Daniel
    ggf wäre das eine Möglichkeit:
    im Calculate-Event des Tabellenblatts folgendes:
    Private Sub Worksheet_Calculate()
Static AltWert As Double
With Range("F18")
If .Value  AltWert Then
AltWert = .Value
If .Value = 12 Then Call DeinMakro
End If
End With
End Sub
    mit dem Altwert überprüfst du, ob sich der Wert von F18 geändert hat.
    damit verhinderst du, dass das Marko ständig wiederholt ausgeführt wird, wenn eine andere Zelle neu berechnet wird, währen F18 gleich bleibt.
    Somit wird das Makro dann nur einmalig ausgeführt, wenn sich der Wert von F18 von einem anderen Wert auf 12 ändert.
    eine Static-Variable behält ihren Wert nach Makroende und ist dann bei einem erneuen Aufruf schon von anfang an befüllt.
    Gruß Daniel
    Anzeige
    AW: Danke Daniel ... ebenfalls perfekt ...
    23.03.2017 18:31:49
    Dieter(Drummer)
    ... eine prima funktioniernde Lösung und ohne Function.
    Danke für diese Lösung.
    Gruß, Dieter(Drummer)
    ;

    Forumthreads zu verwandten Themen

    "Wenn Zeit > 17.30 Uhr dann"
    Susanne99

    Hallo,
    wie formuliere und formatiere ich den o.g. Ausdruck als Formel?
    Gruß
    Susanne
    14.09.2008 23:24:58
    Thread-ID: 1009640
    6 Beiträge
    Vergleichen mit Funktion WENN
    Uwe

    Hallo liebe Forummitglieder,
    ich habe ein Problem mit vergleichen von Zahlen.
    Ich habe schon selbst probiert, aber das haut hinten und vorne nicht hin.
    =WENN(ODER(B10=1;"100")WENN(B10=2;"200")WENN(B10=3;"300")WENN(B10=4;"400"))
    Ich möchte wenn in B10 1 steht 100, bei 2 200, bei...
    01.10.2008 08:25:00
    Thread-ID: 1013514
    9 Beiträge
    Wenn Formel mit Spalte
    Maris

    Hi zusammen,
    ist das möglich, dass ich eine Wenn-Formel auf eine Spalte und eine Zelle in der Zeile beziehe? Bsp.:
    Tabelle A B C Ergebnis ERM VOLL OHNE 1 x ERM 2 x...
    05.11.2008 16:30:00
    Thread-ID: 1021984
    6 Beiträge
    Wenn Funktion mit *
    Stan

    Hallo,
    Ich habe eine WENN Funktion eingebaut die prüft Inhalt G2 und dann multipliziert andere Zellen.
    Beispiel ==WENN(G2="A12";M2*4;WENN(G2="B12";M2*2;"Fehler")). Es kommen verschiedene Werte nach A und B vor (A12, A22, A27 usw.)
    Kann ich nur erste Stelle Abfragen und die nächsten...
    21.11.2008 13:27:00
    Thread-ID: 1026711
    3 Beiträge
    Anzeige
    Wenn-Dann-Funktion als Makro
    Sulley

    Hallo zusammen,
    ich hänge an einem Makro fest.
    Matthias L und fcs (Vielen dank noch mal an dieser Stelle) haben mir mal jeder ein super makro gebaut, mit welchem ich Daten von einer Tabelle ans Ende einer anderen Tabelle schicken kann. Hat auch super geklappt.
    Hier nochmal das Makro...
    24.11.2008 16:47:36
    Thread-ID: 1027372
    11 Beiträge
    Wenn-Formel mit 12 Bedingugen
    Lars

    Hallo.
    Ich habe eine Frage zur Wenn-Formel. Ich möchte in Zelle A3 einen Wert ausgelesen bekommen.
    Wenn A1 = D1 dann Wert aus D3
    Wenn A1 = F1 dann Wert aus F3
    usw.
    Insgesamt sind es 12 bedingungen. Die Spalten liegen nicht nebeneinander.
    10.12.2008 12:51:00
    Thread-ID: 1031660
    4 Beiträge
    Anzeige
    WENN Funktion mit mehr als 8 Bezügen
    AcJoker

    Hallo,
    ich versuche eine Exceltabelle zu erstellen bei der in Spalte A etwas steht das 20 Verschieden Werte annehmen kann.
    In Spalte B hätte ich gerne im Bezug auf Spalte A einen Wert stehen.
    Im Hintergrund z.B. auf AA und AB gibt es eine "Übersetzung" der 20 möglichen Werte von Spa...
    03.01.2009 16:13:58
    Thread-ID: 1036563
    6 Beiträge
    Wenn Funktion mit mehreren Argumenten
    Britta

    Hallo Zusammen,
    im moment steh ich total aufm Schlauch, ich habe mit Funktionen lange nicht gearbeitet und bekomme es grade nicht so recht hin.
    Also hier das Ding: ich habe eine Tabelle in der in B2 eine Eingabe erfolgt, diese kann nur 16 oder 18 sein, sollte es anders sein, soll ein F...
    07.03.2009 09:41:28
    Thread-ID: 1057522
    11 Beiträge
    wenn dann funktion
    jannis

    Hallo zusammen
    wäre super wenn mir einer weiterhelfen könnte!
    3 lösungen bräuchte ich für folgende berechnungen
    1.Beispiel
    wenn das Ergebniss gößer als das Ziel dann 1 ; wenn das Ergebniss kleiner dann -1
    wenn gleich bleibend dann 0
    2. Beispiel (ich weis nicht ob man hi...
    09.03.2009 15:02:36
    Thread-ID: 1058181
    22 Beiträge
    Anzeige
    Username und Uhrzeit mit Wenn-Dann?
    Mario

    Hallo zusammen,
    ich habe schon so Einiges in Richtung Usernamen ermitteln usw. gelesen, bin aber nicht in der Lage, die Codes auf mein Problem hin anzupassen. Deshalb erhoffe ich mir nun hier Hilfe.
    Wir haben im Team eine "offene-Punkte-Liste.xls", in die entsprechende Daten eingetragen...
    30.06.2009 18:10:03
    Thread-ID: 1085453
    4 Beiträge
    Wenn Funktion mit Folgewert
    giovane293

    Hallo, ich bin es nochmal!
    Ich komme einfach nicht auf die Lösung:
    Ich habe folgende Tabelle:
    https://www.herber.de/bbs/user/63085.xls
    Nun möchte ich in einer Zelle (z.B. K22) die Zielerreichung eingetragen bekommen, wenn in Spalte B der Eintrag x gewählt wurde. Also Excel soll...
    10.07.2009 15:11:29
    Thread-ID: 1087710
    5 Beiträge
    Anzeige
    Wenn Und Funktion mit mehreren Bedingungen
    Katja

    Hallo Leute,
    brauche bei einer Funktion Eure Hilfe.
    Spalte F steht die Dienstart, z.B. VD, B, RB usw.
    Spalte W steht die Stundenanzahl ohne Pausenabzug
    Ich möchte jetzt folgendes berechnen:
    WENN(UND(F2="VD";W2 kleiner als 6);W2;WENN(UND(F2="VD";W2 kleiner als 9);W2-0,5;W...
    13.07.2009 13:55:40
    Thread-ID: 1088213
    2 Beiträge
    Entdecke relevante Threads

    Schau dir verwandte Threads basierend auf dem aktuellen Thema an

    Alle relevanten Threads mit Inhaltsvorschau entdecken
    Anzeige
    Anzeige

    Infobox / Tutorial

    Makro mit der WENN-Formel in Excel auslösen

    Schritt-für-Schritt-Anleitung

    Um ein Makro mit der WENN-Formel in Excel auszulösen, gehe wie folgt vor:

    1. Formel in Zelle F18 einfügen:

      =WENN(E5="";"";ZÄHLENWENN(G5:G16;"ü"))

    2. Makro im VBA-Editor erstellen:

      • Öffne den VBA-Editor mit ALT + F11.
      • Füge ein neues Modul hinzu und erstelle die folgende Subroutine: 
        Sub MeinMakro()
MsgBox "Das Makro wurde ausgeführt!"
End Sub

    3. Worksheet-Change-Event einfügen:

      • Im entsprechenden Arbeitsblatt füge das Worksheet_Change-Event hinzu: 
        Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("E5,G5:G16")) Is Nothing Then
   If Range("$F$18").Value = 12 Then
       Call MeinMakro
   End If
End If
End Sub

    4. Testen:

      • Ändere die Werte in den Zellen E5 oder G5:G16, um zu sehen, ob das Makro bei einem Wert von 12 in F18 ausgeführt wird.

    Häufige Fehler und Lösungen

    • Fehler: Das Worksheet_Change-Event wird nicht ausgelöst.

      • Lösung: Stelle sicher, dass du die Zellen E5 und G5:G16 korrekt überwacht hast. Wenn in G5:G16 Formeln stehen, kannst du die Zellen, auf die sie sich beziehen, überwachen.

    • Fehler: Das Makro wird mehrmals ausgeführt.

      • Lösung: Verwende das Worksheet_Calculate-Event, um sicherzustellen, dass das Makro nur einmal ausgeführt wird, wenn sich der Wert von F18 ändert.

    Alternative Methoden

    1. Verwendung einer Funktion: Du kannst eine Funktion erstellen, die das Makro aufruft, wenn die Bedingungen erfüllt sind. Beispiel:

      Function MakroStart()
   Application.Volatile
   If Range("$F$18").Value = 12 Then
       Call MeinMakro
   End If
End Function

    2. Worksheet_Calculate-Event: Eine weitere Methode ist das Worksheet_Calculate-Event zu nutzen:

      Private Sub Worksheet_Calculate()
   Static AltWert As Double
   With Range("F18")
       If .Value <> AltWert Then
           AltWert = .Value
           If .Value = 12 Then Call MeinMakro
       End If
   End With
End Sub

    Praktische Beispiele

    • Beispiel 1: Wenn der Wert in E5 auf einen bestimmten Wert geändert wird, wird das Makro ausgeführt.
    • Beispiel 2: Die Formel in G18 könnte so aussehen: 
      =WENN(F18>11;MakroStart();"")

    Tipps für Profis

    • Nutze Application.Volatile, um sicherzustellen, dass deine Funktion bei jeder Neuberechnung von Excel aktualisiert wird.
    • Teste dein Makro gründlich in einer Testumgebung, bevor du es in einer produktiven Datei verwendest.
    • Halte deine Makros einfach und klar strukturiert, um die Wartbarkeit zu erhöhen.

    FAQ: Häufige Fragen

    1. Kann ich auch andere Bedingungen verwenden?
    Ja, du kannst die Bedingungen in der WENN-Formel anpassen, um verschiedene Werte zu überprüfen.

    2. Was passiert, wenn ich eine Zelle mit einer Formel ändere?
    Das Worksheet_Change-Event reagiert nur, wenn die Zellformel selbst geändert wird. Nutze das Calculate-Event für Neuberechnungen.

    Beliebteste Forumthreads (12 Monate)

    Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
    Anzeige
    Anzeige
    Entdecke mehr
    Finde genau, was du suchst

    Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

    Suche nach den besten Antworten
    Unsere beliebtesten Threads

    Entdecke unsere meistgeklickten Beiträge in der Google Suche

    Top 100 Threads jetzt ansehen
    Anzeige