Zellen rotieren lassen

[genossealex]

Hallo zusammen,

ich bräuchte mal eure Unterstützung. Meine Excel/VBA sind etwas eingerostet.

Und zwar möchte ich auf Knopfdruck (Neues Spiel) mehrere Zellen rotieren lassen, was aktuell auch funktioniert (Bild 3).
Nur fehlt mir jetzt nur noch die Funktion das wenn da leere Zellen sind, diese übersprungen werden (Bild 2).

Anbei findet ihr Bilder zu der Situation und den aktuellen VBA-Code.

Ich hoffe ihr könnt mir helfen.

[RPP63]

Moin!

mehrere Zellen rotieren lassen, was aktuell auch funktioniert (Bild 3).

Nö, das Bild ist statisch …  :21:

Anbei findet ihr Bilder zu der Situation und den aktuellen VBA-Code.

Lade mal die Datei hoch!

Gruß Ralf

[genossealex]

Moin!
Nö, das Bild ist statisch …  :21:

Lade mal die Datei hoch!

Gruß Ralf

getan

Gruß Alex

[genossealex]

*PUSH*

[Kuwer]

Hallo,

Private Sub CommandButton1_Click()

  Dim i As Long

  Dim Temp As Long

  With Range("B1:G1")

    Temp = .Cells(1).Value

    For i = 1 To Application.Count(.Value) - 1

      .Cells(i).Value = .Cells(i + 1).Value

    Next i

    .Cells(i).Value = Temp

  End With

   

  Range("$B$7:$G$46") = ""

  Range("$B$3:$G$3").Formula = "=SUM(B7:B46)"



  MsgBox "Neues Spiel, neues Glück"



  Range("B7").Select

End Sub

Die Formeln werden auch wieder neu gesetzt.

Gruß Uwe

[genossealex]

Hallo,

Private Sub CommandButton1_Click()

  Dim i As Long

  Dim Temp As Long

  With Range("B1:G1")

    Temp = .Cells(1).Value

    For i = 1 To Application.Count(.Value) - 1

      .Cells(i).Value = .Cells(i + 1).Value

    Next i

    .Cells(i).Value = Temp

  End With

   

  Range("$B$7:$G$46") = ""

  Range("$B$3:$G$3").Formula = "=SUM(B7:B46)"



  MsgBox "Neues Spiel, neues Glück"



  Range("B7").Select

End Sub

Die Formeln werden auch wieder neu gesetzt.

Gruß Uwe

Hallo,

vielen Dank für die Mühe, aber ich habe es mal eingesetzt und bei mir bleiben dann die Namen in den Zellen B1:G1 wo sie sind, da passiert nichts.

[Kuwer]

Hallo Alex,

dann so:

Private Sub CommandButton1_Click()

 Dim i As Long

 Dim Temp As Variant

 With Range("B1:G1")

   Temp = .Cells(1).Value

   For i = 1 To Application.CountA(.Cells) - 1

     .Cells(i).Value = .Cells(i + 1).Value

   Next i

   .Cells(i).Value = Temp

 End With

  

 Range("$B$7:$G$46") = ""

 Range("$B$3:$G$3").Formula = "=SUM(B7:B46)"



 MsgBox "Neues Spiel, neues Glück"



 Range("B7").Select

End Sub

Gruß Uwe

[genossealex]

Hallo Alex,

dann so:

Private Sub CommandButton1_Click()

 Dim i As Long

 Dim Temp As Variant

 With Range("B1:G1")

   Temp = .Cells(1).Value

   For i = 1 To Application.CountA(.Cells) - 1

     .Cells(i).Value = .Cells(i + 1).Value

   Next i

   .Cells(i).Value = Temp

 End With

  

 Range("$B$7:$G$46") = ""

 Range("$B$3:$G$3").Formula = "=SUM(B7:B46)"



 MsgBox "Neues Spiel, neues Glück"



 Range("B7").Select

End Sub

Gruß Uwe

Wir kommen der Sache näher.

Wenn ich jetzt z.B. 4 Namen eingebe & 2 leer bleiben, rotiert er wie vorher und setzt den ersten Namen in die 6te Zelle.
Beim nächsten mal rotiert er nur noch die ersten 4 Zellen inkl. dann der leeren die in die 4te vorgerückt ist und der erste Name bleibt hinten in der letzten.
(Wenn ich 3 Namen eingebe, dann rotiert er später nur 3 Zellen inkl. der leeren)

[Kuwer]

Hallo,


  Spiel 10.000_Kuwer.xlsm (Größe: 166,37 KB / Downloads: 4)

Gruß Uwe

[genossealex]

Hallo,



Gruß Uwe

Ich danke dir schon mal.
Aktuell sieht es erstmal super aus.
Das auf 0 setzen funktioniert und auch das mit dem Namen rotieren.

Eine Kleinigkeit ist da aber noch ...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.