Microsoft Excel

Herbers Excel/VBA-Archiv

Auswahl von Shapes | Herbers Excel-Forum


Betrifft: Auswahl von Shapes von: Ptonka
Geschrieben am: 22.01.2010 12:27:33

Hallo zusammen,

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
Der Variable "aktiveZelle" wird dier Zellenname in Spalte D, also z.B.
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

  

Betrifft: AW: Auswahl von Shapes von: Beverly
Geschrieben am: 22.01.2010 13:21:41

Hi,

schau dir mal auf der HP von Hajo Ziplies, Seite "Fremde Dateien", Unterseite "ohne VBA" das Beispiel Bilder einfügen an. Vielleicht wäre das auch eine Lösung für dich.


GrußformelBeverly's Excel - Inn


  

Betrifft: AW: Auswahl von Shapes von: Ptonka
Geschrieben am: 22.01.2010 15:52:38

Hallo Beverly,

der Tipp war Gold wert.
Das funzt einwandfrei.
Vielen Dank für den Tipp.

Gruß,
Ptonka


Beiträge aus den Excel-Beispielen zum Thema "Auswahl von Shapes"