ich bekomme jetzt den Fehler: 13, Typen unverträglich bei:
If TBlatt.[i7].Value > 0 Then

und was kann ich jetzt machen?
danke erst mal für deine antwort!