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.