Hallo Holger,
zum Sterne-Problem:
Ich würde auf der Userform die möglichen Varianten fest anordnen (Imagex_1-x_4) und dann nach Wert des Parameters das passende sichtbar und alle anderen unsichtbar machen, etwa so:

Sub Sterne(k, Zelle)
  For n = 1 To 4
    Me.Controls("Image" & k & "_" & n).Visible = ThisWorkbook.Worksheets("tabelle2").Range(Zelle).Value = n
  Next n
End Sub

Geht sicher schneller, ist übersichtlicher und eine einmalige ARbeit.

Gruß der AlteDresdner