Excel - Zufallsgenerieren mit Einschränkungen

Ich würde das mit VBA machen.

Da kann ich ala CLng(Rnd * 19)+1 eine zufälliges Feld auswählen, prüfen ob es leer ist und eine 1 reinschreiben.

Das ganze 5x und fertig.

Andreas.

Option Explicit

Sub Test()

Dim i As Integer

Dim Arr(1 To 5)

Arr(1) = RandomUnique(1, 20, True)

For i = 2 To 5

Arr(i) = RandomUnique(1, 20)

Next

Debug.Print Join(Arr, ", ")

End Sub

Function RandomUnique(ByVal Lo As Long, ByVal Hi As Long, _

Optional Reset As Boolean = False) As Long

Static Dict As Object 'Dictionary

'Init dictionary if necessary

If Dict Is Nothing Then Set Dict = CreateObject("Scripting.Dictionary")

'Remove all used numbers if forced from outside

If Reset Then Dict.RemoveAll

Do

'Get a random number

RandomUnique = Int((Hi - Lo + 1) * Rnd) + Lo

'Already used?

Loop Until Not Dict.Exists(RandomUnique)

'Remember it

Dict.Add RandomUnique, 0

'Automatic reset if all numbers used

If Dict.Count > Hi - Lo Then Dict.RemoveAll

End Function

Hallo Susanne,

welche Formatierungen hattest Du für den ersten Abschnitt vorgesehn? Normalerweise kann man bei mehreren Formatierungen die Option "Nur markiertes Feld" wählen. Wenn Du uns genauser bescheid gibst welche Du meinst, können wir dass hier versuchen zu reproduzieren.

Beste Grüße,

Agnethe

Hallo Susanne,

Mein Problem: Bei Formatierungseinschränkungen kann ich keine Abschnitte angeben- das gilt immer für das gesamt Dokument.

Oder habe ich was übersehen?

du hast nichts übersehen - es geht einfach nicht...

Viele Grüße

Lisa

Hallo Raoul,

danke für die Nachricht.

Arbeiten Sie zusammen in Echtzeit? Bei Tabellen in Excel-Dokumenten besteht eine Einschränkung auf diese Funktion.

Stellen Sie sicher, dass Ihr Kollege der einzige ist, der die Word- und Excel-Dateien geöffnet und getestet hat, ob er sie bearbeiten kann.

Ich freue mich auf Ihre Rückmeldung.

MfG,

Gijs H.

Punkt 1. beinhaltet keine Frage.

Die Filtereinstellungen in einer freigegebenen Mappe sind Userbezogen, ich möchte auf meinem Bildschirm ja nicht jedesmal beim Öffnen der Datei Deine Einstellungen rückgängig machen damit ich arbeiten kann. Logisch?

Punkt 2. einfach mal probieren? ;-)

a) geht

b) das einrichten geht nur vor der Freigabe

Andreas.