For i = StartJahr To EndJahr        
    If TabelleVorhanden(BasisName & i) = False Then Exit Sub \'Wenn keine Tabelle existiert
    Sheets(BasisName & i).Range(QuellZelle).Value = Wert
Next

Wenn Du schon einen Schleifenzähler i hast, dann verwende diesen doch auch.

Imho eleganter finde ich das so

Jahr = Val(Right(ActiveSheet.Name, 4))

...

For i = 1 To 5        
    If TabelleVorhanden(BasisName & CStr(Jahr + i)) = False Then Exit Sub \'Wenn keine Tabelle existiert
    Sheets(BasisName & CStr(Jahr + i)).Range(QuellZelle).Value = Wert
Next