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