Microsoft Loop für welche Pläne?

Guten Tag
<br />Hier ist ein Benutzer-Forum und alle hier wissen nur das, was auch die Nicht-Mitglieder wissen.
<br />Mit Deiner Vermutung, dass Loop ein Business Feature ist, solltest Du recht haben.
<br />https://www.microsoft.com/de-de/mic...oft-office-transforming-for-the-hybrid-world/
<br />Über Notion kann ich keine Aussage machen, habe mal früher Open Project (ein Open-Source Pendant zu MS Project) getestet: https://www.openproject.org/de/download-und-installation/
<br />

Guten Morgen,
Bitte schaue Dir einmal diesen Artikel an:
Microsoft Loop at Ignite 2022 - Microsoft Community Hub
Microsoft Office – Umgestaltung für die hybride Welt
Ich nehme an es befindet sich immer noch im preview Testung.
Microsoft Loop at Ignite 2022 - Microsoft Community Hub
Mit freundlichem Gruß
Wolf Fabian Spohr
Microsoft Office 365 Business Support Engineer

Ja, das führt dann zu einem Loop, aber keiner Lösung.

Hallo Kathi,
vielen Dank für deine Anfrage.
Microsoft hat sich dafür entschieden, Microsoft Planer nur für die geschäftlichen Pläne von Microsoft 365 bereitzustellen.
Die Microsoft 365 Business Pläne können auch von Privatkunden abonniert werden:
https://www.microsoft.com/de-de/microsoft-365/business/task-management-software
Stelle deine Rückmeldung zur Bereitstellung von Microsoft Planer in den privaten Plänen von Microsoft 365 im Microsoft Feedbackportal ein:
https://feedbackportal.microsoft.com/feedback/forum/a1a93b69-2f1c-ec11-b6e7-0022481f8472
Ich freue mich auf deine Rückmeldung.

Hallo,

probiere es mal so:

Sub Suche()
Dim LRow As Long, i As Long
Dim varSuche As Variant
Dim c As Range
Dim FirstAddress As String

With Sheets("Prüfungstabelle")
LRow = .Cells(.Rows.Count, "A").End(xlUp).Row
varSuche = .Range("A1:B" & LRow)
End With

For i = LBound(varSuche) To UBound(varSuche)
Set c = Sheets(varSuche(i, 2)).UsedRange.Find(varSuche(i, 1))
If Not c Is Nothing Then
FirstAddress = c.Address
Do
c.Interior.Color = vbRed
Set c = Sheets(varSuche(i, 2)).UsedRange.FindNext(c)
Loop While Not c Is Nothing And c.Address <> FirstAddress
End If
Next
End Sub

Claus