Loop - Schleife - Anmeldung Outlook online

Hallo,
danke für die Erstinfo. Leider führt dies auch nicht zum Erfolg.
Ich kann weder OWA aus dem Portal öffnen. Es kommt der gleiche Fehler "wiederholte Umleitungen erkannt".
Die Anmeldung im Portal funktioniert komischerweise. Sobald aber OWA gestartet wird, kommt der Fehler. Also aus dem Portal heraus als auch über die klassische Startseite. Dies bei allen Endgeräten. Also versch. Desktop-PCs als auch mobil von iphone usw.
Viele Grüße
Rainer

Guten Morgen,
Kannst Du OWA denn aus dem Portal aus öffnen?
Was Outlook angeht, bitte versuche den Ansatz hier:
Web-Anmeldung: 500 Es ist ein Fehler aufgetreten - Microsoft Community
Ich freue mich auf Deine Rückmeldung
Mit freundlichem Gruß
Wolf Fabian Spohr
Microsoft Office 365 Business Support

Hallo Albrecht,

erstens sind Schleifen ziemlich gleich aufgebaut. Es ist deshalb egal, ob du eine Zählschliefe, eine For each ..next oder eine Do until Loop-Schleife nimmst. Wenn du bei der Zählschleife einen Frhler hast, geht der nicht weg, wenn du die Schleife mit einer
Do Until Loop-Schleife ersetzt.

Außerdem machst du dir ständig Schwierigkeiten mit deinem Offset. Deine Syntax dafür ist zum Teil falsch. Dann gehst du davon aus, dass das Offset immer von A1 ausgeht. Dabei initialisierst du einen Range mit Offset und schreibst dann rng.select. Damit ist
die ActiveCell nicht mehr A1 und dein Offset geht jetzt von B2 aus.

Hast du meinen Code schon getestet? Wenn er für dich nicht brauchbar ist, liegt das daran, dass du dein Problem immer noch nicht schlüssig erläutert hast. Aber du könntest dir wegen Schleife und Referenzierung wenigstens an diesem Code ein Beispiel nehmen.
Denn man weiß dort immer wo man ist, wo etwas eingetragen werden soll und muss nicht zurückrechnen, was gerade die ActiveCell war und wohin einen das Offset bringt.

Mit freundlichen Grüßen

Claus

Hallo Albrecht,

wenn du nach einer Zahl suchst, darfst du sie nicht in Anführungszeichen setzen, sonst ist es Text 1. Außerdem kannst du die ganzen Spalten als ein Bereich ansprechen und auf einen Rutsch füllen:

Sub Test()

Dim i As LongWith Workbooks("AnteilswertBilanz_Monate.xlsm").Sheets("Ein-Ausz ")

    lrow = Cells(Rows.Count, "BR").End(xlUp).Row

    For i = 6 To lrow

        If .Cells(i, "BR") = 1 Then

            .Cells(i, "BR").Offset(, 1).Resize(columnsize:=24) = 1

        End If

    Next

End WithEnd Sub

Mit freundlichen Grüßen

Claus

Hallo Claus,

danke , ich habe es sogleich getestet, es funktioniert.

Auch das Ausfüllen der Zeile ist eine große Hilfe. Werde das Ganze noch mal durchdenken.

MFG

Albrecht