Dim ProduktName As String Dim AktuelleAnzahl As Integer
Kommt doppelt vor. Sehr warscheinlich hast du den ersten If-Block kopiert und dabei ist das Problem entstanden.