Worksheet_Change zwei mal?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
' The variable KeyCells contains the cells that will
' cause an alert when they are changed.
Set KeyCells = Range("Tabelle2[Vorbedingung]")
If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then
' Display a message when one of the designated cells has been
' changed.
'Hierher kommt der Code.
Call FarbeZeit
'Ggf. Hier: Call FarbeZeit2?
End If
End Sub

Sub FarbeZeit()
Dim x As Integer
Dim festNr As Long
On Error GoTo Vorbei
x = -1
Do
x = x + 1
If Range("Tabelle2[Vorbedingung]").Range("A1").Offset(x, 0) = "" Then
festNr = Range("Tabelle2[Nr.]").Range("A1").Offset(x, 0).Value
Worksheets(2).Shapes("Zeit " & festNr).ShapeStyle = msoShapeStylePreset23
Else
festNr = Range("Tabelle2[Nr.]").Range("A1").Offset(x, 0).Value
With Tabelle1.Shapes("Zeit " & festNr).Fill
.Visible = msoTrue
.ForeColor.ObjectThemeColor = msoThemeColorAccent2
.ForeColor.TintAndShade = 0
.ForeColor.Brightness = 0.8000000119
.Transparency = 0
.Solid
End With
End If
Loop Until x > 300
Vorbei:
End Sub

Sub FarbeZeit2()
Dim y As Integer
Dim festNr2 As Long
Dim festNr3 As Long
On Error GoTo Vorbei2
y = -1
Do
y = y + 1
If Range("Tabelle3[Vorbedingung]").Range("A1").Offset(y, 0) = "" Then
festNr3 = Range("Tabelle3[Nr.]").Range("A1").Offset(y, 0).Value
festNr2 = Range("Tabelle3[B]").Range("A1").Offset(y, 0).Value
Worksheets(2).Shapes("ZeitTeil " & festNr2 & " | Nr. " & festNr3).ShapeStyle =  _
msoShapeStylePreset21
Else
festNr3 = Range("Tabelle3[Nr.]").Range("A1").Offset(y, 0).Value
With Tabelle1.Shapes("ZeitTeil " & festNr2 & " | Nr. " & festNr3).Fill
.Visible = msoTrue
.ForeColor.ObjectThemeColor = msoThemeColorAccent2
.ForeColor.TintAndShade = 0
.ForeColor.Brightness = 0.8000000119
.Transparency = 0
.Solid
End With
End If
Loop Until y > 300
Vorbei2:
End Sub