Dann entferne doch die Leerzeichen vor dem Vergleich
If Replace$(Sheets("Tabelle1").Range("A1").Value, " ", "") = "99991201" Then '...
und es ergibt sich der String auf der rechten Seite => Bedingung ergibt True.