Excel - Verteilung eines Stundenkontingent innerhalb eines Zeitintervalls

Hallo,

in welchem Zeitintervall fragst du dein Konto bei GMX ab?

Verfügst du über ein Konto im Tarif GMX Freemail?

Nach deinen Angaben gehe ich davon aus, dass GMX die Abfrage über POP3 nur in besimmten Zeitintervall unterstützt.

Ändere das Zeitintervall bitte versuchsweise auf 15 Minuten in Microsoft Outlook. Tritt das Problem weiter auf?

Viele Grüße

Thomas

Wo kann ich denn die Zeitintervall einstellen. Hab schon überall geschaut.

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 />

Wie muss ich damit umgehen; kann man diese „Programmierung“ in einem Excel-Sheet darstellen?

Ich sag mal, der Einfachheit halber gar nicht.
<br />Also man könnte die Hauptroutine nun umschreiben und die Ein-/Ausgabe mit Zellen machen... zu schwierig für jemanden der in VBA keine Grundkenntnisse hat.
<br />Wenn man den Code laufen läßt, dann gibt er die Kombinationen im Fenster "Direktbereich" aus, das ist Teil von VBA. Diese Ausgabe kann ich in ein Blatt kopieren und via TextInSpalten aufteilen. Und dann habe ich das:
<br />[table][tr][td]A<br />[/td][td]B<br />[/td][td]C<br />[/td][td]D<br />[/td][/tr][tr][td]A<br />[/td][td]B<br />[/td][td]C<br />[/td][td]E<br />[/td][/tr][tr][td]A<br />[/td][td]B<br />[/td][td]C<br />[/td][td]F<br />[/td][/tr][tr][td]A<br />[/td][td]B<br />[/td][td]D<br />[/td][td]E<br />[/td][/tr][tr][td]A<br />[/td][td]B<br />[/td][td]D<br />[/td][td]F<br />[/td][/tr][tr][td]A<br />[/td][td]B<br />[/td][td]E<br />[/td][td]F<br />[/td][/tr][tr][td]A<br />[/td][td]C<br />[/td][td]D<br />[/td][td]E<br />[/td][/tr][tr][td]A<br />[/td][td]C<br />[/td][td]D<br />[/td][td]F<br />[/td][/tr][tr][td]A<br />[/td][td]C<br />[/td][td]E<br />[/td][td]F<br />[/td][/tr][tr][td]A<br />[/td][td]D<br />[/td][td]E<br />[/td][td]F<br />[/td][/tr][tr][td]B<br />[/td][td]C<br />[/td][td]D<br />[/td][td]E<br />[/td][/tr][tr][td]B<br />[/td][td]C<br />[/td][td]D<br />[/td][td]F<br />[/td][/tr][tr][td]B<br />[/td][td]C<br />[/td][td]E<br />[/td][td]F<br />[/td][/tr][tr][td]B<br />[/td][td]D<br />[/td][td]E<br />[/td][td]F<br />[/td][/tr][tr][td]C<br />[/td][td]D<br />[/td][td]E<br />[/td][td]F<br />[/td][/tr][/table]

<br />Das kopiert man sich in ein Blatt und dann ersetzt man die Buchstaben einfach durch Formeln auf die gewünschten Eingabezellen. Geht ganz einfach mit Suchen&Ersetzen, ich zeig mal den Anfang:
<br />


<br />Und so hat man einen Formelblock mit Eingabezellen der die Paarung der Spieler übernimmt, den speichert man sich ab und kopiert ihn bei Bedarf und passt ihn an.
<br />Will man die Reihenfolge der Zeilen noch etwas durcheinander würfeln schreibt man Zufallszahlen in eine Hilfsspalte und sortiert nach dieser.
<br />Alles klar?
<br />Andreas.
<br />