Ich hab mich an Russische Roulett gewagt...
Und dabei folgendes asuprobiert
Der Schieß Button ist mit folgendem Macro verknüpft:
Option Explicit
Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal ms As LongPtr)
Sub Drehung()
'
' Drehung Makro
'
'
Dim i As Integer
Dim z As Integer
Range("C100").Select
Selection.ClearContents
i = 0
z = Cells(1, 1)
'Schnelles Drehen
Do Until i = 100
i = i + 1
ActiveSheet.ChartObjects("Diagramm 2").Activate
ActiveChart.FullSeriesCollection(1).Select
ActiveChart.ChartGroups(1).FirstSliceAngle = z
Range("R22").Select
If z < 355 Then
z = z + 5
Else
z = 0
End If
Application.Calculate
Sleep (6)
DoEvents
DoEvents
Loop
'Langsames Drehen
Do Until i = 165
i = i + 1
ActiveSheet.ChartObjects("Diagramm 2").Activate
ActiveChart.FullSeriesCollection(1).Select
ActiveChart.ChartGroups(1).FirstSliceAngle = z
Range("R22").Select
If z < 358 Then
z = z + 2
Else
z = 0
End If
Application.Calculate
Sleep (6)
DoEvents
DoEvents
Loop
End Sub
Und nun zu meiner Frage ist es irgendwie möglich die Grad in den das Diagramm2 (also die "Trommel" | Kreis ) zeigt mit einer Formel anzuzeigen.
Ich brauch dies um zu wissen ob der Spieler dann stirbt oder nicht.
(Andere Vorschläge wie es zu ermöglichen ist , sind offen )
Danke für eure Hilfe im Vorraus!!