Zufallszahlen speichern um die Kombinationsgenauigkeit zu verbessern word 365 version 2503

Hallo Peter,

Meine Office 2016 Version ist 16.0.9029.2167 und die Einstellungen sehen wie bei dir aus.

Bitte prüf im Office Trust Center, ob Zufallszahlen zur Verbesserung der Kombinationsgenauigkeit speichern aktiviert ist.





Das Dokument soll auch im OneDrive gespeichert werden und prüf unter SharePoint Bibliothekeinstellungen /
Versioning Einstellungen, ob die Option Require Check out aktiviert ist.

Weitere Information findest du im
Artikel.

Mit freundlichen Grüßen,

Galin Karlov

Microsoft Office 365 Support Engineer

Hallo Ana-Lena,

mit Zufallsbereich wird dir eine zufällige Ganzzahl aus deinem angegebenen Bereich zurückgegeben, also bei

=ZUFALLSBEREICH(1;10)

eine Zahl zwischen 1 und 10. Das gleiche Ergebnis kannst du erreichen mit:

=KÜRZEN(ZUFALLSZAHL()*10;0)+1

oder

=GANZZAHL(ZUFALLSZAHL()*10)+1

da Zufallszahl eine Zahl zwischen 0 und 0,99999... erzeugt.

Mit freundlichen Grüßen

Claus

Hier einmal der ganze Code bis zur 2 Case-Bedingung (die Zeilen, mit denen der Sound abspielt ist auskommentiert, da der die Folienanimationen löscht):



Sub AlleZeichen()

Dim ZufallsZahl As Integer

Dim Obergrenze As Integer

Dim Untergrenze As Integer

Dim ZZ As Integer

Static vorrangegangeneZufallszahl As Integer

'alle Zeichen

If Slide4.OptionButtonAlleZeichen.Value = True Then

Do

ZufallsZahl = Int((74 - 1 + 1) * Rnd + 1)

Loop While ZufallsZahl = vorrangegangeneZufallszahl

Else

If Slide4.OptionButtonBuchstZahlen.Value = True Then

Do

ZufallsZahl = Int((40 - 1 + 1) * Rnd + 1)

Loop While ZufallsZahl = vorrangegangeneZufallszahl

Else

If Slide4.OptionButtonNurInterpunktion.Value = True Then

Do

ZufallsZahl = Int((50 - 41 + 1) * Rnd + 42)

Loop While ZufallsZahl = vorrangegangeneZufallszahl



Else

If Slide4.OptionButtonNurSonderzeichen.Value = True Then

Do

ZufallsZahl = Int((74 - 51 + 1) * Rnd + 50)

Loop While ZufallsZahl = vorrangegangeneZufallszahl



Else

If Slide4.OptionButtonInterpSonderz.Value = True Then

Do

ZufallsZahl = Int((74 - 41 + 1) * Rnd + 42)

Loop While ZufallsZahl = vorrangegangeneZufallszahl

End If

End If

End If

End If

End If

vorrangegangeneZufallszahl = ZufallsZahl



Select Case ZufallsZahl

Case 1

Slide4.TextBox1.Value = "a"

'ActivePresentation.Slides(1).Shapes("Pfeil nach rechts 183").AnimationSettings.SoundEffect.ImportFromFile "awav"

'ActivePresentation.Slides(1).Shapes("Pfeil nach rechts 183").AnimationSettings.SoundEffect.Play

Case 2

Slide4.TextBox1.Value = "b"



'ActivePresentation.Slides(1).Shapes("Pfeil nach rechts 183").AnimationSettings.SoundEffect.ImportFromFile "bwav"

'ActivePresentation.Slides(1).Shapes("Pfeil nach rechts 183").AnimationSettings.SoundEffect.Play

...



Dass VBA und Animationen auf einer Folie generell nicht zusammen können kann ja wohl nicht sein? Das würde VBA in PowerPoint ja komplett ad absurdum führen.

Kann es sein, dass PowerPoint sooo blöd ist? Oder ist das ganze Thema nur liederlich dokumentiert? Man findet ja weder in der Literatur noch im Web etwas Umfassendes zu VBA mit PowerPoint. Dabei wüsste ich kein Office-Programm, bei dem VBA so viel Sinn machen
würde wie bei PowerPoint.

Hallo Roland,



5 Zufallszahlen ergeben nur zufällig mal deine Summe. Probiere es mal so:

A4: =KÜRZEN(ZUFALLSZAHL()*$A$1;0)+1

A5: =KÜRZEN(ZUFALLSZAHL()*($A$1-SUMME($A$4:A4));0)+1

und runter ziehen bis A7. Und dann in A8:

=A1-SUMME(A4:A7)



Mit freundlichen Grüßen

Claus

Hallo IBBBecker,

schau mal in diesen Thread:
Fehlermeldung: Interner Fehler 2503 und anschließend 2502.

Scheint ein Berechtigungsproblem zu sein.

Lass uns bitte wissen ob der Thread hilfreich war.