Industrie Pharmaceutique, site de production de formes posologiques solides
Patch-Liste,Liste des câbles (3992 pc.)
Panel Liste, Liste des panneaux (135 pc.)
EC09 S03 F01
EC09 S03 F02
EC09 S03 F03
EC09 S03 F04
EC09 S03 F05
EC09 S03 F06
EC09 S03 F06
Z01. A136
Z01. A136
Z01. A136
Z01. A136
Z01. A136
Z01. A136
Z01. B234
20
21
22
23
24
25
22
B
WST222 U01. F141 EC01 S01
C
D
E
F
G
P
Q
1
A
A
B
C
D
22,03,16 Favre
22,03,16 Favre
22,03,16 Favre
22,03,16 Favre
22,03,16 Favre
1
1
1
1
18 WST-222 Z01.
19 WST-222 Z01.
20 WST-222 Z01.
21 WST-222 Z01.
C341 EC09 S02
C341 EC09 S02
C341 EC09 S02
C341 EC09 S02
For patchliste = 1 To 6000
xportnr = portdaten(patchliste, 1) & portdaten(patchliste, 2) & portdaten(patchliste, 3) 'Portnummer im Patchliste
If portnr = xportnr Then 'Stimmt der Panel Position im Panelliste und Patchliste überein?
'++++++++++++ Text in Shape ändern, der Shape besteht aus nur eine Text!!!
Set vsoCharacters1 = Application.ActiveWindow.Page.Shapes.ItemFromID(itemid).
Characters 'shape auswählen
vsoCharacters1.Text = portdaten(patchliste, 5) 'Texte
merker = 1 'Shape wurde geändert
intCounter = intCounter + 1
Exit For
End If
Next patchliste
1
2
3
4
13 14 15 16
Erstellt am:22.03.2016
Erstellt Name: Favre
Rev. Datum:
Z01.
Z01.
Z01.
Z01.
Z01.
Z01.
Z01.
Z01.
Gebäude:WST-222
Raum:
Z01C. 341
A136/20 A136/21A136/22 A136/23
B234/4 DA136/33DA136/34DA136/35
32
1
7
18 19 20
29 30 31 32
Schrank: EC0/9S03
Position: F
Kabeltyp: Dätwyler 7150 4P Multimedia
Buchsentyp: MMC 3000 pro
F
Rev. Name:
Z01.
DA136/36A138/237
Z01.
DZA0113.8/ DZA0113.8/
58
259
Z01.
Z01.
A136/46 A136/27A136/28 A136/29
Z01.
Z01.
2
Die Zeichnungen für die Panelbeschriftung werden automatische gezeichnet mit Visio 2013.
Visio holt die Excel-Daten (CSV) ab und setz diese im Zeichnung ein.
Les dessins pour l‘étiquetage des panneaux sont créer automatiquement par Visio 2013.
Visio récupére les donnèes depuis Ecxel (CSV) et les assignent dans le dessin.
Bernard Favre © 21.04.17