Verteilung bei Excel @risk erstellen

@risk ist kein Microsoft AddIn, das kennt hier niemand. Da musst Du Dich schon an den Hersteller wenden.

Andreas.

Hallo Günther,

leider nein. In Excel und Word kannst Du eigene Tabellenformatvorlagen erstellen, PowerPoint hat man diese Möglichkeit leider nicht spendiert. Es übernimmt die Farben aus den Designfarben und die Verteilung der Farben aus den fest einprogrammierten Formatvorlagen.
Mehr als die 74 Optionen unter Tabellentools/Entwurf steht Dir nicht zur Verfügung.

Viele Grüße

Ute

Danke für die überaus schnelle, wenn auch nur bedingt befriedigende Anwort.

no risk noch fun.

Gruss

Option Explicit

Sub Example_Combinations()
Dim C As Collection, Item, i As Integer

Set C = Combinations(Array("A", "B", "C", "D", "E", "F"), 4)
For Each Item In C
i = i + 1
Debug.Print i; ":", Join(Item)
Next
End Sub

Function Combinations(Arr, ByVal Count As Integer) As Collection
'Gibt alle Kombinationen von Count Elementen in Arr als Arrays in einer Collection zurück
'Returns all combinations of Count elements in Arr as arrays in a collection
Dim Index() As Long
Dim Result()
Dim i As Long, j As Integer
'Create a collection
Set Combinations = New Collection
'Return empty collection if Count exceed the bound's of Arr
If LBound(Arr) + Count - 1 > UBound(Arr) Or Count < 1 Then Exit Function
'Setup space for index and result array
ReDim Index(1 To Count) As Long
ReDim Result(1 To Count)
'Setup index for first combination
For i = 1 To Count
Index(i) = LBound(Arr) + i - 1
Next
Do
'Build combination
For i = 1 To Count
Result(i) = Arr(Index(i))
Next
'Save it
Combinations.Add Result
'Get next index
i = Count
j = 0
Do
'Max. position for this index reached?
If Index(i) = UBound(Arr) - Count + i Then
j = j + 1
'Move index before up one step in next loop
i = i - 1
If i < 1 Then Exit Function
Else
'Increment position
Index(i) = Index(i) + 1
'Setup next indices
For j = 1 To j
i = i + 1
Index(i) = Index(i - 1) + 1
Next
Exit Do
End If
Loop
Loop
End Function

<br />

Vielen Dank Andreas, einleuchtend und selbsterklärend, das hilft mur sehr weiter!
<br />