Private Sub Worksheet_Calculate()
If Not IsEmpty([a1]) Then _
If [a1] = 1 Or [a1] = 0 Then Call makro1
End Sub
'----------------------------------------------------------
' Bei änderung der Zelle A1
Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim tb As Worksheet
Set tb = Worksheets("Tabelle1")
On Error GoTo Fehler
Application.EnableEvents = False
If Target.Address = "$A$1" Then
If IsNumeric(tb.[A1].Value) Then 'Abfrage, ob Zahl
If tb.[A1] = 0 Then Makro_1
If tb.[A1] = 1 Then Makro_2
End If
End If
Application.EnableEvents = True
Exit Sub
Fehler:
Application.EnableEvents = True
End Sub
Sub Makro_1()
MsgBox "Makro_1 wird ausgeführt."
End Sub
Sub Makro_2()
MsgBox "Makro_2 wird ausgeführt."
End Sub
'----------------------------------------------------------
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen