Ich habe folgendes Problem, ich will meine DVD-Sammlung archivieren, so wird zb:ein Filmtitel per Combobox aufgerufen und über Formeln wie VLOOKUP in verschiedenen Kästen Regie;Filmdauer;Darsteller...angezeigt.
Nun mein Problem:zusätzlich will ich dass bei jedem Film-Titel das jeweilige DVD-Cover angezeigt wird:Formel die ich benutzt habe:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim s As Shape
If Target = [b8] Then
For Each s In ActiveSheet.Shapes
If s.Name Like "Picture *" Then s.Visible = False
Next
Select Case Target.Value
Case Is = "American Beauty"
ActiveSheet.Shapes("Picture 1").Visible = True
Case Is = "American Pie"
ActiveSheet.Shapes("Picture 2").Visible = True
Case Is = "American Psycho"
ActiveSheet.Shapes("Picture 3").Visible = True
End Select
End If
End Sub
Das Problem allerdings ist, dass sich das Cover nicht gleich nach dem Combobox anwählen (Film-Titel)präsentiert, sondern erst wenn ich auf
die b8 Zelle drücke, wenn ich nun einen anderen Titel anwähle bleibt das Bild wiederum solange bis ich erneut auf die B8 Celle drücke!
Was muss ich in meine Formel einbauen? -Select Case -> Aber wo, bekomme so immer wieder Syntax-Fehler!
Würde mich über einen Vorschlag freuen!