Hallo Leute
Gibts es nicht die Möglichkeit Über VBA was zu machen
wie zum Beispiel:
Public Sub AttributEinfüger()
Const sReiter = "Systemattribute"
Const sAttr1 = "Zusatzkommentar 2"
Dim colDevs As ObjectItems
Dim oDev As ObjectItem
Dim i As Integer
Set colDevs = Selection(1).FindObjects(aucObjDevice, aucSearchHerachial)
Call WaitDialog.Start(colDevs.Count, "Bitte Warten", aucAnimSearch)
i = 1
For Each oDev In colDevs
If oDev.Attributes.Find(ID VON ATTRIBUT) Is Nothing Then
Call WaitDialog.Update(i, i & " von " & colDevs.Count)
Call oDev.Attributes.Add(ID VON ATTRIBUT, , sReiter)
i = i + 1
End If
Next oDev
Call WaitDialog.Stop
Call MsgBox("Das Attribut wurde an " & colDevs.Count & " Geräten ergänzt")
End Sub
------------------
Grüße xymaddin
EB 6.6.1 Power User
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP