Verteilung in mehrere Notizbücher - die Verteilung erfolgt doppelt

Hallo Franziska,
<br />Ich habe dir eine private Nachricht geschickt.
<br />Mit freundlichen Grüssen
<br />Galin Karlov
<br />Microsoft Support Engineer
<br />

Vielen Dank Galin für deine Antwort
<br />Im OneNote Online sind die Kursnotizbücher nur einmal vorhanden. Es gibt im OneDrive keine doppelten Einträge und somit auch leider nichts zu löschen.
<br />Was mir im OneNote Online jedoch aufgefallen ist: Mein Master OneNote wird online nicht als Kursnotizbuch geöffnet. Online kann ich gar keine Seite in andere Notizbücher verteilen. Hängt es eventuell damit zusammen?
<br />Aber: Wenn ich Online aus einem Kursnotizbuch auf mehrere Notizbücher verteilen wähle, werden die zur Auswahl stehenden Kursnotizbücher ebenfalls doppelt aufgeführt. Gleicher Bug wie in der Desktop-Version.
<br />Wo kann ich OneNote zurücksetzen, wenn ich mit einem Mac arbeite?
<br />Freundliche Grüsse
<br />Franziska
<br />

Hallo Franziska,
<br />Bitte prüf in OneNote Online im Browser, ob du die Notizbücher auch doppelt siehst?
<br />Dann gehe zu dem Dokumentenordner in deinem OneDrive suche nach den doppelten Notizbüchern und lösche diese.
<br />Gehe zu Windows 10 App & Features, finde OneNote und unter erweiterte Optionen kannst du OneNote zurücksetzen.
<br />Starte OneNote wieder und du kannst deine Notizbücker neu synchronisieren.
<br />Weitere Information findest du im Englischen Thread.
<br />Mit freundlichen Grüssen
<br />Galin Karlov
<br />Microsoft Support Engineer
<br />

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