Office

es gibt zwei Orte bei denen Vetrauenswürdige Office Pfade geändert werden können der diese unten wird von der Pol. gesteuert und kann kurzzeitig überschrieben werden.
[HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\common\security\trusted Locations\all applications\location8

 oder

[HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\Excel\Security\Trusted Locations\Location6] „Path“=\\\\worker\\d$\\ „Description“=“testmakro“ „AllowSubfolders“=dword:00000001

ein Link zu Policy Templates http://winintro.com/

 

 

 

Excel
http://www.herber.de/forum/archiv/1124to1128/1127367_Zeichen_vor_und_hinter_jedem_Zellenwert_einfuegen.html

Sub WerteEinklammern()
Dim lngLz As Long, lngZ As Long, lngSpalte As Long
lngSpalte = 1 ‚1=Spalte A, 2=Spalte B etc.

lngLz = Cells(Rows.Count, lngSpalte).End(xlUp).Row ‚Letzte Zeile der Spalte ermitteln

For lngZ = 2 To lngLz ‚Beginnt ab Zeile 2
Cells(lngZ, lngSpalte).Value = „+“ & Cells(lngZ, _
lngSpalte).Text & „@zuerich.ch“
Next
End Sub

oder