Hallo Tina,
ich habe ein bisschen an deiner Beispieldatei gebastelt und sie
wieder upgeloadet:
http://loaditup.de/130271-.html
Ich hoffe, dass mir in der Eile kein Lapsus unterlaufen ist, aber das werden wir schon noch merken. Tabelle1 ist geschützt (ohne Passwort), damit man nicht mit einem versehentlichen Mausklick die Ampeln demoliert. Für den Code zum Setzen und Rücksetzen der Ampeln habe ich ein Modul eingefügt, um diese Prozeduren bei Bedarf von überall aufrufen zu können. Wenn das nicht nötig ist, können sie auch im Codebereich DieseArbeitsmappe stehen. Der Entwicklungsstand steht jetzt erst mal in H22, wenn sich das noch ändert, muss die Zeile
If Target.Address = "$H$22" Then
(in Sub Workbook_SheetChange)
angepasst werden. Falls es so gewollt ist, dass die Ampeln (Shapes) nicht "der Reihe nach" angeordnet sind, hab ich es so gelassen. Die Nummern der Shapes (Rechtecke) und die dazugehörige Tabelle habe ich zu Orientierung darüber oder darunter eingetragen, das kann natürlich wieder gelöscht werden. Die Nummern der Ampelfelder sind dann von oben nach unten die Jeweilige "Basisadresse" plus 1, 2, 3, 4. Wenn du die Adressierung so wie im Beispiel lassen willst, darf sich da nichts mehr ändern. Wenn in H22 nichts steht oder der Eintrag wieder gelöscht wird, bleiben alle Ampelfelder "aus", wird ein "unzulässiger" Wert eingetragen, gibt es eine Fehlermeldung.
Die Zuordnung der Ampeln zu den Worksheets erfolgt anhand der Indexnummern der Sheets:
intAmpel = (Sh.Index - 1) * 5 + 1
Das ist für die Adressierung am einfachsten. Wenn es anders gewünscht ist, ("nichtlineare Zuordnung") müsste irgendwo im jeweiligen Blatt die "Basisadresse" der zugehörigen Ampel stehen, die dann mit der Offset-Eigenschaft gelesen werden kann, z. B.
intAmpel = Target.Offset(-1, 1)
Das wäre dann in I21. Angenommen für Tabelle10 wäre die 4. Ampel vorgesehen, müsste dann in Tabelle10!I21 der Wert 16 stehen. Alles klar?
LG Jürgen
|