Makro starten über Formel

Hallo Excelspezis,
ich hab mal wieder ein Problem, wo ich momentan auf dem Schlauch steh.
Ich möchte ein Makro über eine "Wenn" Funktion mit Vergleich starten, da ich min 1000 Einträge in Spalte G und H so nach und nach durchführen will, läßt sich die Formel wunderbar runter ziehen. H wird vorgegeben vom Dropdown, das klappt soweit ganz gut.
Doch komischer Weise, startet das Makro, was ausgelöst wird durch den Zellwertvergleich, auch wenn ich z.B. Spalte D filtere, es sei denn die Einträge bei G und H sind alle gleich. Hab schon versucht über Makro bei Zellwertänderung, doch leider bekomm ich es nicht hin, das ich bis z.B. H1000 vergleichen kann.
Gibt es vielleicht noch andere Lösungen?
Hier mal die Datei:

Die Datei https://www.herber.de/bbs/user/89067.xlsm wurde aus Datenschutzgründen gelöscht

Danke
Gruß
Martin

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Ü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) oder Function MAKRO(strMakro As String) As String Select Case (strMakro) Case Is = "XY" XY Case Is = "Test2" Test2 Case Else strMakro = "kein Makro vorhanden" End Select MAKRO = strMakro End Function Sub XY() MsgBox "hier kommt Makro XY" End Sub Sub Test2() MsgBox "hier kommt Makro Test2" End Sub In einer Zelle: =MAKRO(WENN(A1=0;"XY";A1)) von Melanie Breden

Hallo Zusammen,
ich weis das ich in Sachen VBA noch viel lernen und üben muss, aber ich denke doch einfachheitshalber über das Change Ereignis ist dies doch recht simple zu lösen.

Option Explicit
'Mehrfacheingabe geht so nicht
Private Sub Worksheet_Change(ByVal Target As Range)
With Target.Cells(1)
If .Column = 7 Then 'SpalteG
If Target.Cells  .Offset(0, 1).Value Then
MsgBox "Makro startet" 'call DEINMAKRO
Else
MsgBox "Gleicher Wert ist erfüllt" 'MACH WAS ANDERES
End If
End If
End With
End Sub

Da du aber schon ein weiteren Bereich ebenfalls mit dem Change Ereignis bestückt hast müsste dies nun zusammen gefügt werden. Vergib dazu den "Bereichen" je eine Variable als Range und prüfe welcher Bereich gerade geändert wurde.
Ich hoffe es funktioniert so, ansonsten muss einer der Profis über meine Zeilen schauen
https://www.herber.de/bbs/user/89071.xlsm
Gruß Matze

Beliebteste Forumthreads (12 Monate)

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

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread