450 4.7.0 Proxy session setup failed on Frontend with '451 4.4.0 Primary target IP address...

Hallo Susanne,
Kannst du mehr Details über deine Einrichtung geben.
1. Benutzt du eine Exchange Online oder Hybrideinrichgung?
2. Bekommst du diese Fehlermeldung auch in OWA oder nur in Outlook App?
3. Haben auch andere Benutzer diese Meldung?
4. Kannst du mit einer anderen Netzverbindung testen?
Mit freundlichen Grüssen
Galin Karlov
Microsoft 365 Support Engineer

Private Sub Worksheet_Change(ByVal Target As Range)

On Error GoTo cleanup

Application.EnableEvents = False

If Not Intersect(Target, [G:G]) Is Nothing Then

For Each Target In Intersect(Target, [G:G])

Target.EntireRow.Cells(,"C").IndentLevel = Target

Next

End If

If Not Intersect(Target, [C]) Is Nothing Then

For Each Target In Intersect(Target, [C])

With Target.EntireRow

If IsDate(.Cells(,"C")) And IsDate(.Cells(,"D")) Then

.Cells(,"E") = .Cells(,"D") - .Cells(,"C")

Else

.Cells(,"E").ClearContents

End If

End With

Next

End If

cleanup:

Application.EnableEvents = True

End Sub

Peter

Hallo Harri,



ich teste doch alles bevor ich es hier poste. Wo soll denn der Fehler liegen? Bist du wieder in einen Fehler gelaufen? Dann ist das Makro wieder nicht durch gelaufen.

Schalte so die Events wieder ein:

Sub Start()

Application.EnableEvents = True

End Sub



Und erweitere dann den Code wieder um die Fehlerbehandlung:



Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("B8:C8")) Is _

Nothing Then Exit Sub



Application.EnableEvents = False

On Error GoTo ENDE

With Target

.Value = UCase(.Value)

With .Font

.Name = "Calibri"

.Size = 11

End With

End With

ENDE:

Application.EnableEvents = True

End Sub



Mit freundlichen Grüßen

Claus

>> I logged on to Outlook Live through my regular Microsoft account, using an email address that is neither a Hotmail nor an Outlook.com address. But when I am logged on to Outlook Live, it does show an outlook.com address,
<br /><<
<br />Is the address outlook_long number@outlook ? That address is not routable - and it's because you have a non-Microsoft address set as primary on your Microsoft account.
<br />Microsoft has more information in this article: Outlook.com email account appears as "outlook_[long series of letters and numbers]@outlook.com" in Outlook for Windows https://support.microsoft.com/office/90ed7938-7f21-4cb5-a69d-a3b79ea4eafd
<br />To add the account to Outlook desktop as an Exchange account, you need to sign in using an Outlook.com alias. You can add one at account.microsoft.com, if you don't have one on the account already.
<br />

Hallo Harri,



dann musst du den Event-Code anders aufbauen:



Private Sub Worksheet_Change(ByVal Target As Range)

Dim i As Integer

Dim myStr As String

On Error GoTo ENDE

Select Case Target.Address(0, 0)

Case "D8"

Application.EnableEvents = False

For i = 1 To Len(Target) Step 2

myStr = myStr & Mid(Target, i, 2) & "-"

Next

Target = UCase(Left(myStr, Len(myStr) - 1))

Case "B8", "C8"

Application.EnableEvents = False

With Target

.Value = UCase(.Value)

With .Font

.Name = "Calibri"

.Size = 11

End With

End With

End Select

ENDE:

Application.EnableEvents = True

End Sub



Deine Zellen B88 sind doch nicht geschützt, da dort Eingaben gemacht werden sollen? Falls doch musst du davor noch ein Unprotect und dahinter ein Protect einbauen.

Falls du nicht klar kommst, kann ich dir gerne eine Mappe zur Verfügung stellen.



Mit freundlichen Grüßen

Claus