Thema Datum  Von Nutzer Rating
Antwort
24.09.2007 14:32:25 Tina
NotSolved
24.09.2007 17:39:15 jh
NotSolved
24.09.2007 17:44:58 jh
NotSolved
24.09.2007 18:01:37 jh
NotSolved
25.09.2007 08:13:21 Tina
NotSolved
25.09.2007 11:05:54 Tina
NotSolved
25.09.2007 18:16:57 jh
NotSolved
26.09.2007 09:52:03 Tina
NotSolved
26.09.2007 11:30:58 jh
NotSolved
28.09.2007 08:29:14 Tina
NotSolved
Rot Aw:Aw:Aw:Aw:Aw:Aw:Aw:Aw:Aw:Aw:Ampeln in einer Exce
28.09.2007 12:51:39 jh
NotSolved
13.11.2007 13:53:14 tobias
NotSolved

Ansicht des Beitrags:
Von:
jh
Datum:
28.09.2007 12:51:39
Views:
979
Rating: Antwort:
  Ja
Thema:
Aw:Aw:Aw:Aw:Aw:Aw:Aw:Aw:Aw:Aw:Ampeln in einer Exce
Hallo Tina,

die unendliche Geschichte... Das meinte ich eigentlich, als ich schrieb, dass die ganze Adressierung nicht mehr stimmt, wenn sich an den Ampeln etwas ändert. Jedes "Ampelgehäuse" (Rechteck) und jedes Ampelfeld (Kreis) ist von VBA aus gesehen ein Shape-Objekt, das mit einer laufenden Nummer adressiert wird. Diese Nummern werden in der Reihenfolge vergeben, wie sie dem Sheet hinzugefügt werden. Beim Löschen eines Shapes rücken die folgenden jeweils eine Nummer nach vorn. Damit die Adressierung, wie ich sie verwendet habe, funktioniert, müssen die Shapes in folgender Reihenfolge hinzugefügt werden:

1.: Rechteck 1. Ampel
2. - 5.: Felder der 1. Ampel von oben nach unten
6.: Rechteck 2. Ampel
7. - 10.: Felder der 2. Ampel von oben nach unten

usw.

Die Reihenfolge der Shapes kannst du zwar mit der ZOrder-Mathode ändern, aber dazu musst du erst mal die aktuelle Position kennen. Das wäre alles in allem genausoviel Fummelei, als wenn du alles gleich neu machst. Am einfachsten geht es natürlich per Code, ich habe dafür mal ein Beispiel gemacht und upgeloadet.

http://loaditup.de/131549-.html

Vielleicht kannst du ja etwas damit anfangen. Die Position des Shapes auf dem Blatt wird durch die Parameter Left und Top, die Größe durch Height und Width bestimmt. Diese Parameter werden in Punkt angegeben (1 Punkt = 1/72 Zoll, also 0,35 mm). Am besten du probierst das erst mal in einer separaten Datei, und wenn es deinen Vorstellungen entspricht, kopierst du das Sheet in deine Arbeitsmappe.

Zur Zuordnung der Ampeln zu den Worksheets hatte ich ja schon im letzten Posting etwas geschrieben, das stützt sich natürlich auch auf die Reihenfolge der Shapes, wie ich sie hier beschrieben habe. Klingt alles kompliziert, ist aber eigentlich ganz einfach...

LG Jürgen

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
24.09.2007 14:32:25 Tina
NotSolved
24.09.2007 17:39:15 jh
NotSolved
24.09.2007 17:44:58 jh
NotSolved
24.09.2007 18:01:37 jh
NotSolved
25.09.2007 08:13:21 Tina
NotSolved
25.09.2007 11:05:54 Tina
NotSolved
25.09.2007 18:16:57 jh
NotSolved
26.09.2007 09:52:03 Tina
NotSolved
26.09.2007 11:30:58 jh
NotSolved
28.09.2007 08:29:14 Tina
NotSolved
Rot Aw:Aw:Aw:Aw:Aw:Aw:Aw:Aw:Aw:Aw:Ampeln in einer Exce
28.09.2007 12:51:39 jh
NotSolved
13.11.2007 13:53:14 tobias
NotSolved