---

Hallo,

ich habe einige Programme die unter WIN 11 nicht laufen.
Ein Beispiel ist der folgende Code

        For x = 1 To oBook.Sheets.Count
            With oBook.Sheets(x)
                If .Range("A4:A4000").Find(what:="R01645") Is Nothing Then Continue For
                MsgBox("gefunden auf Zeile:" & CDec(Replace(.Range("A4:A4000").Find(what:="R01645").Address, "$A$", "")))
            End With
        Next

ACAD2025 stürzt einfach ab ohne eine Fehlermeldung, weiß jemand woran das liegen kann?
Unter WIN10 und ACAD2025 klappt der Code ohne Probleme.

------------------
----------------------------------
Mit freundlichen Grüßen

Felix

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP