Zellen rotieren lassen

[Kuwer]

...Kannst du mir einen Tipp geben wie ich die Userform mit der Namenseingabe mit integriert bekomme? Weil wenn ich darüber die Namen eingebe, funktioniert die Rotation leider nicht.

Private Sub cmdNeues_Spiel_Click()
 Cells(1, 2).Value = TextBox1.Value
 Cells(1, 3).Value = TextBox2.Value
 Cells(1, 4).Value = TextBox3.Value
 Cells(1, 5).Value = TextBox4.Value
 Cells(1, 6).Value = TextBox5.Value
 Cells(1, 7).Value = TextBox6.Value
 Unload Me 'Spielereingabe schließen
 Range("B7").Select
End Sub

Gruß Uwe