Supportnet / Forum / Tabellenkalkulation
Makro bei einer bestimmten Bedingung starten
Frage
Moin, Moin,
ich möchte gerne ein Makro bei einem bestimmten Ergebnis in einer Zelle starten.
Z.B. Bei einer UND-Verknüpfung dreier Zellen (A1="ja";A2="Mo";A3="27") soll ein aufgezeichnetes Makro("Kopieren)gestartet werden.
Danke für die Hilfe
ExcelZwerg
Antwort 1 von nighty
hi zwerg
ein makro auf eine AND verknuepfung hin zu starten ist nicht so gut,uebertrag deine formel ins makro dann koenntest du entweder auf zellenwechsel reagieren oder auf einen eingestellten zeitintervall,was mir so spontan einfaellt.
makro was alle 3 sekunden abgearbeitet wird.
Private Sub Workbook_Open()
Call Makro1
End Sub
Sub Makro1()
a$ = "makro1"
Application.OnTime Now + TimeValue("00:00:3"), a$
rem hier deinen code einsetzen
End Sub
oder eines was auf zellenwechsel reagiert.
Private Sub Workbook_Open()
Call Makro1
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Call Makro1
End Sub
ein makro auf eine AND verknuepfung hin zu starten ist nicht so gut,uebertrag deine formel ins makro dann koenntest du entweder auf zellenwechsel reagieren oder auf einen eingestellten zeitintervall,was mir so spontan einfaellt.
makro was alle 3 sekunden abgearbeitet wird.
Private Sub Workbook_Open()
Call Makro1
End Sub
Sub Makro1()
a$ = "makro1"
Application.OnTime Now + TimeValue("00:00:3"), a$
rem hier deinen code einsetzen
End Sub
oder eines was auf zellenwechsel reagiert.
Private Sub Workbook_Open()
Call Makro1
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Call Makro1
End Sub
Antwort 2 von nighty
hi zwerg
man koennte wohl auch die formel auslesen und mit stringverarbeitenden befehlen die AND isolieren und so reagieren,doch schoener waer die abfrage im makro zudem weiss ich noch nicht wie.
gruss nighty
man koennte wohl auch die formel auslesen und mit stringverarbeitenden befehlen die AND isolieren und so reagieren,doch schoener waer die abfrage im makro zudem weiss ich noch nicht wie.
gruss nighty
Antwort 3 von nighty
hi zwerg
oder so :)
wird beim oeffnen gestartet und bei zellwechsel gestartet,mit deiner bedingung.
gruss nighty
Private Sub Workbook_Open()
Call Makro1
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Call Makro1
End Sub
Sub Makro1()
if range("a1")="ja" and range("a2")="Mo" and range("a3")="27" then
rem hier dein makro
endif
End Sub
oder so :)
wird beim oeffnen gestartet und bei zellwechsel gestartet,mit deiner bedingung.
gruss nighty
Private Sub Workbook_Open()
Call Makro1
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Call Makro1
End Sub
Sub Makro1()
if range("a1")="ja" and range("a2")="Mo" and range("a3")="27" then
rem hier dein makro
endif
End Sub