"Zufallszahlen zur Verbesserung der Kombiniergenauigkeit speichern" nicht verfügbar

Hallo Florian,



"Die eingangs erwähnte Möglichkeit den Check-Out und Check-In-Vorgang zu nutzen steht also nicht zur Verfügung?"



Leider nicht. Siehe "Lässt sich das Aus- und Einchecken automatisieren?" -
Die wichtigsten Fragen
zu den Themen Auschecken, Einchecken und Versionen.



Bitte überprüfe alle mögliche Ursachen aus "Problembehandlung
bei der gemeinsamen Dokumenterstellung".



Teste auch die dort erwähnte Option "Zufallszahlen zur Verbesserung der Kombiniergenauigkeit speichern".



Freue mich auf Deine Rückmeldung.

Mit freundlichen Grüßen,

Georgi Taskov

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

ich habe folgendes Problem:
Ich habe mit der Zufallsbereich Formel eine Reihe von Zufallszahlen erstellt, welche ich nun in ein anderes Feld kopieren will.
Dabei darf allerdings nur der WERT der Zahl kopiert werden, auch soll sich der Wert bei einer Aktualisierung der Tabelle ändern, da ich eine WENN-Formel mit jener Zufallszahl verwenden will. Die soll zwei Zufallszahlen multiplizieren und das mit einem
gerade eingegeben Wert vergleichen.
Das soll etwas so aussehen:
In A1 =ZUFALLSBEREICH(D1;D2) |In B1 =ZUFALLSBEREICH(D1;D2)
In A2 der WERT aus A1 |In B2 der Wert aus B1
In A3 =WENN(A2*B2=C2;"Wahr";"Falsch")

Oder geht das irgendwie anders, sodass die WENN-Formel die Zufallszahl direkt verarbeiten kann?

Hier eine mögliche Lösung deiner Problemstellung...

Wenn Formel verarbeitet Zufallszahlen direkt... [habe als Fleißaufgabe auch angegeben, wie du die Zahlen "kopieren" könntest.



Formel an deine Anforderungen adaptieren!