Auswahl von Shapes
Shapes
ich habe eine Tippdatei für die Formel-1-Saison 2010 kreiert.
Hierbei sollen die ersten 8 Fahrer pro Rennen getippt werden.
Hierzu habe ich auf einem Tabellenblatt ("Tipps") 8 Dropdowns hinterlegt,
in denen die Fahrer aufgelistet sind.
Die Quelle steht auf einem anderen Tabellenblatt ("Daten") in der Form:
Fahrername Auto
Schuhmacher, Michael Mercedes GP1
Rosberg, Nico Mercedes GP2
Masssa, Felipe Ferrari1
Alonso, Fernando Ferrari2
u.s.w.
Zu jedem Autonamen existiert eine kleine Bilddatei auf dem Blatt "Tipps".
Die Bilddateien haben die gleichen Namen, wie in der Quelle (s.o.).
Jedesmal, wenn ein Name ausgewählt wird, soll rechts davon (Spalte D) das
entsprechende Bildchen angezeigt werden.
Dazu habe ich hinter jedem Dropddown ein Makro hinterlegt, in dem u.a.
folgende Unterprozedur die Bildchen anzeigen soll:
Sub Auto()
Sheets("Tipps").Select
ActiveSheet.Unprotect
Auswahl = Range(aktiveZelle).Value
With ActiveSheet.Shapes(Auswahl)
.LockAspectRatio = msoFalse
.Top = Range(aktiveZelle).Top + 3
.Left = Range(aktiveZelle).Left + 10
.Width = Range(aktiveZelle).Width - 20
.Height = Range(aktiveZelle).Height - 5
End With
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Range("A1").Select
End Sub
D5 oder D6 oder D7 etc. zugewiesen, der Variablen "Auswahl" das
Auto, also "Mercedes GP1", "Ferrari2" etc.
Leider funktioniert es nicht so, wie ich gerne möchte.
Bei einigen Versuchen klappt es, aber wenn ich eine Auswahl ändere,
bleibt das vorher selektiert Bild bestehen.
Hat jemand eine Idee, wo mein Denkfehler liegt.
Gruß,
Ptonka