Excel VBA


Wenn die Zahl in A1 gerade ist, spring auf Tabelle2,
sonst spring auf Tabelle3

Sub Gerade_ungerade()
 Dim x As Double
  x = [A1]
  If x Mod 2 = 0 Then
    Worksheets("Tabelle2").Activate
  Else
    Worksheets("Tabelle3").Activate
  End If
End Sub