Loop erstellen

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

Clausi... du bist der Beste!!!

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

Guten Morgen,
Ich habe Dir die private Nachricht geschickt.
Bitte schicke mir die Daten dort zurück damit ich eine Serviceanfrage aufmachen kann.
Bist Du der Globale Admin:
Name des Admins:
UPN des Admin Tenats:
Alternative E-Mail-Adresse:
Registrierte Rufnumme:
Alternative Rufnummer:
Firmen Adresse:
Denn das bedarf es um Dir helfen zu können.
Ich wurde benachrichtigt, dass ich eine private Nachricht erhalten habe. Was bedeutet das?
Nur ein Moderator von Microsoft kann eine private Nachricht erstellen. Wenn Sie eine private Nachricht erhalten, bedeutet dies, dass der Moderator Ihre Frage oder Ihr Problem privat klären möchte oder personenbezogene Informationen benötigt (z. B. E-Mail-Adresse oder Kontodetails). Nur Sie und Moderatoren von Microsoft können die Inhalte der privaten Nachrichten sehen. Andere Communitymitglieder haben keinen Zugriff auf diese Nachrichten.

• Öffnen der privaten Nachricht:
• Klicken Sie in einer E-Mail-Benachrichtigung auf den bereitgestellten Link.
• Klicken Sie in einem Thread im Abschnitt „Frageninformationen“ auf das Symbol „Private Nachricht“.
  
• Von jedem anderen Bereich der Community aus können Sie auf Ihren Profilnamen in der oberen rechten Ecke des Bildschirms klicken. Klicken Sie auf die drei Auslassungspunkte und dann auf Private Nachrichten anzeigen
  
• Wenn der Moderator um eine Antwort auf die private Nachricht gebeten hat, geben Sie Ihre Antwort in das Feld
• Neue Nachricht senden
• ein.
• Klicken Sie auf Antworten.
  
  

Mit freundlichem Gruß
Wolf Fabian Spohr
Microsoft office 365 Business Support Engineer

Zur Behebung des Fehlers reichten bereits folgende Schritte aus:
- in Azure unter Benutzer oben rechts auf weitere Einstellungen "MFA pro Benutzer" öffen
- Personen markieren und unter "Benutzereinstellung verwalten" die "Multi-Faktor-Authentifizierung für alle gespeicherten Geräte wiederherstellen" auswählen
Danach konnte ich auf meinem Handy das Konto wieder hinzufügen und mir den QR-Code anzeigen lassen, um den Authenticator auch auf dem Diensthandy meiner Kollegin einzurichten.