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.
Moin!
Zitat:mehrere Zellen rotieren lassen, was aktuell auch funktioniert (Bild 3).
Nö, das Bild ist statisch … :21:
Zitat:Anbei findet ihr Bilder zu der Situation und den aktuellen VBA-Code.
Lade mal die Datei hoch!
Gruß Ralf
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
(18.10.2017, 10:58)Kuwer schrieb: [ -> ]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.
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
(18.10.2017, 13:02)Kuwer schrieb: [ -> ]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)
(18.10.2017, 13:33)Kuwer schrieb: [ -> ]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.