Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
   
   Dim DiesesJahr As Integer
   DiesJahr = Val(Format(Date, \"yyyy\"))
   
   Dim BasisName As String
   BasisName = \"KiGa_\"
   
   Dim Jahr As Integer
   Jahr = Val(Right$(Sh.Name, 4)) \' KiGa_2008, KiGa_2009 ....
    
   If Jahr < DiesesJahr Then Exit Sub
    
    
   Dim QuellZelle As String
   QuellZelle = Target.Address
   
   Dim Wert As Double
   Wert = Target.Value
    
   If TabelleVorhanden(BasisName & CStr(Jahr + 1)) = True Then
       Sheets(BasisName & CStr(Jahr + 1)).Range(QuellZelle).Value = Target.Value
   End If
    
End Sub