Hey habe ein Problem und zwar hab ich einen VB code aber wenn ich das jetzt in ein Addin umwandle geht alles einwandfrei bis auf ein paar codezeilen könntet ihr mir da helfen wie man die folgenden Codezeilen in ein Addin reinbringen kann?
If myPage("OptionButton2").Value = True Then
If InStr(1, Application.ActiveInspector.CurrentItem.Location, "Ort1") Then bew = "Bewirtung@muster.com"
If InStr(1, Application.ActiveInspector.CurrentItem.Location, "Ort2") Then bew = "Bewirtung@muster.com"
If InStr(1, Application.ActiveInspector.CurrentItem.Location, "Ort3") Then bew = "Bewirtung@muster.com"