Hot News:

Unser Angebot:

  Foren auf CAD.de (alle Foren)
  Excel
  SPS-Addreassen per VBA sortieren (zusammenkopieren)

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
Autor Thema:  SPS-Addreassen per VBA sortieren (zusammenkopieren) (1654 mal gelesen)
HKXVZBi
Ehrenmitglied
Konstruktion Elektroplanung


Sehen Sie sich das Profil von HKXVZBi an!   Senden Sie eine Private Message an HKXVZBi  Schreiben Sie einen Gästebucheintrag für HKXVZBi

Beiträge: 1502
Registriert: 27.01.2010

erstellt am: 16. Aug. 2010 09:29    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities


sps-adr-bsp.png

 
Hallo, ich habe folgendes Problem für die Beschriftung von SPS-Karten werden die Adressen der jeweiligen Karte auf ein Label gedruckt.
es gibts verschiedene Karten mit z.B. 2, 4 oder 8 Adressen. Die Schildbeschriftung soll dann ungefähr so aussehen:

für 2 Adressen:
Adr1 - Adr2

für 4 Adressen:
Adr1 - Adr2
Adr3 - Adr4

für 8 Adressen:
Adr1 - Adr4
Adr5 - Adr8

Als vorlage dient mir hier die angehängte xls datei welche aus ePlan P8 herraus erzeugt wird.
Jetzt würde ich die sortierung bzw. das zusammenkopieren der Adressen mittels VBA Script automatisieren,
da eine sortierung von Hand sehr zeitaufwendig ist. (bei der angehängten Liste handelt es sich lediglich um einen Auszug)

nur die ersten beiden Spalten werden ausgegeben in Spalte C sind nochmals einige Bsp. dargestellt wie die Adressen auf dem Schild nachher angeordnet werden müssen.
Hier soll dann später das

ich wäre dankbar für jede Hilfe

Gruß
Marco

------------------
„Wenn man sagt, daß man einer Sache grundsätzlich zustimmt, so bedeutet es, daß man nicht die geringste Absicht hat, sie in der Praxis durchzuführen.“

Otto von Bismarck

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

bgischel
Ehrenmitglied V.I.P. h.c.
...und Dippel-Ing ET...



Sehen Sie sich das Profil von bgischel an!   Senden Sie eine Private Message an bgischel  Schreiben Sie einen Gästebucheintrag für bgischel

Beiträge: 15740
Registriert: 09.03.2001

Excel(lent)
2002 SP3

erstellt am: 16. Aug. 2010 18:04    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für HKXVZBi 10 Unities + Antwort hilfreich

@Marco
Quergefragt (hat jetzt nix mit Excel zu tun): was sind das für Labels? Spezielle Teile oder auf einem speziellen Drucker? Praktisch kannst Du das auch innerhalb von P8 selbst erschlagen (entsprechende Auswertung bauen und maßstäblich drucken)... 

------------------
 
P8 Magic | P8 FAQs | Normen, Links... | Historie | Hilfe | Suchen | Finden | Fragen | Geprüft

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

HKXVZBi
Ehrenmitglied
Konstruktion Elektroplanung


Sehen Sie sich das Profil von HKXVZBi an!   Senden Sie eine Private Message an HKXVZBi  Schreiben Sie einen Gästebucheintrag für HKXVZBi

Beiträge: 1502
Registriert: 27.01.2010

erstellt am: 17. Aug. 2010 07:03    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

einfach für normale ET200 Baugruppen nix spezielles, sind halt nur diese speziellen schilder dafür (rot, blau, gelb, grau), das mit der Auswertung werd ich mir mal anschauen!

ansonsten wäre unter VBA meine vorgehensweise wie folgt gewesen, nur leider hab ich es noch nicht umsetzten können

-letzte beschriebene Zelle finden (abbruchbedingung für schleifendurchläufe)
-alle BMK's aus spalte A in ein Array packen
-Array sortieren und doppelte einträge entfernen
-alle zeilen, deren Zelle in spalte B leer ist, löschen
-Wert (BMK) aus Array, in den Verbleibenden BMK's aus spalte A suchen und vorhandene BMK's zählen (Wichtig für Beschriftungsanordnung)
-ja nach häufigkeit (anzahl) des jeweiligen BMK's sortierung vornehmen

wenn es nicht so an der umsetzung hapern würde 

------------------
„Wenn man sagt, daß man einer Sache grundsätzlich zustimmt, so bedeutet es, daß man nicht die geringste Absicht hat, sie in der Praxis durchzuführen.“

Otto von Bismarck

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz