Hi Toni,

nur kurz (bin im Stress):

> if Sheets(\"KiGa_2008\").Select then exit Sub
> if Sheets(\"KiGa_2009\").Select then exit Sub
> if Sheets(\"KiGa_2010\").Select then exit Sub

Nein, \"Select\" ist IMHO eine Methode, die keinen Rückgabewert liefert. Also bringt das If nichts.

In Workbook_SheetChange wird auch \"Sh\" übergeben, was das Blatt darstellt. Da könntest Du das Jahr aus dem Namen extrahieren (Mid, Split, o. ä.).

Nur mal als Beispiel und ungetestet:

lngJahr = mid(sh.name, 6, 4)
if lngJahr < Aktuelles Jahr then …

> Dannn noch eine andere Geschichte: Lösche ich einen Wert in einer der
> besagten Tabellen, wird in den Folgetabellen der Wert 0 eingetragen. Ist
> auch irgendwie nachvollziehbar, denn die Variable Wert ist vom Typ
> Integer.
> Gibt es hierzu vielleicht auch eine Lösung?

Naja, Du könntest die 0 umwandeln:

if dies = 0 then dies = \"\"

Nur mal kurz als Ansatz, bin schon wieder weg …